منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال حول Button - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول Button (/showthread.php?tid=37906)



سؤال حول Button - ahssan - 28-02-21

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

اساتذتي الاعزاء هل يمكن ان نضع باسوورد لل Button بمعنى عند الضغط علية قبل ان ينفذ الامر يطلب كلمة مرور وبعدها يقوم بالتنفيذ ؟


RE: سؤال حول Button - ابراهيم ايبو - 28-02-21

السلام عليكم ورحمة الله ويركاته
اخي الكريم الامر ببساطة هو تعريف متغير نصي مثلا يحمل كلمة المرور وهي هنا 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



RE: سؤال حول Button - ahssan - 28-02-21

(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
مااروعك سيدي ... هذا بالضبط ماكنت ابحث عنه 
دعواتي لك بالتوفيق والنجاح وفائق امتناني وشكري لشخصك الكريم


RE: سؤال حول Button - ابراهيم ايبو - 28-02-21

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