UC知道VB6.0 中 Treeview 5.0 控件的问题!!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/29 02:21:46
Private Sub treeFavorites_NodeClick(ByVal Node As ComctlLib.Node)
On Error GoTo Err_Procedure
Dim a
a = Mid(Node.Key, 1, 3)
If a = "URL" Then
Set nodeItm = Node
wbc_OpenBrowser.Navigate nodeItm.Tag
End If
Exit_Procedure:
Exit Sub
Err_Procedure:
Err_Handler "frmBrowser.treeFavorites_NodeClick", Err, Err_Handle_Mode
Resume Exit_Procedure
End Sub
大家看一下这段代码,
这是以树型结构图显示IE收藏夹的一部分代码,每个节点的Tag中存有地址
[xxx].Key = "URL" & 网页名称.(如果是文件夹, 则[xxx].Key = 文件夹名称)
单击一个节点, 判断是否为文件夹或网页, 是网页, 则用wbc_openbrowser打开[xxx].Tag
但是实际运行却不是这样子, 单季没有任何反应.用断点在
wbc_OpenBrowser.Navigate nodeItm.Tag一行查看.发现程序根本就没有运行到这一行.
用断点在If语句查看, 发现即使 a = "URL" 时wbc_openbrowser也没有反映.
其他语句均正常, 这是为什么?????????
On Error GoTo Err_Procedure
Dim a
a = Mid(Node.Key, 1, 3)
If a = "URL" Then
Set nodeItm = Node
wbc_OpenBrowser.Navigate nodeItm.Tag
End If
Exit_Procedure:
Exit Sub
Err_Procedure:
Err_Handler "frmBrowser.treeFavorites_NodeClick", Err, Err_Handle_Mode
Resume Exit_Procedure
End Sub
大家看一下这段代码,
这是以树型结构图显示IE收藏夹的一部分代码,每个节点的Tag中存有地址
[xxx].Key = "URL" & 网页名称.(如果是文件夹, 则[xxx].Key = 文件夹名称)
单击一个节点, 判断是否为文件夹或网页, 是网页, 则用wbc_openbrowser打开[xxx].Tag
但是实际运行却不是这样子, 单季没有任何反应.用断点在
wbc_OpenBrowser.Navigate nodeItm.Tag一行查看.发现程序根本就没有运行到这一行.
用断点在If语句查看, 发现即使 a = "URL" 时wbc_openbrowser也没有反映.
其他语句均正常, 这是为什么?????????
Private Sub Form_Load()
TreeView1.Nodes.Add , , "url", "网页"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Mid(Node.Key, 1, 3)
'我这段代码执行没有问题
'一.URL是否规定格式?通常是小写.而你的是大写.还有可能是大小混写.所以要小心.
'二.nodeItm 对象在这里可以不做调用.直接使用事件的NODE对象.当然全局对象可以除外?
'我只是就这你给的代码推断.其它事件或模块有问题就不太清楚了.
'祝你成功
End Sub