treeview ی فارسی

[ILOVEVB]

سلام
کنترل treeview ذاتاً خاصیت right to left ندارد آیا کنترلی داریم که کار treeview را بکند و خاصیت right to left را نیز داشته باشد .
ممنون :flower:

[بابک زواری]

بله از همان tree خود وی بی استفاده کن و کد زیر رو هم استفاده کن


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 TreeView.hwnd, GWL_EXSTYLE, GetWindowLong(TreeView.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL


Dim nodX As Node
Set nodX = TreeView.Nodes.Add(, , "R", "Root")
nodX.Expanded = True
Set nodX = TreeView.Nodes.Add(, , "P", "Parent")
nodX.Expanded = True
Set nodX = TreeView.Nodes.Add("R", tvwChild, , "Child 1")
Set nodX = TreeView.Nodes.Add("R", tvwChild, , "Child 2")
Set nodX = TreeView.Nodes.Add("R", tvwChild, , "Child 3")
Set nodX = TreeView.Nodes.Add("P", tvwChild, , "Child 4")
Set nodX = TreeView.Nodes.Add("P", tvwChild, , "Child 5")
Set nodX = TreeView.Nodes.Add("P", tvwChild, , "Child 6")

End Sub

[M-Gheibi]

:flower: :)

[R_BABAZADEH]

ممنون
جالب بود

[(سیدشریفی)]

آقا بابک خیلی آلی بود .
:تشویق:
:flower:

[Hamedm]

عالی بود :flower:

[niloufar]

سلام
دمت گرم. خیلی حال داد.

ضمنا می تونید از VSFlexGrid با Set کردن مشخصه OutlineBar از آن هم استفاده کنید که خودش RightToLeft هم داره.

[Payam Moradi]

سلام
نمیشه برای ListView هم چنین کاری کرد؟ چون وقتی که از این کنترل به صورت Report استفاده میکنیم تیر ستونها بر عکس نمایش داده میشه.
برای این هم راه حلی هست؟

اولی که خیلی جالب بود.

تشکر :flower:

[بابک زواری]

خوب برای ListView هم دوستان با APi بالا یک تست بکنن جواب بدن

[Hamedm]

سلام


خوب برای ListView هم دوستان با APi بالا یک تست بکنن جواب بدن
من امتحان کردم و جواب داد.

در پناه حق موفق باشید و پرتوان

[بابک زواری]

ممنون آقا حامد لطف کردی

[حامد مصافی]

من که الان به کامپیوتر دسترسی ندارم ولی تا جایی که یادمه این کد با tree view مشکل داشت

[بابک زواری]

شما هم تست کنید ببینیم که آیا آقا حامد اشتباه تست کرده یا
شما با یک موضوع دیگه اشتباه گرفتید ؟

[Payam Moradi]

سلام

نه !!

از کنترل ListView به صورت Report استفاده کنید. نمیشه. ؟؟

اگه وقت داشتید بگید.
ممنون.

[حامد مصافی]

من که الان به کامپیوتر دسترسی ندارم ولی تا جایی که یادمه این کد با tree view مشکل داشت



سلام
ببخشید، منظور من ListView بود !! ( در حالت Report )
من اگه به خونه برگشتم حتماً این موضوع رو بررسی خواهم کرد

[بابک زواری]

آقای BlackDal شما از 27 فروردین تا 1 اردیبهشت به خونه برنگشتید ؟ :wink:

[niloufar]

آقای BlackDal شما از 27 فروردین تا 1 اردیبهشت به خونه برنگشتید ؟
سلام
مثل اینکه این آقا حامد مسافرت هستند. من هم از 24 فروردین منتظر یه پاسخ از ایشان هستم. :oops:

[Hamedm]

سلام


آقای BlackDal شما از 27 فروردین تا 1 اردیبهشت به خونه برنگشتید ؟
سلام
مثل اینکه این آقا حامد مسافرت هستند. من هم از 24 فروردین منتظر یه پاسخ از ایشان هستم. :oops:
من این وسط چیکارم؟ بنظرم منظور ایشون آقای BlackDal است.

در پناه حق موفق باشید و پرتوان

[niloufar]

سلام

من این وسط چیکارم؟ بنظرم منظور ایشون آقای BlackDal است.
آقا حامد محمدی، البته و صد البته شما هم آقا حامد هستید ولی باز البته و صد البته که تنها یک آقا حامد در زمین وجود ندارد :embr: من آقا حامد مصافی را گفتم نه آقا حامد محمدی :oops:

[Hamedm]

سلام

سلام

من این وسط چیکارم؟ بنظرم منظور ایشون آقای BlackDal است.
آقا حامد محمدی، البته و صد البته شما هم آقا حامد هستید ولی باز البته و صد البته که تنها یک آقا حامد در زمین وجود ندارد :embr: من آقا حامد مصافی را گفتم نه آقا حامد محمدی :oops:
سرکار خانوم نیلوفر، به من حق بدید چون در این سایت همه آقای مصافی را به نام BlackDal میشناسند نه حامد مصافی.
آقای زواری و دیگر مسئولین بخش، ببخشید که دارم پست اضافی میفرستم.

در پناه حق موفق باشید و پرتوان

[حامد مصافی]

سلام
ببخشید دوستان من مسافرت بودم
مشکل List View هم حل شد!

در واقع Header کنترل List View یک پنجره فرزند نسبت به خود کنترل است ( بوسیله ++spy می توانید این موضوع را بررسی کنید )
برای حل این مشکل من هندل Header را هم به دست آوردم

ابتدا این کد را در یک ماژول کپی کنید


Rem Hamed Masafi
Rem Ineed: No Module!

Const GWL_EXSTYLE = -20
Const WS_EX_LAYOUTRTL = &H400000
Const WS_EX_NOINHERITLAYOUT = &H100000

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

Declare Function EnumChildWindows Lib "User32.dll" ( _
ByVal hWndParent As Long, _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Sub RTLForm(hWnd As Long)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
SetWindowLong hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
End Sub

Private Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
RTLForm hWnd
EnumChildProc = True
End Function

Public Sub RTLWindow(hWnd As Long, Optional GetAllChilds As Boolean = False)
RTLForm hWnd
If GetAllChilds Then EnumChildWindows hWnd, AddressOf EnumChildProc, ByVal 0&
End Sub



حالا بوسیله فراخوانی تابع RTLWindow از این ماژول به این شکل به نتیجه دلخواه می رسید

مثال :


RTLWindow ListView1.hWnd, True

[بابک زواری]

ممنون BlackDal عزیز :wink: :) :D :flower: