السلام عليكم اخوتي الكرام
اساتذتي الاعزاء هل يمكن ان نضع باسوورد لل Button بمعنى عند الضغط علية قبل ان ينفذ الامر يطلب كلمة مرور وبعدها يقوم بالتنفيذ ؟
السلام عليكم ورحمة الله ويركاته
اخي الكريم الامر ببساطة هو تعريف متغير نصي مثلا يحمل كلمة المرور وهي هنا
ibrahim
وفي حذث الكليك للبوتون سنظهر InputBox لادخال كلمة المرور
ثم القيام بالتحقق منها فأن كانت صحيحة ننفذامرا ما وليكن اظهار رسالة ترحيب
اما ان كانت كلمة المرور خاطئة نظهر رسالة ان كلمة المرور خاطئة ونخرج من الحدث
الكود على النحو التالي :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aa As String = "ibrahim"
Dim kk As String = InputBox("Enter Password :", "Password")
If kk = "" Then
Exit Sub
ElseIf kk = aa Then
MessageBox.Show("Welcom to Vb4Arab")
Else
MessageBox.Show(" Password is Error ")
Exit Sub
End If
End Sub
(28-02-21, 08:53 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله ويركاته
اخي الكريم الامر ببساطة هو تعريف متغير نصي مثلا يحمل كلمة المرور وهي هنا ibrahim
وفي حذث الكليك للبوتون سنظهر InputBox لادخال كلمة المرور
ثم القيام بالتحقق منها فأن كانت صحيحة ننفذامرا ما وليكن اظهار رسالة ترحيب
اما ان كانت كلمة المرور خاطئة نظهر رسالة ان كلمة المرور خاطئة ونخرج من الحدث
الكود على النحو التالي :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aa As String = "ibrahim"
Dim kk As String = InputBox("Enter Password :", "Password")
If kk = "" Then
Exit Sub
ElseIf kk = aa Then
MessageBox.Show("Welcom to Vb4Arab")
Else
MessageBox.Show(" Password is Error ")
Exit Sub
End If
End Sub
مااروعك سيدي ... هذا بالضبط ماكنت ابحث عنه
دعواتي لك بالتوفيق والنجاح وفائق امتناني وشكري لشخصك الكريم