استخدام اداة الشجرة وكيفية الربط

السلام عليكم

أخى الكريم العلالي

هذا مثال على ربط أداه الشجره بقاعده بيانات

http://www.arabteam2000.com:80/Files/Code/...malTreeView.zip

بسم الله الرحمن الرحيم

اخي GENIUS-IT اشكرك على سرعة الرد ولكن ليس المطلوب المطلوب هو كيف اربط الابناء مثال ربط بفتح نموذج معين او اداة معينة ولك الشكر

جرب هذا الكود لعله ينفعك

 Private Sub Form_Load()

	treefill

End Sub

Private Sub treefill()


Dim node1 As node
Set node1 = tvTreeView.Nodes.Add(, "k", "CU", "الملفات")
Set node1 = tvTreeView.Nodes.Add("CU", tvwChild, "cu1", "دليل الحسابات")
Set node1 = tvTreeView.Nodes.Add("cu1", tvwChild, "cu2", "إضافة")
Set node1 = tvTreeView.Nodes.Add("cu1", tvwChild, "cu3", "عرض")
Set node1 = tvTreeView.Nodes.Add("cu1", tvwChild, "cu4", "تقارير")
end sub




Private Sub tvTreeView_NodeClick(ByVal node As MSComctlLib.node)
Dim pt As String
pt = tvTreeView.SelectedItem.FullPath

If Trim(pt) = "الملفات\دليل الحسابات\إضافة" Then
frm.show 1
ElseIf Trim(pt) = "الملفات\دليل الحسابات\عرض" Then
frm.show
End If
end sub
[code]