RightToLeft کردن کنترل هایی که این خاصیت را ندارند؟؟

[HO457]

با سلام و تبریک سال نو به همه دوستان میخواستم بدونم کنترل هایی مثل ComponentOne یا Xceed که خاصیت RightToLeft ندارند رو چجوری میشه RightToLeft کرد؟ :گیج:

[bashir_nashi]

سلام.
یه بار تو همین سایت در موردش بحث شده فکر کنم.
بگرد ... :موفق:

[HO457]

هیج روشی کار نکرد حتی کنترل ها رو Mirror کردم ولی Mirror روی این کنترل ها جواب نمیده متن های منوها و Toolbar ها هم برعکس میشه. روش دیگه ای وجود نداره؟ :گیج:

[MM_Mofidi]

API But I dont remember TheFunction Name Now :mrgreen:

[HO457]

ممنون از جوابتون، ولی مشکل من همین تابع هستش. اگه یه جوری بتونین روشش رو بگین ممنون میشم چون خسته شدم از بس روش کار کردم!!! خیلی فوری هستش :sorry: :گیج:

[حامد مصافی]

API But I dont remember TheFunction Name Now



برای بعضی از کنترل ها ممکنه جواب نده و برای بعضی دیگه ممکنه کنترل به درستی Refresh نشه
به هر حال



Private Const GWL_EXSTYLE = -20
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const WS_EX_NOINHERITLAYOUT = &H100000
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Public Sub RTLForm(hWnd As Long)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
SetWindowLong hWnd, GWL_EXSTYLE, OldLong BitOr _
WS_EX_LAYOUTRTL BitOr _
WS_EX_NOINHERITLAYOUT
End Sub

[HO457]

دوست عزیز ممنون، ولی این کد رو نتونستم اجرا کنم، روش Mirror رو هم امتحان کردم ولی نوشته های کنترل هام هم Mirror میشه :mad: