TreeView Right to Left

[farzadnia]

اگه كسي treeview كه امكان راست به چپ شدن رو سراغ داره خواهش مي كنم معرفي كنه
ممنون مي شم

[hossis]

'اين كد را در بخش فرم وارد كنيد

Option Explicit
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

Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Public Sub SetRtoL(Ctl As Control)
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

سپس نام tree View را در مقدار اين كنترل بنويسيد
Sup Form Load
setrtol treeVew1
end sub

[ashkan]

جالب بود نمیدونستم.

[farzadnia]

hossis جان ممنونم. واقعآ تكنيك خيلي جالبي بود. اميدوارم به صورت يك برنامه در خود سايت قرار بدي چون فكر مي كنم به درد خيليها بخورد.
موفق باشي

[seyyed]

سلام
آقا ممنون از پاسختون
ولي اين كار روي كنترل RichTextBox كار نمي كنه
اين رو بايد چه كارش كرد؟