تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال عن كود
#1
عندما يكون عندنا اكثر من textbox
نتنقل من بينهم
اريد كود يجعلني انتقل من textbox لاخر عن طريق ضغط enter
فمثلا حينما اشغل البرنامج
اكتب في الخانة الاولى اضغط enter مباشرة المؤشر ينتقل للtextbox الثاني وهكذا


شاكر لكم تعاونكم
:
الرد }}}
تم الشكر بواسطة:
#2
.....

منقول

كود :
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

.....
الرد }}}
تم الشكر بواسطة: kum2002
#3
تسلم اخوي
الرد }}}
تم الشكر بواسطة:
#4
جزاك الله كل الخير اخى

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

....
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم