Tree view -------> right to left

[محسن بابائی]

اینم tree view که right to left داشته باشه .

[محسن بابائی]

سلام
نمی دونم مشکل چیه. خودم یه بار دیگه دانلود کردم جواب می ده.
این سورسش . خودتون کپی کنید. البته قبلش کامپوننت tree view را اضافه کنید.
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_NOINHERITLAYOUT = &H100000 '; // Disable inheritence of mirroring by children
Private Const WS_EX_LAYOUTRTL = &H400000 '; // Right to left mirroring
Private Const lwa_colorkey = &H1
Private Const lwa_alpha = &H1
Private Const gwl_exstyle = (-20)
Private Const ws_ex_layered = &H80000
Private Sub SetWinControlBiDi(Control As TreeView)
Dim ExStyle As Integer
ExStyle = GetWindowLong(Control.hwnd, gwl_exstyle)
SetWindowLong Control.hwnd, gwl_exstyle, ExStyle Or WS_EX_RTLREADING Or WS_EX_RIGHT Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
End Sub
Private Sub Form_Activate()

Dim mnod As Node
ImageList1.ListImages(1).Key = "a"
Set mnod = TreeView1.Nodes.Add(, , "R", "root", a)
Set mnod = TreeView1.Nodes.Add("R", tvwChild, "C1", "Úáí")
Set mnod = TreeView1.Nodes.Add("C1", tvwChild, "S", "ÇÍãÏ")
Set mnod = TreeView1.Nodes.Add("R", tvwChild, "C2", "ÍÓä")
Set mnod = TreeView1.Nodes.Add("C2", tvwChild, "d", "ãÍãÏ")
Set mnod = TreeView1.Nodes.Add("R", tvwChild, "C3", "ÍÓíä")
Set mnod = TreeView1.Nodes.Add("R", tvwChild, "C4", "ÑÖÇ")
mnod.EnsureVisible
End Sub
Private Sub Form_Load()
'right to left
Dim ExStyle As Integer
ExStyle = GetWindowLong(TreeView1.hwnd, gwl_exstyle)
SetWindowLong TreeView1.hwnd, gwl_exstyle, ExStyle Or WS_EX_RTLREADING Or WS_EX_RIGHT Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
End Sub

[amirsadeghi]

بابا این که خوب جواب میده حداقل تو سیستم من

[حامد مصافی]

سلام
گمان می کنم این سورس مال دوست قدیمیم بابک زواری باشه!
به هر حال سورس راست به چپ رو قبلاً در این سایت به کررات آپلود کردم

[محسن بابائی]

سلام
گمان می کنم این سورس مال دوست قدیمیم بابک زواری باشه!
به هر حال سورس راست به چپ رو قبلاً در این سایت به کررات آپلود کردم

سلام
من نمی دونم این نمونه سورس را آقای زواری قبلا گذاشته یا نه و لی این سورس را خودم نوشته ام . در حالی که برای آقای زواری هم احترام خاصی قائلم.

[amirsadeghi]

فکر نمی کنین اینجا مسئله مهم تر کار راه اندازیه
بیخودی به هم گیر ندین

[محسن بابائی]

فکر نمی کنین اینجا مسئله مهم تر کار راه اندازیه
بیخودی به هم گیر ندین

قربون آدم چیز فهم . حالا بیا و خوبی کن.

[حامد مصافی]

سلام
من نمی دونم این نمونه سورس را آقای زواری قبلا گذاشته یا نه و لی این سورس را خودم نوشته ام . در حالی که برای آقای زواری هم احترام خاصی قائلم.


بسیار خب. شرمنده

جناب بابایی اگه جستجو می کردید به این نتیجه می رسیدید
http://barnamenevis.org/forum/showthread.php?t=35354