الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في التنقل بين مربعات النصوص

بدأه ابو رفيق في 18 فبراير 2013 · 2 رد · 1,445 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

عندي فورم   به مجموعة من مربعات النصوص

 

من اجل التسهبل على المستخدم في عملية الإدخال بستخدم الكود التالي

 

 

On Error Resume Next
Select Case e.KeyCode
Case Keys.Enter
SendKeys.SendWait("{TAB}")
End Select

 

في التنقل لمربع النص التالي من خلال المفتاح Enter وعند الوصول لآخر مربع نص يقوم بعملية حفظ للمربعات داخل قاعدة البيانات

 

من خلال استدعاء ميديول للحفظ  وفي آخر المديول أكتب الانتقال لمربع البداية وليكن مربع النص 3 مثلا

 

المشكلة أنه ينتقل مباشرة للمربع رقم 4 ولا أدري لماذا

 

أرجوا المساعدة

:)  :)  :)  شكرا لكل من علمني حرفا :)  :)  :)


#2

في حدث KeyDown اكتب هذا الكود

 

 

 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TextBox2.Focus()
        End If
    End Sub

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 18 فبراير 2013 في 19:22

1

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3
محمد فؤاد تركي كتب:

في حدث KeyDown اكتب هذا الكود

 

 

 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TextBox2.Focus()
        End If
    End Sub

 

جزاك الله أخي على الرد وبالفعل تم حل المشكلة بما تفضلت

:)  :)  :)  شكرا لكل من علمني حرفا :)  :)  :)


مواضيع مشابهة