تحرك داخل user form

[checles]

برجاء المساعده في عند فتح user form يقف علي textbox معين 

و عند الضغط علي زر سهم الايمن من علي الكيبورد يذهب الي اليمن وعند الضغط علي الزر سهم الايسر 

 

وشكرا 

 

[محمد هشام.]

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

 هناك خطوات بسيطة تمكنك من فعل ذالك 

أرفق ملفك أخي للاشتغال عليه 

تم تعديل أغسطس 23 بواسطه محمد هشام.

[أ / محمد صالح]

الافتراضي هو التنقل بزر tab و shift+tab ويمكن ذلك بضبط خاصية tabindex الخاصة بكل textbox 

العنصر الذي تريد أن يفتح النموذج عليه تجعل له رقم صفر في خاصية tabindex في نافذة الخصائص 

بالتوفيق 

[محمد هشام.]

تفضل اخي جرب هدا الاقتراح 

 

حاول اولا ترتيب عناصر التيكست بوكس على اليوزرفورم بشكل متتابع 

وفي وحدة class module ضع الكود التالي  مع تسميته مثلا ب Officena كما في الصورة ادناه 

Public WithEvents MultTextbox As MSForms.TextBox
Private Sub MultTextbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If TypeOf MultTextbox Is MSForms.TextBox Then
        Select Case KeyCode
            Case 37 ' السهم اليسار
                SendKeys "+{TAB}"
            Case 39 ' السهم اليمين
                SendKeys "{TAB}"
            Case Else
                ' السماح لجميع المفاتيح الأخرى بالعمل بشكل طبيعي
                Exit Sub
        End Select
    End If
End Sub
Private Sub MultTextbox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim ctrl As MSForms.Control
    Dim isTextBox As Boolean
    isTextBox = TypeOf MultTextbox Is MSForms.TextBox
    
    If isTextBox Then
        With USERFORM1 '<<======== 'قم بتعديل  الاسم الى اسم النمودج الخاص بك
            For Each ctrl In .Controls
                ' التحقق من أن العنصر هو TextBox
                If TypeOf ctrl Is MSForms.TextBox Then
                    ctrl.BackColor = RGB(255, 255, 255)  'ابيض كافتراضي'  لون الخلفية
                End If
            Next
            
            MultTextbox.BackColor = RGB(255, 255, 128) ' تغيير لون الخلفية للأصفر عند التركيز
        End With
    End If
End Sub

وفي داخل اليوزرفورم ضع الكود التالي 

Dim i As Integer
Dim ctrl As Control
Dim TxtBx() As New Officena
Private Sub UserForm_Initialize()
    Dim i As Long, ctrl As MSForms.Control
    i = 1
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            ReDim Preserve TxtBx(i)
            Set TxtBx(i).MultTextbox = ctrl
            i = i + 1
        End If
    Next

End Sub

تفضل اليك المرفقات للتجربة 

 

User_Move left and right.rar

تم تعديل أغسطس 23 بواسطه محمد هشام.