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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سؤال عن كود (/showthread.php?tid=3176)

سؤال عن كود - kum2002 - 13-06-14

عندما يكون عندنا اكثر من textbox
نتنقل من بينهم
اريد كود يجعلني انتقل من textbox لاخر عن طريق ضغط enter
فمثلا حينما اشغل البرنامج
اكتب في الخانة الاولى اضغط enter مباشرة المؤشر ينتقل للtextbox الثاني وهكذا


شاكر لكم تعاونكم :

RE: سؤال عن كود - vbnet - 13-06-14

.....

منقول

كود :
Private Sub Form_Load()
    ' يمكن الإستغناء عن هذا السطر بضبط هذه الخاصية عن طريق خصائص الفورم
    Me.KeyPreview = True
    
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Dim i As Long: For i = Me.Count - 1 To 0 Step -1
            If Me.Controls(i).Name = Me.ActiveControl.Name And TypeName(Me.Controls(i - 1)) = "TextBox" Then
                Me.Controls(i - 1).SetFocus
                Exit For
            End If
        Next i
    End If
End Sub

.....

RE: سؤال عن كود - kum2002 - 14-06-14

تسلم اخوي

RE: سؤال عن كود - king2512010 - 14-06-14

جزاك الله كل الخير اخى

فى ميزان حسناتك ان شاء الله

....