:treeview中,怎样遍历树?我想把他存入数据库,不同的节点存入不同的表。急,在线等待中

gwolf 2001-11-21 02:07:00
...全文
47 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
foolishtiger 2001-11-21
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-21
'Description:要试用本例请在窗体中填加一个TreeView和一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private Sub Command1_Click()
Dim nodEach As Node

For Each nodEach In TreeView1.Nodes
Select Case Left(nodEach.Key, 1)
Case "p", "P"
MsgBox nodEach.Text & " 存到图片库", vbInformation
Case "t", "T"
MsgBox nodEach.Text & " 存到文本库", vbInformation
Case Else
End Select
Next
End Sub

Private Sub Form_Load()
Command1.Caption = "保存"
With Me.TreeView1
.Nodes.Add , , "P1", "图片1"
.Nodes.Add , , "T1", "文本1"

.Nodes.Add , , "T2", "文本2"
.Nodes.Add , , "P2", "图片2"

.Nodes.Add , , "T3", "文本3"
.Nodes.Add , , "P3", "图片3"
End With
End Sub
  • 打赏
  • 举报
回复
applekiller 2001-11-21
什么意思,你是想保存TreeView吗?
  • 打赏
  • 举报
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-11-21 02:07
社区公告
暂无公告