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

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

الصفحات: 1 2


كيف؟ - NoSorry - 22-06-20

سلام عليكم ..

ابغا كود  اذا ضغطت على TextBox1   " انتر "   ينقلني على Textbox2 على طول

يعني لما اكتب UserName بالTextbox1  واضغط انتر  على طول يوديني على Textbox2 واكتب الباسورد


لاني حاليا اضغط بالماوس على كل تيكست بوكس عشان اكتب  


 اتمنى منكم تعطوني الاكواد وفين اكتبها  بالفورم او تيكست او فين وشكرا

ايضا اريد اذا كتب الباسورد وضغط انتر تلقائيا يوديه للفورم 2 اذا كان باسورد صحيح

Uppppppppp
ppppp


RE: كيف؟ - boudyonline - 22-06-20

كود :
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            textbox2.Focus()
        End If
    End Sub

Private Sub textbox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            button1.Focus()
        End If
    End Sub



RE: كيف؟ - WaeLx - 22-06-20

(22-06-20, 04:16 PM)NoSorry كتب : سلام عليكم ..

ابغا كود  اذا ضغطت على TextBox1   " انتر "   ينقلني على Textbox2 على طول

يعني لما اكتب UserName بالTextbox1  واضغط انتر  على طول يوديني على Textbox2 واكتب الباسورد


لاني حاليا اضغط بالماوس على كل تيكست بوكس عشان اكتب  


 اتمنى منكم تعطوني الاكواد وفين اكتبها  بالفورم او تيكست او فين وشكرا



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

http://vb4arb.com/vb/showthread.php?tid=34554


RE: كيف؟ - NoSorry - 22-06-20

(22-06-20, 05:31 PM)boudyonline كتب :
كود :
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            textbox2.Focus()
        End If
    End Sub

Private Sub textbox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            button1.Focus()
        End If
    End Sub


اشتغل

بس كيف اخليه اذا ضغط انتر على الTextBox2  تلقائيا يحوله الى Form2 اذا كان الباسورد صحيح

والله يعطيكم العافية جميعا


RE: كيف؟ - kiki - 22-06-20

(22-06-20, 09:36 PM)NoSorry كتب : اشتغل

بس كيف اخليه اذا ضغط انتر على الTextBox2  تلقائيا يحوله الى Form2 اذا كان الباسورد صحيح

والله يعطيكم العافية جميعا

طبق نفس الكود للاخ boudyonline
وفقط استبدل هذا السطر
button1.Focus()

ليكون بهذا السطر
Button1_Click(sender , e)

فى حالة كنت عامل زر تسجيل الدخول
او اذا كان لا فقط قم بوضع الكود الاعتيادى من التحقق وتسجيل الدخول بدلاً من هذا السطر فقط لا اكثر


RE: كيف؟ - NoSorry - 22-06-20

اسف بس شرح مش واضح

انا جدا مبتدئ احتاج تفصيل


RE: كيف؟ - kiki - 22-06-20

ما هو اسم الزر الخاص بـ تسجيل الدخول وهل قمت بعمل الحدث الخاص به
للتحقق فى عملية تسجيل الدخول
او فضلاً ارفق المشروع الذى لديك لعمل الكود وشرحه طبقاً لما لديك


RE: كيف؟ - NoSorry - 23-06-20

الزر هو عبارة عن Picturebox
ولم اقم بعمل حدثَ ّ


RE: كيف؟ - AbdoDabak - 23-06-20

PHP كود :
Private Sub textbox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
        If Asc
(e.KeyChar) = Keys.Enter Then
            textbox2
.Focus()
 
       End If
 
   End Sub

    Private Sub textbox2_KeyPress
(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox2.KeyPress
        If Asc
(e.KeyChar) = Keys.Enter Then
            If TextBox2
.Text "كلمة المرور" Then
                Me
.Hide()
 
               Form2.Show()
 
           Else
                MsgBox
("كلمة المرور خاطئة")
 
           End If
 
       End If
 
   End Sub 

تفضل اخي 
فقط قم بتغير كلمة المرور الى كلمة المرور اللي تريدها



RE: كيف؟ - NoSorry - 23-06-20

(23-06-20, 05:11 PM)AbdoDabak كتب :
PHP كود :
Private Sub textbox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress
        If Asc
(e.KeyChar) = Keys.Enter Then
            textbox2
.Focus()
 
       End If
 
   End Sub

    Private Sub textbox2_KeyPress
(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox2.KeyPress
        If Asc
(e.KeyChar) = Keys.Enter Then
            If TextBox2
.Text "كلمة المرور" Then
                Me
.Hide()
 
               Form2.Show()
 
           Else
                MsgBox
("كلمة المرور خاطئة")
 
           End If
 
       End If
 
   End Sub 

تفضل اخي 
فقط قم بتغير كلمة المرور الى كلمة المرور اللي تريدها


شغال 90% 

لان اذا وضعت اليوزر نيم الTextbox1 اي حاجة مثلا 54545433
وكتبت باسورد صحيح رح يدخلني فورم على طول .

اريده نفس الكود حقك 100% لكن لازم اليوزر نيم يكون صحيح ال TextBox1