السلام عليكم ورحمة الله وبركاته
جربت افتح المشروع او المكتبة ولم تنجح معي . يبدو الخطأ الذي ظهر لي لاني لساتني قديم استخدم فيجوال 2008
على العموم من الصورة يبدو ان الاداة هي TabControl مطورة
ابحث عن الخاصيتين RightToLeft و RightToLeftLayout اذا كانتا موجودتان غير الاولى الى Yes والثانية الى True يعني الاثنان معآ وان شاء الله تنجح عندك واعتذر لم ارى الاداة مجرد محاولة مني
عملتلك كود ايضآ ل TabPage مطورة ممكن اذا ما استفدت من الاداة التي لديك تعدل على هذه الاداة
هذا الكود كامل
واعذرني استاذ فتطويرها بالكامل يحتاج بعض الوقت وبالتأكيد انته ادرى مني وتستطيع تطويرها افضل مني
اسأل الله التوفيق لك
جربت افتح المشروع او المكتبة ولم تنجح معي . يبدو الخطأ الذي ظهر لي لاني لساتني قديم استخدم فيجوال 2008
على العموم من الصورة يبدو ان الاداة هي TabControl مطورة
ابحث عن الخاصيتين RightToLeft و RightToLeftLayout اذا كانتا موجودتان غير الاولى الى Yes والثانية الى True يعني الاثنان معآ وان شاء الله تنجح عندك واعتذر لم ارى الاداة مجرد محاولة مني
عملتلك كود ايضآ ل TabPage مطورة ممكن اذا ما استفدت من الاداة التي لديك تعدل على هذه الاداة
هذا الكود كامل
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TabControl1.RightToLeft = Windows.Forms.RightToLeft.Yes
TabControl1.RightToLeftLayout = True
Dim frm As New Form
Dim frm2 As New Form2
frm.Text = "Form1" : frm2.Text = "Form2"
Dim Tpage As New MyTabPage(TabControl1, frm)
Dim Tpage2 As New MyTabPage(TabControl1, Form2)
End Sub
End Class
Public Class MyTabPage
Inherits TabPage
Protected Img As New ImageList
Public Sub New(ByVal Tab As TabControl, ByVal _form As Form)
With _form
.TopMost = False
.TopLevel = False
.FormBorderStyle = FormBorderStyle.None
.Dock = DockStyle.Fill
End With
'''''''''''''''
Img.Images.Add(_form.Icon)
Text = _form.Text
TAB.ImageList = Img
ImageIndex = 0
Controls.Add(_form)
Tab.TabPages.Add(Me)
End Sub
End Classواعذرني استاذ فتطويرها بالكامل يحتاج بعض الوقت وبالتأكيد انته ادرى مني وتستطيع تطويرها افضل مني
اسأل الله التوفيق لك

