Private Sub menuFileNew_Click()
TreeView1.Nodes.Add , , "KEY@" & Str(TreeView1.Nodes.Count + 1), "aa"
TreeView1.Nodes.Item("KEY@" & Str(TreeView1.Nodes.Count)).Selected = True
TreeView1.StartLabelEdit
End SubPrivate Sub menuFileEdit_Click()
TreeView1.StartLabelEdit
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu menuFile
End If
End Sub
TreeView1.Nodes.Add , , "KEY@" & Str(TreeView1.Nodes.Count + 1), "aa"
TreeView1.Nodes.Item("KEY@" & Str(TreeView1.Nodes.Count)).Selected = True
TreeView1.StartLabelEdit
End SubPrivate Sub menuFileEdit_Click()
TreeView1.StartLabelEdit
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu menuFile
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货