[RaggiTech]

لا تنس بعد ذلك أن تذكره بكلمة المرور التي أدخلها كيلا ينساها ، اظهر له رسالة بها :

كود :

MsgBox "لا تنس أن كلمة المرور هي : " & Info(1), vbInformation + arabic, "تذكير بكلمة المرور"

أخيراً نقوم بانشاء دالة في Module اسمها Start وتحتوي على الأوامر الرئيسية التي تحدث عند بداية تشغيل البرنامج ، وهو ما سوف نقوم بعمله لاحقاً .

كود :

[align=right]Public Sub Start()

End Sub[/align]

ونستدعيها في دالة Add_New بعد الشاشة الحالية .

كود :

[align=right]Me.Hide
Call Start[/align]

ولن ننسى بالطبع جعل بعض الحقول لا تقبل إلا أرقاماً فقط ، مثل رقم الهاتف بالشكل التالي :

كود :

[align=right]Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 59 Then
Beep
KeyAscii = 0
End If
End Sub[/align]

ويمكنك تطوير الأمر السابق كما أشرنا إلى ذلك في دروس سابقة .

بهذا نكون قد انتهينا من تصميم شاشة NewUser - مستخدم جديد .


والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .