مشگل با TreeView [بایگانی]

naeim12345

یک شنبه 13 آذر 1384, 21:43 عصر

سلام

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

naeim12345

سه شنبه 15 آذر 1384, 00:30 صبح

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

naeim12345

سه شنبه 15 آذر 1384, 00:37 صبح

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

PalizeSoftware

سه شنبه 15 آذر 1384, 01:15 صبح

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

naeim12345

چهارشنبه 16 آذر 1384, 10:20 صبح

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

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

مرسی

PalizeSoftware

چهارشنبه 16 آذر 1384, 11:00 صبح

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

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

naeim12345

چهارشنبه 16 آذر 1384, 11:31 صبح

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

PalizeSoftware

چهارشنبه 16 آذر 1384, 12:46 عصر

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

naeim12345

پنج شنبه 17 آذر 1384, 08:37 صبح

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

PalizeSoftware

پنج شنبه 17 آذر 1384, 11:23 صبح

از 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

پنج شنبه 17 آذر 1384, 20:58 عصر

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