已经用treeview读出了几个Access表,如何实现TreeView1_NodeClick??

tianya51 2003-12-26 11:57:23
Access表的结构是两个字段name和web,已经用treeview读出了name字段,现在
想在单击treeview时,打开web字段(web字段存放的是网站的网址)
问题是:如何实现TreeView1_NodeClick事件?
(Access数据库有两个表:“网站集合”和“网站集合2”)

读出name字段是这样的
Set mydb = OpenDatabase(App.Path & "\abc.mdb", False, False, ";pwd=123")
Dim node001 As Node
Set my001 = mydb.OpenRecordset("网站集合")
Set node001 = TreeView1.Nodes.Add(, , "netall", "网站集合", 1)
For i = 1 To my001.RecordCount
Set node001 = TreeView1.Nodes.Add("netall", tvwChild, my001.Fields("name"), my001.Fields("name"))
my001.MoveNext
Next i

Set my001 = mydb.OpenRecordset("网站集合2")
Set node001 = TreeView1.Nodes.Add(, , "netall2", "网站集合2", 1)
For i = 1 To my001.RecordCount
Set node001 = TreeView1.Nodes.Add("netall2", tvwChild, my001.Fields("qqname"), my001.Fields("qqname"))
my001.MoveNext
Next i
...全文
5 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
19830711 2003-12-27
up
回复
rainstormmaster 2003-12-27
在读出name字段的同时,读出web字段的内容,保存在node的tag中,然后处理TreeView1_NodeClick事件

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
WebBrowser1.Navigate2 Node.Tag
End Sub

另一种办法是在TreeView1_NodeClick事件中,根据name进行查询数据库,获得相应的url
不过效率要低一些。
回复
flc 2003-12-27
关注
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告