作者:(ZJH135 张均洪)
本例实现双击节点,弹出对话框并显示节点信息
先对treeview1加入些数据,代码如下:
Sub Example()
Dim N As New TreeNode, I As Integer, J As Integer
For I = 0 To 3
With N.Nodes.Add((I * 15).ToString & "-" & ((I + 1) * 15 - 1).ToString)
For J = 0 To 14
作者:(ZJH135 张均洪)
本例实现双击节点,弹出对话框并显示节点信息
先对treeview1加入些数据,代码如下:
Sub Example()
Dim N As New TreeNode, I As Integer, J As Integer
For I = 0 To 3
With N.Nodes.Add((I * 15).ToString & "-" & ((I + 1) * 15 - 1).ToString)
For J = 0 To 14