شما برای اینکار از کد آقای زواری استفاده کنید. همونطور که نیلوفر خانم عرض کردند هم در این تاپیک (صفحه قبل) و هم در یک تاپیک دیگر این کد وجود دارد (البته برای Treeview). کد مربوطه برای ListView هم کاربرد دارد.اقا اینو می دونم خوب از این حالت که نمیشه برای list view استفاده کرد
برای مثال :
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 Form_Load()
SetWindowLong ListView.hwnd, GWL_EXSTYLE, GetWindowLong(ListView.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
ListView.ListItems.Add.Text = "عبارت فارسی اول"
ListView.ListItems.Add.Text = "عبارت فارسی دوم"
End Sub





پاسخ با نقل قول
