عدم نمایش یک شاخه در treeview

[hossein.e]

با سلام
من میخوام تو ساختار درختی که تو treeview وجود داره نمایش برخی از شاخه ها رو غیرفعال کنم مثل اینکه خاصیت visible اونا رو false کرده باشی
لطفا راهنماییم کنید چطور اینکارو بکنم
ممنون:چشمک:

[hossein.e]

ممنون از همه که راهنمایی کردن

[m_vb1386]

يك كد براتون گذاشتم چون در حالت عادي فكر نكنم چنين خصوصيتي براي اين كنترل در نظر گرفته شده باشه فقط بايد index نودي كه روش كليك ميشه رو بدست بياري و بعد مقايسه كني كد رو ببيني متوجه ميشي چي ميگم

Private Sub Command1_Click()
Me.TreeView1.Nodes(4).ForeColor = &H8000000C
End Sub
Private Sub Form_Load()
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "R", "Root")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add(, , "P", "Parent")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("R", tvwChild, , "Child 1")
Set nodx = TreeView1.Nodes.Add("R", tvwChild, , "Child 2")
Set nodx = TreeView1.Nodes.Add("R", tvwChild, , "Child 3")
Set nodx = TreeView1.Nodes.Add("P", tvwChild, , "Child 4")
Set nodx = TreeView1.Nodes.Add("P", tvwChild, , "Child 5")
Set nodx = TreeView1.Nodes.Add("P", tvwChild, , "Child 6")

End Sub
Private Sub TreeView1_NodeClick(ByVal Node As Node)
If Me.TreeView1.Nodes(4).ForeColor = &H8000000C Then
Call MsgBox("ÇãßÇä ÏÓÊÑÓí æÌæÏ äÏÇÑÏ", vbOKOnly)
End If
End Sub

[hossein.e]

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

[Mbt925]

راه مستقیمی برای این منظور وجود نداره.

شما باید خودتون راهی مناسب با مسئلتون برای این موضوع پیدا کنید.

برای مثال نود غیرفعال شده رو حذف کنید و برای فعال کردنش دوباره اون رو به مکان مربوطه اضافه کنید.