تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عرض اداه مخصصه من اليمين الى اليسار.
#2
السلام عليكم ورحمة الله وبركاته

جربت افتح المشروع او المكتبة ولم تنجح معي . يبدو الخطأ الذي ظهر لي لاني لساتني قديم استخدم فيجوال 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

واعذرني استاذ فتطويرها بالكامل يحتاج بعض الوقت وبالتأكيد انته ادرى مني وتستطيع تطويرها افضل مني
اسأل الله التوفيق لك
الرد }}}


الردود في هذا الموضوع
RE: مساعدة في عرض اداه مخصصه من اليمين الى اليسار. - بواسطة 3booody - 14-12-19, 10:08 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم