Right To Left Treeview

أكتب هذا الكود في قسم التصريحات العامة بالفورم

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type



Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_LAYOUTRTL = &H400000



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 Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

ثم اكتب هذا الكود

Private Sub MakeTreeViewRTL()



Dim rClientRect As RECT

Dim ReturnStyle As Long



ReturnStyle = GetWindowLong(Tree.hwnd, GWL_EXSTYLE)



SetWindowLong Tree.hwnd, GWL_EXSTYLE, ReturnStyle Or WS_EX_LAYOUTRTL



GetClientRect Tree.hwnd, rClientRect

InvalidateRect Tree.hwnd, rClientRect, True



End Sub

لفد افترضت أن اسم التري فيو لديك هو

tree

ثم استدع الإجراء السابق عند تحميل الفورم

وسينعكس كما تريد

جزاكم الله خيرا