السلام عليكم ورحمة الله وبركاته
أنشأت فورم يحتوي على تبويبات tab pages
كيف يمكنني أن أجعل زر التالي ينتقل من التبويب الأول إلى التبويب الثاني
وزر السابق يعود إلى التبويب السابق
2/ أنا لا أريد من المستخدم أن يتنقل بين التبويبات من خلال رؤوس التبويبات، (يعني يجب أن يكون التنقل بترتيب من ص1 إلى ص2 إلى ص3، وهكذا) فكيف ذلك ؟
وشكرا
عليكم السلام ورحمة الله وبركاته
اضيفي 2 بوتون واحد ForWard والثاني Back
ForWard ضعي هذا الكود
كود :
TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex + 1)
و Back
كود :
TabControl1.SelectedTab = TabControl1.TabPages.Item(TabControl1.SelectedIndex - 1)
السلام عليكم
او مباشرة بدون استخدام الItem
PHP كود :
TabControl1.SelectedTab = TabControl1.TabPages(TabControl1.SelectedIndex + 1)
او
PHP كود :
TabControl1.SelectTab(TabControl1.SelectedIndex + 1)
جزاكم الله خيرا،
واذا اردت ان امنع المستخدم من التنقل بين التبويبات عبر الضغط على رؤوس التبويبات العلوية
فكيف ذلك؟
يعني فقط يستطيع الانتقال عبر زر التالي والسابق،
المقصود مثل استمارة تسجيل، لا يتمكن المستخدم من التنقل عبر التبويبات مثل ما يريد وإنما بالترتيب الذي أضعه
أتمنى ان تكون وضحت الفكرة
كيف يمكنني منع المستخدم من التنقل عبر التبويبات الموجودة في الأعلى من فضلكم ؟
أريد التنقل فقط عن طريق زر التالي والسابق ، لا عن طريق التبويبات العلوية ؟
أم عبد العزيز كتب :كيف يمكنني منع المستخدم من التنقل عبر التبويبات الموجودة في الأعلى من فضلكم ؟
أريد التنقل فقط عن طريق زر التالي والسابق ، لا عن طريق التبويبات العلوية ؟
السلام عليكم ورحمة الله وبركاته
تفضلي أختي
هذا هو الكود
كود :
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
السلام عليكم ورحمة الله وبركاته
[COLOR="#800000"]الاخ sooriaty03 صرح عن CanChangePage كــ متغير منطقي وهو
Dim CanChangePage As Boolean = False[/COLOR]
جزاكم الله كل خير
تم بحمد الله