treeview求教,谢谢!!!

ahbc123 2003-08-21 05:26:44
treeview求教,谢谢!!!
当点击子节点后,label1=子节点+父节点
如点击gr3,label1=gr3+root1
如点击gr2,label1=gr2+root1
如点击gr1,label1=gr1+root1
如点击gr13,label1=gr13+root2
如点击gr14,label1=gr14+root1
如点击gr15,label1=gr15+root1
Private Sub Form_Load()
Dim Node1 As Node
Dim Node2 As Node

Dim i As Integer
Dim j As Integer
Dim k As Integer

TreeView1.HideSelection = False
TreeView1.Indentation = 19 * Screen.TwipsPerPixelX
TreeView1.LabelEdit = tvwManual
TreeView1.LineStyle = tvwRootLines

For i = 1 To 2
Set Node1 = TreeView1.Nodes.Add(, , , "Root" & i)

For k = 1 To 3
Set Node3 = TreeView1.Nodes.Add(Node1.Index, tvwChild, , "Gr" & (16 * (i - 1)) + (4 * (j - 1)) + k)
Next


Node1.Expanded = True
Next




End Sub
...全文
27 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ztchen 2003-08-21
  • 打赏
  • 举报
回复
别忘了这里还要加上些限制,不要用on error resume next
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
if not node.parent is nothing then
label1= Node.Text & Node.Parent.Text
else
'根节点的处理
......
end if
End Sub
射天狼 2003-08-21
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Form_Load()
Dim Node1 As Node
Dim Node2 As Node
Dim Node3 As Node

Dim i As Integer
Dim j As Integer
Dim k As Integer

TreeView1.HideSelection = False
TreeView1.Indentation = 19 * Screen.TwipsPerPixelX
TreeView1.LabelEdit = tvwManual
TreeView1.LineStyle = tvwRootLines

For i = 1 To 2
Set Node1 = TreeView1.Nodes.Add(, , , "Root" & i)

For k = 1 To 3
Set Node3 = TreeView1.Nodes.Add(Node1.Index, tvwChild, , "Gr" & (16 * (i - 1)) + (4 * (j - 1)) + k)
Next


Node1.Expanded = True
Next
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
If InStr(Node.Text, Node.Parent.Text) = 0 Then Node.Text = Node.Text & Node.Parent.Text
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧