PDA المساعد الشخصي الرقمي

عرض كامل الموضوع : ازاي تصلح شات في الفجوال بيسك دوت نت طريقة



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

وان شاء الله تطبقواة مع تحياتي

الآفاتار
06-05-2008, 11:44
لو تضع شرح لكان أروع البرنامج
ولو عملتو ممكن تضعه كبرنامج مو كدرس
سلام..

sniper2009
06-05-2008, 19:48
البرنامج سهل جداً
فقط ضيف الادوات ونسخ الكواد الااول للbooton1 الاوال واكواد الثاني للبوتوان الثاني
واتمنى يعجبك البرنامج

الآفاتار
06-05-2008, 20:49
أخي أنا ماأحتاج البرنامج
بس قلتلك هيك مشان تفيد الأعضاء
أنا أعرف الفي بي والحمد لله
بس أنا قاصد الأعضاء اللي مايعرفو vb
سلام...

sniper2009
06-05-2008, 21:14
السلام عليكم
وهاذا هو البرنامج للي ما يستطعش يطبق البرنامج من الشرح

برابط البرنامج على الزد شير