[ahssan]

السلام عليكم اخوتي الكرام

اساتذتي الاعزاء هل يمكن ان نضع باسوورد لل 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

[ahssan]

(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

مااروعك سيدي ... هذا بالضبط ماكنت ابحث عنه 
دعواتي لك بالتوفيق والنجاح وفائق امتناني وشكري لشخصك الكريم

[ابراهيم ايبو]

الحمد لله والشكر لله

ولك اخي الكريم