1,453
社区成员
发帖
与我相关
我的任务
分享Private Sub Form_Load()
'第一个问题
Set TreeView1.ImageList = ImageList1
Cc = "同学"
Set n = TreeView1.Nodes.Add(, , "K11", Cc, 1)
End Sub
Private Sub Command1_Click()
'第二个问题
TreeView1.Refresh
TreeView1.Nodes.Remove 1
End Sub
'第三个问题
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.Text
End Sub