[sooriaty03]

أم عبد العزيز كتب :كيف يمكنني منع المستخدم من التنقل عبر التبويبات الموجودة في الأعلى من فضلكم ؟

أريد التنقل فقط عن طريق زر التالي والسابق ، لا عن طريق التبويبات العلوية ؟

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

تفضلي أختي
هذا هو الكود

كود :

Dim CanChangePage As Boolean = False
    Private Sub TabControl1_Selecting(ByVal sender As Object, ByVal e As System.Windows.Forms.TabControlCancelEventArgs) Handles TabControl1.Selecting
        If CanChangePage = False Then
            e.Cancel = True
        End If
    End Sub
    'هذا زر التالي
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CanChangePage = True
        TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex + 1)
        CanChangePage = False
    End Sub
    'هذا زر السابق
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CanChangePage = True
        TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex - 1)
        CanChangePage = False
    End Sub

بالتوفيق