التنقل بين التبويبات بإستخدام ازرار معينة أو محددة فى الكيبورد

[figo82eg]

ارجو المساعدة فى كيفية التنقل بين التبويبات بإستخدام ازرار معينة أو محددة فى الكيبورد مثل زر pageup و pagedown

مرفق مثال من أحد الأخوة بالمنتدى أريد التطبيق عليه

Modern UI Access - Amr Ashraf.rar

[figo82eg]

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

[أبو إبراهيم الغامدي]

أهلا بك..

7 ساعات مضت, figo82eg said:

مثل زر pageup و pagedown

يمكن استخدام الشفرة التالية في حدث النموذج KeyDown

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Static I As Integer, PgCnt As Integer
    PgCnt = Me.MyTabs.Pages.Count - 1
    
    Select Case KeyCode
        Case Is = 34
            If I <= 0 Then
                Me.MyTabs = 0
            Else
                I = I - 1
                Me.MyTabs = I
            End If
            
        Case Is = 33
            If I >= PgCnt Then
                Me.MyTabs = PgCnt
            Else
                I = I + 1
                Me.MyTabs = I
            End If

    End Select
    
    Debug.Print KeyCode

End Sub

TabCtrlNav.zip

[figo82eg]

اشكرك أستاذى الغالى هو المطلوب بالفعل