منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل كود من أداة SSTab إلى أداة TabControl - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل كود من أداة SSTab إلى أداة TabControl (/showthread.php?tid=42468)

تحويل كود من أداة SSTab إلى أداة TabControl - مصمم هاوي - 15-09-22

هذا كود مقتبس من مشروعي في الفيجوال بيسك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 في الدوت نت

RE: تحويل كود من أداة SSTab إلى أداة TabControl - Taha Okla - 15-09-22

تجميد صفحة يكون من خلال الكود :
كود :
TabControl1.Controls(2).Enabled = False
والتفعيل يكون بالعكس ..
===

أما اخفائها يكون من خلال الكود :
كود :
TabControl1.TabPages.Remove(TabPage1)


وإظهار التبويب من خلال الكود :
كود :
TabControl1.TabPages.Add(TabPage1)


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

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