اداة ال tabcontrol

غسان.ع كتب:

السلام عليكم ورحمة الله وبركاته

وضعت على الفورم اداة ال tabcontrol لكن المشكلة انها تبدأ من اليسار  ،مع ان الخاصية للاداة والفورم من اليمين  إلى اليسار ، فما الحل ؟؟؟؟؟؟؟؟؟ :(

←

ربما يا أخي يمكنك إستحدام خاصية المرآه لحل هذه المشكلة كما شرحها الأخ محمد النحراوي في هذا اللنك

/index.php?showtopic=53417

حيث ان جمبع الأدوات ستصبح معكوسه بما فيها Tab Control

أرجو أن أكون افدتك

والسلام عليكم

mostafa|lotfy كتب:

ربما يا أخي يمكنك إستحدام خاصية المرآه لحل هذه المشكلة كما شرحها الأخ محمد النحراوي في هذا اللنك

/index.php?showtopic=53417

حيث ان جمبع الأدوات ستصبح معكوسه بما فيها Tab Control

أرجو أن أكون افدتك

والسلام عليكم

←

وطبعاً هناك الحل من مايكروسوفت كما ذكره الأخ عابد الرحمن في هذا اللنك

http://204.157.36.16/index.php?showtopic=85644

وهو عبارة عن ملف DLL من مايكروسوفت يدعم الأتجاه من اليمين الي اليسارفي كثير من الأدوات ومنها ال Tab Control

والسلام عليكم

أخي إن كان عندك VS2005 فالحل بسيط جداً

وهو تغير خاصية الفورم ٌRightToLeftLayout=true من نافذة الخصائص

لقد ازلت الملف وال tab control لا تتغير من اليمين لليسار مع ان الفورم rightToLeft=true

ما الحل

وانا ايضا نزلت الملف لكن بدون فائدة :s

السلام عليكم

/index.ph...topic=64723&hl=

معلش إذا ممكن تشرحوا كيفية استعمال هذا الكلاس ...يعني كيف استخدمه؟؟

معلش خذوني على قد عقلي فأنا لست خبير :rolleyes:

خلص حليت المشكلة اشكرك اخي waleedhm على المساعدة لكن يجب تعديل الكود بعض الشيء لكي لا تعكس الادوات بداخل الtabcontrol

Protected Overrides ReadOnly Property CreateParams() As _

System.Windows.Forms.CreateParams

Get

Const WS_EX_LAYOUTRTL As Integer = &H400000

Const WS_EX_NOINHERITLAYOUT As Integer = &H100000

Dim MirrorExStyle As System.Windows.Forms.CreateParams

MirrorExStyle = MyBase.CreateParams

MirrorExStyle.ExStyle = MirrorExStyle.ExStyle Or

WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT

Return MirrorExStyle

End Get

End Property

[code]

هذا هو الكود مرة اخرى بصورة اوضح

 Protected Overrides ReadOnly Property CreateParams() As _
System.Windows.Forms.CreateParams
        Get
            Const WS_EX_LAYOUTRTL As Integer = &H400000
            Const WS_EX_NOINHERITLAYOUT = &H100000
            Dim MirrorExStyle As System.Windows.Forms.CreateParams
            MirrorExStyle = MyBase.CreateParams

            MirrorExStyle.ExStyle = MirrorExStyle.ExStyle Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
            Return MirrorExStyle
        End Get
    End Property

طبعا كي لا تجعل الأدوات تنعكس علي الفورم قم بإلغاء الجزء الأخير من أول كلمة OR في لبرنامج السابق فيصبح الأمر كالتالي

MirrorExStyle.ExStyle = MirrorExStyle.ExStyle

فقط

والسلام عليكم

مرحباااااا

طيب واين اضع هذا الكود

اضف كلاس وضع فيه الكود

مرحباا

طيب واستدعيه أزاى

هذا هو الكلاس كاملا

Imports System.ComponentModel
Public Class tabcontrol
	Inherits System.Windows.Forms.TabControl
	Const WS_EX_LAYOUTRTL As Integer = &H400000

	Private _RTL As Boolean = True
	Public Property Mirrored() As Boolean
		Get
			Return _RTL
		End Get
		Set(ByVal Value As Boolean)
			If _RTL <> Value Then
				_RTL = Value
				MyBase.OnRightToLeftChanged(EventArgs.Empty)
			End If
		End Set
	End Property

	Protected Overrides ReadOnly Property CreateParams() As _
System.Windows.Forms.CreateParams
		Get
			Const WS_EX_LAYOUTRTL As Integer = &H400000
			Const WS_EX_NOINHERITLAYOUT As Integer = &H100000
			Dim MirrorExStyle As System.Windows.Forms.CreateParams
			MirrorExStyle = MyBase.CreateParams

			MirrorExStyle.ExStyle = MirrorExStyle.ExStyle Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
			Return MirrorExStyle
		End Get
	End Property

End Class

لا تنسى ان تضع Imports System.ComponentModel قبل تعريف الكلاس

الان بعد الانتهاء من هذا الكلاس ستجد ان اسم الكلاس موجود في الكومبوننت في التولبوكس

تستطيع سحب هذا الكمبوننت كاي اداة اخرى وستلاحظ انه يعطيك تيبكونترول يبدأ من اليمين

ارجو ان يكون كلامي واضح بالنسبة لك ، وانا جاهز لاي استفسار اخر لكن في حدود امكانياتي المتواضعة طبعا

تحياتي

مشكور اخى

تحياتى..