sniper2009
06-05-2008, 10:12
السلام عليكم
هاذة اول مشاركة لي في منتديات لغات البرمجة
وهاذا اول برنامج اعلمكم اياة وانتضروني في برامج اخرى
نبدا هاذا هي صورة الواجهة الاساسية
http://www.7ammil.com/data/visitors/2008/05/06/7ammil_617_untitled.jpg
وهاذة هي شفرة المستخدم الاول
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
TextBox1.Focus()
Else
ListBox1.Items.Add(GroupBox1.Text & " : " & TextBox1.Text)
ListBox2.Items.Add(GroupBox1.Text & " : " & TextBox1.Text)
Button1.Enabled = False
Button2.Enabled = True
TextBox1.Clear
TextBox2.Focus
End If
End Sub
وهاذة شفرة المستخدم الثاني
[
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text <> "" Then
ListBox2.Items.Add(GroupBox1.Text & " : " & TextBox2.Text)
ListBox1.Items.Add(GroupBox2.Text & " : " & TextBox2.Text)
Button2.Enabled = False
Button1.Enabled = True
TextBox2.Clear()
TextBox1.Focus()
Else
TextBox2.Focus()
End If
وان شاء الله تطبقواة مع تحياتي
هاذة اول مشاركة لي في منتديات لغات البرمجة
وهاذا اول برنامج اعلمكم اياة وانتضروني في برامج اخرى
نبدا هاذا هي صورة الواجهة الاساسية
http://www.7ammil.com/data/visitors/2008/05/06/7ammil_617_untitled.jpg
وهاذة هي شفرة المستخدم الاول
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
TextBox1.Focus()
Else
ListBox1.Items.Add(GroupBox1.Text & " : " & TextBox1.Text)
ListBox2.Items.Add(GroupBox1.Text & " : " & TextBox1.Text)
Button1.Enabled = False
Button2.Enabled = True
TextBox1.Clear
TextBox2.Focus
End If
End Sub
وهاذة شفرة المستخدم الثاني
[
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox2.Text <> "" Then
ListBox2.Items.Add(GroupBox1.Text & " : " & TextBox2.Text)
ListBox1.Items.Add(GroupBox2.Text & " : " & TextBox2.Text)
Button2.Enabled = False
Button1.Enabled = True
TextBox2.Clear()
TextBox1.Focus()
Else
TextBox2.Focus()
End If
وان شاء الله تطبقواة مع تحياتي