اليكم الصورة المبدئية "الواجهه التفاعلية للمستخدم"
والتى اعمل على تصميمها الان
...................................
نقوم بادراج نافذة "فورم جديد" اخر الى المشروع
هكذاااااا
...................
الشكل العام والنهائى للبرنامج
.........................................
سوف اضع لكم الشرح كامل للبرنامج وكيفية تسطيبة
لو انكم تهتمون بذلك -- لو لم تكونو تريدون معرفة كيف قمت بذلك
فلا تتركوا تعليقا وانصرفوا بسلام امنين -- فانتم فى مصر - وهذا حالكم !!
وجعلة نسخة محمولة " بورتابل" كالتى سرت على طريقها
تابعونا
........................
برمجة الكود المستخدم فى الفورم الثانى الخاص بالنتائج
اقتباس:
ublic Class click_me
Private Sub click_me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = Form1.TextBox12.Text
Label2.Text = Form1.TextBox5.Text
Label3.Text = Form1.TextBox1.Text
Label4.Text = Form1.TextBox13.Text
Label5.Text = Form1.TextBox7.Text
Label6.Text = Form1.TextBox3.Text
Label7.Text = Form1.TextBox10.Text
Label8.Text = Form1.TextBox16.Text
Label9.Text = Form1.TextBox8.Text
Label10.Text = Form1.TextBox15.Text
Label11.Text = Form1.TextBox9.Text
Label12.Text = Form1.TextBox3.Text
Label13.Text = Form1.TextBox13.Text
Label14.Text = Form1.TextBox4.Text
Label15.Text = Form1.TextBox6.Text
Label16.Text = Form1.TextBox14.Text
Label17.Text = Form1.TextBox4.Text
Label18.Text = Form1.TextBox11.Text
End Sub
End Class
|
وايضا بالنسبة لزر الاغلاق واعادة المحاولة
اقتباس:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' برمجة زر اغلاق الفورم الاول والثانى
Form1.Close()
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' اغلاق الفورم الثانى فقط وهو نافذة النتائج
Me.Close()
End Sub
|
يمكننا اضافة الاكواد الاتية لتفريغ محتويات التكست بوكس حال الضغط على زر
Make me laugh
اقتباس:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
click_me.Show()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
End Sub
|
لا ننسى استخدام الخصائص باقصى حد مع الفورم الاول والثانى
وهذا يطول ذكره --- فانا لم اشرح شيئا بعد حتى الان
.........................
هل تريدون المزيد
؟**!!
تعودت على سلبيتكم فى العطاء وعدم مشاركتكم الفعالة معى
لذا اثرت على عدم شرح الموضوع ولكننى رفعت الملف الذى به المشروع
الخاص بالفجيوال بيسك 2010
على 12 سيرفر تحميل : حجم الملف 150كيلو بايت
http://ymirror.com/files/TEBE4G8X/Ma...Laugh.rar.html
