TREE VIEW فارسی

[vb341]

دوستان کسی ابزار و یا مثالی برای کار با TREE VIEW که فارسی و راست به چپ باشه سراغ نداره ؟

[vb341]

دوستان کسی در این مورد تجربه ای نداره ؟

[hgkhatir]

توی hotscripts بگرد پیداش می‌کنی. کافیه جهت html را rtl انتخاب کنی.
برای نوشتن فارسی هم هیچ مشکلی نداره.

من خودم از یکی از آنها استفاده کردم. توی سایت فوکل می‌تونی ببینیش.

[vb341]

دوست عزیز من کار با Tree VIEW تو Vb6 رو میخوام

[بابک زواری]

عزیز جان با این کد میتونی 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

[vb341]

آقا بابک سلام
من یه مشکل اساسی تو تاپیک زیر دارم
اگر فرصت کردین سری بزنین و ببینین چاره کار چیه و چکار باید بکنم
ممنون
http://www.barnamenevis.org/forum/showthread.php?t=43961&page=2

[msalari]

سلام آقا بابک
با تشکر از کد عالی ای که در اختیار ما قرار دادید. برای راست به چپ کردن ریچ تکست هم کدی دارید ؟