TreeView控件的双击事件

2024-07-21 02:24:09

字体：大中小

来源：转载

供稿：网友

本例实现双击节点，弹出对话框并显示节点信息

先对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

.nodes.add((j + i * 15).tostring)

next

end with

next

dim nodetoadd as treenode

for i = 1 to 24

nodetoadd = n.clone

nodetoadd.text = i.tostring

treeview1.nodes.add(nodetoadd)

next

end sub

在treeview1_click事件中加入如下代码：

dim n as treenode = ctype(sender, windows.forms.treeview).selectednode

'//如果树节点不为0，则显示提示信息，

if n.getnodecount(false) = 0 then

'//当前节点的文本字符

dim s as string = n.text

'//如果字符长度为1，则在前而加0

if s.length = 1 then

s = s.insert(0, "0") '//指定位置插入字符

end if

'//上一树节点的字符加当前节点字符

s = n.parent.text & ":" & s

‘//当然你还可以显示再上级节点的字符

‘//代码就变为：s=n.parent.parent.text & “:” & s

messagebox.show("你选择的节字符是: " & s)

end if

上一篇：校验控件出现问题，修复的方法

下一篇：如何动态加载multiline的text控件