bhuyen.qtm1 > 01-04-15, 09:47 AM
maidinhdan > 01-04-15, 10:44 AM
Private Sub Form_Open(Cancel As Integer)
Dim NodeX As Node
DoCmd.Restore
RunCommand acCmdSizeToFitForm
Set NodeX = MenuTree.Nodes.Add(, , "TM1", "Thư mục cấp 1", 2)
Set NodeX = MenuTree.Nodes.Add("TM1", tvwChild, "TM2", "Thư mục cấp 2", 17)
Set NodeX = MenuTree.Nodes.Add("TM1", tvwChild, "TM3", "Thư mục cấp 2", 19)
Set NodeX = MenuTree.Nodes.Add("TM1", tvwChild, "TM4", "Thư mục cấp 2", 18)
................
MenuTree.SetFocus
End Sub
![[Hình: MyTreeviewProjectEpisode6Complete.jpg]](http://mymsaccessblog.googlepages.com/MyTreeviewProjectEpisode6Complete.jpg)
![[Hình: Treeview1.jpg]](http://mymsaccessblog.googlepages.com/Treeview1.jpg)
![[Hình: Treeview2.jpg]](http://mymsaccessblog.googlepages.com/Treeview2.jpg)
![[Hình: HelloWorldTreeview.jpg]](http://mymsaccessblog.googlepages.com/HelloWorldTreeview.jpg)
![[Hình: Treeview3.jpg]](http://mymsaccessblog.googlepages.com/Treeview3.jpg)
![[Hình: Episode5Complete.jpg]](http://mymsaccessblog.googlepages.com/Episode5Complete.jpg)
Xuân Thanh > 01-04-15, 11:19 AM