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
Xuân Thanh > 01-04-15, 11:19 AM