最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
TreeView控件的双击事件
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
先对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
-
上一个: 校验控件出现问题,修复的方法
-
下一个: 动态加载用户控件的组件!(二)
相关文章
- B站回应影视剧下架事件 维护内容规范性 07-14
- EasyUI为Numberbox添加blur事件的方法 05-24
- DOM事件探秘篇 04-10
- 钱保姆大事件汇总,钱保姆大事件有哪些 11-09
- 长沙金茂汇购物中心开业现场发生爆炸事件报道 09-30
- 红上财富违规,红上财富涉违规自融放贷事件 09-30