[أم عبد العزيز]

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

أنشأت فورم يحتوي على تبويبات tab pages

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

2/ أنا لا أريد من المستخدم أن يتنقل بين التبويبات من خلال رؤوس التبويبات، (يعني يجب أن يكون التنقل بترتيب من ص1 إلى ص2 إلى ص3، وهكذا) فكيف ذلك ؟

وشكرا

[3booody]

عليكم السلام ورحمة الله وبركاته
اضيفي 2 بوتون واحد ForWard والثاني Back
ForWard ضعي هذا الكود

كود :

TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex + 1)

و Back

كود :

TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex - 1)

[Sajad]

السلام عليكم

او مباشرة بدون استخدام الItem

PHP كود :

TabControl1.SelectedTab = TabControl1.TabPages(TabControl1.SelectedIndex + 1) 


او

PHP كود :

TabControl1.SelectTab(TabControl1.SelectedIndex + 1) 


[أم عبد العزيز]

جزاكم الله خيرا،

واذا اردت ان امنع المستخدم من التنقل بين التبويبات عبر الضغط على رؤوس التبويبات العلوية
فكيف ذلك؟
يعني فقط يستطيع الانتقال عبر زر التالي والسابق،

المقصود مثل استمارة تسجيل، لا يتمكن المستخدم من التنقل عبر التبويبات مثل ما يريد وإنما بالترتيب الذي أضعه

أتمنى ان تكون وضحت الفكرة

[أم عبد العزيز]

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

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

[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

بالتوفيق

[أم عبد العزيز]

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

لكن لم يتعرف الفيجوال على هذه العبارة :
CanChangePage
؟

نوع الفيجوال عندي 2008

[3booody]

السلام عليكم ورحمة الله وبركاته
[COLOR="#800000"]الاخ sooriaty03 صرح عن CanChangePage كــ متغير منطقي وهو
Dim CanChangePage As Boolean = False[/COLOR]

[أم عبد العزيز]

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


تم بحمد الله