این کد رو در یک ماژول کپی کنید:
Rem Hamed Masafi
Rem Ineed: No Module!
'##ModelId=43DEADE7000F
Const GWL_EXSTYLE = -20
'##ModelId=43DEADE70020
Const WS_EX_LAYOUTRTL = &H400000
'##ModelId=43DEADE7002E
Const WS_EX_NOINHERITLAYOUT = &H100000
'##ModelId=43DEADE7003E
Const RDW_INVALIDATE = &H1
'##ModelId=43DEADE603B9
Private Type RECT
'##ModelId=43DEADE603C8
Left As Long
'##ModelId=43DEADE603D8
Top As Long
'##ModelId=43DEADE603D9
Right As Long
'##ModelId=43DEADE70000
Bottom As Long
End Type
'##ModelId=43DEADE7004E
Private Declare Function RedrawWindow Lib "user32.dll" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
'##ModelId=43DEADE7006E
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long
'##ModelId=43DEADE7007F
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'##ModelId=43DEADE7009C
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'##ModelId=43DEADE700BB
Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
'##ModelId=43DEADE700CE
Private Sub RTLForm(hwnd As Long)
Dim OldLong As Long
Dim rc As RECT
OldLong = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
GetWindowRect hwnd, rc
RedrawWindow hwnd, rc, 0&, RDW_INVALIDATE
End Sub
'##ModelId=43DEADE700DB
Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
RTLForm hwnd
EnumChildProc = True
End Function
'##ModelId=43DEADE700FA
Public Sub RTLWindow(hwnd As Long, Optional GetAllChilds As Boolean = False)
RTLForm hwnd
If GetAllChilds Then EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0&
End Sub
و سپس :
RTL_Form.RTLWindow Treeview1.hwnd, True
راست چین کردن TreeView
نقل قول: راست چین کردن TreeView
نوشته شده توسط BlackDal
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول