TreeView控件的雙擊事件

2024-07-21 02:24:09

字體：大中小

供稿：網(wǎng)友

本例實(shí)現(xiàn)雙擊節(jié)點(diǎn)，彈出對(duì)話框并顯示節(jié)點(diǎn)信息

先對(duì)treeview1加入些數(shù)據(jù)，代碼如下：

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

'//如果樹節(jié)點(diǎn)不為0，則顯示提示信息，

if n.getnodecount(false) = 0 then

'//當(dāng)前節(jié)點(diǎn)的文本字符

dim s as string = n.text

'//如果字符長(zhǎng)度為1，則在前而加0

if s.length = 1 then

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

end if

'//上一樹節(jié)點(diǎn)的字符加當(dāng)前節(jié)點(diǎn)字符

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

‘//當(dāng)然你還可以顯示再上級(jí)節(jié)點(diǎn)的字符

‘//代碼就變?yōu)椋簊=n.parent.parent.text & “:” & s

messagebox.show("你選擇的節(jié)字符是: " & s)

end if

上一篇：校驗(yàn)控件出現(xiàn)問(wèn)題，修復(fù)的方法

下一篇：如何動(dòng)態(tài)加載multiline的text控件