كيف يمكن جعل ال listview يعرض النصوص من اليمين الى اليسار

هذه الخاصية غير موجودة بها

والله أنا كرهت البرمجة بسبب الزفت فيو أقصد list view وسألت عن خصائصها في أكثر من منتدي ولا فائدة نتمني من أسائذة الفيجوال وهم كثيرون بالمنتدي أن يساعدونا ويخصصوا موضوع وافي عن تلك الأداة

وشكرا

يبقي مفيش حل غير إنك تستخدم توابع API

أنظر المثال المرفق

Project.rar

الأخ الفاضل ...

راجع المثال: Tree.zip ، الموجود فى الموضوع: مطلوب الكتابة من اليمين لليسار في مربع نص

حيث يحتوى على الدالة: SetMirror، وهى مسئولة عن تحويل من السيار لليمين أو العكس، كما فى الـ Tree أو أى أداة أخرى

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_EXSTYLE = -20
Private Const WS_EX_LAYOUTRTL = &H400000

Private Sub SetMirror(ByVal hwnd As Long, bRight As Boolean)
	Dim OldLong As Long

	OldLong = GetWindowLong(hwnd, GWL_EXSTYLE)
	If bRight Then
		Call SetWindowLong(hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL)
	Else
		Call SetWindowLong(hwnd, GWL_EXSTYLE, OldLong And (&HFFFFFFFF Xor WS_EX_LAYOUTRTL))
	End If
End Sub

ولإستدعائها

	Call SetMirror(ListView1.hwnd, True)

شكراً

شكرا اخى الكريم على هذا الكود الرائع

ولكن هناك مشكلة عند تطبيقه مع ListView فالكود يغير المحازاة من اليسار لليمين لمحتوى الأداه وليس للعنوان Header

مرفق لك المثال مرة اخرى

Project.rar