[الدرس الاول / تصميم واجهات البرنامج / 1- تصميم فورم الدخول الى البرنامج]
1- افتج فيجول بيسك 2008
2- قم بتصميم واجهة تشبه الواجه التالية
3- اضغط دوبل كليك على [ زر خروج ] ثم اضف الشفرة التالية
Me.close
4- اضغط دوبل كليك على
[ زر موافق ] ثم اضف الشفرة التالية
If TextBox1.Text = "Eng abdelaziz" And TextBox2.Text = "123456" Then
Me.Hide()
Products.Show()
MsgBox("اسم البرنامج : المعتصم بالله جروب" & vbCrLf & "اسم المبرمج : عبدالعزيز موسى محمد" & vbCrLf & "هاتف اتصال : 00201151561929" & vbCrLf & "شركة سهم للبرمجيات", MsgBoxStyle.Information, "حقوق البرمجة محفوظة")
Else
MsgBox("خطا فى اسم المستخدم او كلمة المرور", MsgBoxStyle.Information, "خطا")
End If
Me.Hide()
Products.Show()
MsgBox("اسم البرنامج : المعتصم بالله جروب" & vbCrLf & "اسم المبرمج : عبدالعزيز موسى محمد" & vbCrLf & "هاتف اتصال : 00201151561929" & vbCrLf & "شركة سهم للبرمجيات", MsgBoxStyle.Information, "حقوق البرمجة محفوظة")
Else
MsgBox("خطا فى اسم المستخدم او كلمة المرور", MsgBoxStyle.Information, "خطا")
End If
{ تحليل الشفرات السابقة}
1- الشفرة الاولى تفيد الخروج من البرنامج ونستخدم امر الاستدعاء للفروم ذاته Me
2- الشفرة الثانية وهى شفرة الولوج الى البرنامج وتفيد بان التكست بوكس الاولى والثانية اذا كانت تساوى القيم المرادة والمسجلة مسبقا فان البرنامج يستجيب وتظهر صفحة اخرة وهى Products وسوف نقوم بانشاءها فيما بعد
اذا لم تتساوى قيم تكست بوكس المدخلة مع المسجلة تظهر رسالة خطا
الان قم بالتدريب على هذا الدرس البسيط وحلل الشفرة وانا اعتقد ان معظم القارئين لهذا الدرس سوف يطبقون الشفرات بكل بساطة
والسلام عليكم ورحمة الله


رائع يا اخى
ردحذف