سؤال فى list view

السلام عليكم...

في Module نضع الأكواد التالية:

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYOUTRTL = &H400000

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Sub ChangeControlLayout(ByVal ControlHandle As Long, ByVal ArabicLayout As Boolean)
    Dim OldLong As Long

    OldLong = GetWindowLong(ControlHandle, GWL_EXSTYLE)
    If ArabicLayout Then
        SetWindowLong ControlHandle, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
    Else
        SetWindowLong ControlHandle, GWL_EXSTYLE, OldLong And (Not WS_EX_LAYOUTRTL)
    End If
    UpdateWindow ControlHandle
End Sub

في الحدث Load للنافذة المحتوية على الـ ListView نضع السطرين التاليين:

ChangeControlLayout ListView1.hWnd, True
ChangeControlLayout FindWindowEx(ListView1.hWnd, 0&, "msvb_lib_header", ""), True

حيث السطر الأول لقلب محتوبات الـ ListView و السطر الثاني لقلب الـ Header.

نرجو الاستفادة و السلام.

ممكن التعديل على المثال بارك الله فيك

لانى لم افهم الكود

الرابط الخاص بي

تفضلي :happy:

وشكراً للأخ ناجي

ListView.rar