مشگل با TreeView

[naeim12345]

سلام

اقا من میخوام از treeview بجای منو استفاده کنم حالا میخوام بدونم باید چه جوری بفهمم که کدوم زیر شاخه رو انتخاب کردن که بره صفحه مربوط به اونو بیارن مرسی

[naeim12345]

اساتید کسی بلد نبود

[naeim12345]

اساتید کسی بلد نبود

[PalizeSoftware]

Private Sub TreeView1_Click()
MsgBox TreeView1.SelectedItem.Text
End Sub

[naeim12345]

سلام دوست عزیز

اقا با این کد شما وقتی روی ساخه ها میرم اسم شاخه ها رو نشون میده و دیگه زیز شاخه های بز نمیشن

مرسی

[PalizeSoftware]

خب اینطوری تغییر بده:


Private Sub TreeView1_Click()
TreeView1.SelectedItem.Expanded = True
End Sub

[naeim12345]

اقا مرسی
از دوتا دستور با هم استفاده کردم مشگلم حل شد فقط یه مشگل داره وقتی میخوای روی شاخه بری که زیر شاخه رو باز کنه اسم شاخه هم نشون میده

[PalizeSoftware]

Private Sub TreeView1_Click()
TreeView1.SelectedItem.Expanded = True
If TreeView1.SelectedItem.Children = 0 Then
MsgBox TreeView1.SelectedItem.Text
End If
End Sub

[naeim12345]

مرسی از این همه راهنمایی دقیقا همونی بود که میخواستم فقط یه راهنمایی دیگه اگه بخوام از این tree بجای منو استفاده کنم باید برای اینکه بگم که کدوم منو کدوم form رو نمایش بده باید از if استفاده کنم یا راه حل دیگه ای هم داره
مرسی

[PalizeSoftware]

از If می‌تونی از Select Case هم بفرم زیر می‌تونی استفاده کنی:


Private Sub TreeView1_Click()
TreeView1.SelectedItem.Expanded = True
If TreeView1.SelectedItem.Children = 0 Then
Select Case TreeView1.SelectedItem.Text
Case "Edit"
Form1.Show
Case "Open"
form2.Show
.
.
.
End Select
End If
End Sub

[naeim12345]

اقا دستت درد نکنه مشگلم رو حل کردی
از راهنمایی شما خیلی ممنون