[hannileo]

(12-11-18, 11:13 PM)AL_BRNS كتب : وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :

Option Explicit
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

 Private Sub SetRtL(Ctl As Control)
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, _
GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) _
Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

Private Sub Form_Load()
SetRtL ListView1
End Sub 


بالتوفيق .

شكرا لك وبارك الله بك  استاذ AL_BRNS        


لقد وضعت هذا الكود في الفورم ولكن ظهرت رسالة خطأ عند التنفيذ وعندما ازلت الكود لم تعد تظهر هذه الرسالة كما مبين بالصورة


وبكل الاحوال جربتها على مثال خارجي اضفت listview للفورم ونسخت الكود ولم يتغير شيئ كما في الصورة الثانية