ليست درختي راست به چپ treeview

به نام خدا
با سلام خدمت دوستان
كسي كامپوننت راست به چپ ليست درختي رو داره
مي خوام treeview رو right to left كنم
كسي پيشنهادي داره؟
يا حق

کد:

---

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'TreeView1 RightToLeft True
Private Const WS_EX_LAYOUTRTL = 4194304 'TreeView1 RightToLeft True
Private Const GWL_EXSTYLE = -20 'TreeView1 RightToLeft True
 
Private Sub Form_Load()
SetWindowLong TreeView1.hWnd, GWL_EXSTYLE, WS_EX_LAYOUTRTL 'TreeView1 RightToLeft True
TreeView1.Refresh 'TreeView1 RightToLeft True
End Sub

---

نقل قول:

---

نوشته شده توسط Romina2006 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'TreeView1 RightToLeft True
Private Const WS_EX_LAYOUTRTL = 4194304 'TreeView1 RightToLeft True
Private Const GWL_EXSTYLE = -20 'TreeView1 RightToLeft True
 
Private Sub Form_Load()
SetWindowLong TreeView1.hWnd, GWL_EXSTYLE, WS_EX_LAYOUTRTL 'TreeView1 RightToLeft True
TreeView1.Refresh 'TreeView1 RightToLeft True
End Sub

---

---

به نام خدا
با سلام
دوست عزيز خيلي ممنون
اميدوارم هميشه تو كاراي خير موفق باشي.
يا حق

كد رومينا درسته منتها بهتره كه قبلش استيل پنجره رو بگيري و با مقدار Ws_ex_layoutrtl تلفيق كني چون ممكنه كه پنجره خصوصيت‌هاي ديگه‌اي هم داشته باشه كه اينطوري از بين بره