[مصمم هاوي]

هذا كود مقتبس من مشروعي في الفيجوال بيسك6 لأداة SSTab1

كود :

Private Sub History_Click()
Form1.Show
Form1.Lb1.Caption = "تصنيفات تاريخ النشر"
Form1.SSTab1.Tab = 0
Form1.SSTab1.TabEnabled(1) = False
Form1.SSTab1.TabEnabled(2) = False

End Sub

Private Sub use_Click()
Form1.Show
Form1.Lb1.Caption = "تصنيفات أسماء المؤلفين"
Form1.SSTab1.Tab = 1
Form1.SSTab1.TabEnabled(0) = False
Form1.SSTab1.TabEnabled(2) = False

End Sub

Private Sub Role_Click()
Form1.Show
Form1.Lb1.Caption = "تصنيفات دور النشر"
Form1.SSTab1.Tab = 2
Form1.SSTab1.TabEnabled(0) = False
Form1.SSTab1.TabEnabled(1) = False

End Sub

فهل يمكن أساتذتي الكرام تحويله لأداة TabControl في الدوت نت

[Taha Okla]

تجميد صفحة يكون من خلال الكود :

كود :

TabControl1.Controls(2).Enabled = False

والتفعيل يكون بالعكس ..
===

أما اخفائها يكون من خلال الكود :

كود :

TabControl1.TabPages.Remove(TabPage1)

وإظهار التبويب من خلال الكود :

كود :

TabControl1.TabPages.Add(TabPage1)

أما تغيير مسمى تبويب يكون من خلال الكود :

كود :

TabControl1.TabPages(1).Text = "منشورات حارتنا"