急急~~vbtree 问题~~ 30
我想在软件中添加一个类似于资源管理器的东西,听说vb可以用vbtree来做,想做成第一级为上海地图(显示整个上海的大致地图)下面一级分为各个区县,点击后能查看各区的大致地...
我想在软件中添加一个类似于资源管理器的东西,听说vb可以用vbtree来做,想做成第一级为上海地图(显示整个上海的大致地图)下面一级分为各个区县,点击后能查看各区的大致地图。。。有谁知道该怎么写这段代码嘛?
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
'不允许建立零字节的根节点和子节点
b = False
j = TreeView1.Nodes.Count
For i = 1 To TreeView1.Nodes.Count '检查新输入的根节点名称是否存在
If TreeView1.SelectedItem.Children > 0 Then
If TextBox1.Text = TreeView1.Nodes(i).Text Then b = True
End If
Next i
If b = True Then '若存在, 则在根节点下建立子节点
Set nodx = TreeView1.Nodes.Add(TextBox1.Text, tvwChild, "child" & j, TextBox2.Text, 3)
Else '若不存在,则建立根节点和子节点
Set nodx = TreeView1.Nodes.Add(, , TextBox1.Text, TextBox1.Text, 1)
Set nodx = TreeView1.Nodes.Add(TextBox1.Text, tvwChild, "child" & j, TextBox2.Text, 3)
End If
TreeView1.Refresh
End Sub
为什么利用上述程序添加结点可以显示,但是重新加载窗体时就全都没有了??? 展开
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
'不允许建立零字节的根节点和子节点
b = False
j = TreeView1.Nodes.Count
For i = 1 To TreeView1.Nodes.Count '检查新输入的根节点名称是否存在
If TreeView1.SelectedItem.Children > 0 Then
If TextBox1.Text = TreeView1.Nodes(i).Text Then b = True
End If
Next i
If b = True Then '若存在, 则在根节点下建立子节点
Set nodx = TreeView1.Nodes.Add(TextBox1.Text, tvwChild, "child" & j, TextBox2.Text, 3)
Else '若不存在,则建立根节点和子节点
Set nodx = TreeView1.Nodes.Add(, , TextBox1.Text, TextBox1.Text, 1)
Set nodx = TreeView1.Nodes.Add(TextBox1.Text, tvwChild, "child" & j, TextBox2.Text, 3)
End If
TreeView1.Refresh
End Sub
为什么利用上述程序添加结点可以显示,但是重新加载窗体时就全都没有了??? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询