rtl treeview & list view

[pirmard]

سلام
آقا من تو پروژم دارم از لیست ویوو و تری ویوو استفاده می کنم . اینا رو چجوری باید برای فارسی راست به چپش کنم ؟

 

[balabala]

فکر نکنم بشه. از کامپوننتهای فارسی استفاده کن.

 

[pirmard]

فکر نکنم بشه. از کامپوننتهای فارسی استفاده کن.

سلام عزیز
شدن که میشه

اینا رو بزارین توی یه ماژول :

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 Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)
Private back_col As ColorConstants

Public 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 treeview
end sub​

حالا مشکلی که داره اینه که منوی پاپ-آپ براش گذاشتم که راست به چپ نیست و خیلی ضایع دیده میشه :wacko:

 

[pirmard]

ضمنا بالا جان اگه تری ویوو فارسی و تکمیل و بدون دردسر میشناسی به ما هم معرفی کن

 

[balabala]

سلام عزیز
شدن که میشه

اینا رو بزارین توی یه ماژول :


بعدش اسم کنترل رو به عنوان آرگومان به این تابع که بالا ایحادش کردیم ارسال می کنیم .
مثلا توی فرم اصلی :


حالا مشکلی که داره اینه که منوی پاپ-آپ براش گذاشتم که راست به چپ نیست و خیلی ضایع دیده میشه :wacko:

شما خودت جوابش رو دادی دیگه
یه سری کامپوننت فارسی بود متاسفانه پیدا نکردم وگرنه آپلود میکردم برات.