هل يوجد كود لجعل الـ ScrollBars دائماً على الجهة اليمنى بالـ Listview - مرفق صورة مثال

هل يوجد حل اخواني بارك الله فيكم

من لديه الحل يا اخواني

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

للأسف فإن مكونات Windows Common Controls (و من بينها الـ ListView) لا تدعم خاصية RightToLeft في VB6. و لهذا علينا اللجوء إلى ما يسمى تقنية المرآة (Mirroring) لتغيير اتجاه الـ ListView بأكملها لتكون من-اليمين-إلى-اليسار، كالتالي:

1. في قسم التصريحات العام للـ Form ضع التصريحات التالية:

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 UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private 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

2. تحت التصريحات السابقة قم بتعريف الإجراء التالي:

Private Sub ChangeControlLayout(ByVal ControlHandle As Long)
    Dim OldLong As Long

    OldLong = GetWindowLong(ControlHandle, GWL_EXSTYLE)
    SetWindowLong ControlHandle, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
    UpdateWindow ControlHandle
End Sub

3. في إجراء الحدث Form_Load استدع الإجراء السابق مرتين، هكذا:

    ChangeControlLayout ListView1.hwnd
    ChangeControlLayout FindWindowEx(ListView1.hwnd, 0&, "msvb_lib_header", "")

* الاستدعاء الأول لتغيير اتجاه الـ ListView نفسها، و الاستدعاء الثاني لتغيير اتجاه عناوين رؤوس الأعمدة (Column Headers) لأنها عبارة عن مكون مستقل بذاته لكنه موجود داخل الـ ListView.

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

رائع اخي najy_zl

الله يبارك فيك والله يرزقك من حيث لا تحتسب

والله يعطيك العافية

شكراً لك