Listview Right to Left

[mpmsoft]

سلام دوستان من یک کد می خوام که بتونم این آبجکتو راست به چپ کنم

[a_roshanfekr2]

اگه جستجو می کردی پیداش می کردی
از تو همین سایت گرفتمش ولی صاحب پست رو یادم نیست کی بود

ازش تشکر می کنم ، کار من رو هم راه انداخت


Const GWL_EXSTYLE = -20
Const WS_EX_LAYOUTRTL = &H400000
Const WS_EX_NOINHERITLAYOUT = &H100000

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

Declare Function EnumChildWindows Lib "User32.dll" ( _
ByVal hWndParent As Long, _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Sub RTLForm(hWnd As Long)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
SetWindowLong hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
End Sub

Private Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
RTLForm hWnd
EnumChildProc = True
End Function

Public Sub RTLWindow(hWnd As Long, Optional GetAllChilds As Boolean = False)
RTLForm hWnd
If GetAllChilds Then EnumChildWindows hWnd, AddressOf EnumChildProc, ByVal 0&
End Sub

این طوری استفاده کن:


RTLWindow ListView1.hwnd,True

[CodeMasterX]

ممنون من هم لازمش داشتم.

[حامد مصافی]

اگه جستجو می کردی پیداش می کردی
از تو همین سایت گرفتمش ولی صاحب پست رو یادم نیست کی بود

ازش تشکر می کنم ، کار من رو هم راه انداخت

این کد رو من نوشتم.
قابل شما و دوستان رو نداره.