Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无 For I = 1 To TreeView1.Nodes.Count If TreeView1.Nodes(I).Selected Then MsgBox "您选择的是:“" & TreeView1.Nodes(I).FullPath & "”子节点!" End If Next I End If End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If TreeView1.SelectedItem.text = "江西省" Then image.picture="c:\桌面\江西省地图.jpg" End If End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If node.text = "江西省" Then image.picture="c:\桌面\江西省地图.jpg" End If End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
image.picture="c:\桌面\" & node.text & "地图.jpg"
End Sub
说个简单的。 1、将你要显示的图片,按treeview1对应关系依次放入资源文件中,编号连贯,比如201、202、203、204……。 2、追加Treeview1项上使用key,有序编号与图片资源编号对应(此步可省略,nodeclick事件中用index对应关系也可)。 3、用index对应的Nodeclick事件代码事例: Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) image1.Picture = LoadResPicture(200+node.index+1, 0) End Sub说明:1、第一个节点index为0 2、Loadrespicture()第一位参数为整数或字符串,表示资源文件中数据的ID;第二个参数0表示位图 另外,直接使用200+node.index+1,我可没有试过。如果不行再加个int(),强制转为整型。
比如:节点是省份,当我点击“江西省”则在一旁的image框中显示江西省的地图?
If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
For I = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(I).Selected Then
MsgBox "您选择的是:“" & TreeView1.Nodes(I).FullPath & "”子节点!"
End If
Next I
End If
End Sub
If TreeView1.SelectedItem.text = "江西省" Then
image.picture="c:\桌面\江西省地图.jpg"
End If
End Sub
If node.text = "江西省" Then
image.picture="c:\桌面\江西省地图.jpg"
End If
End Sub
image.picture="c:\桌面\" & node.text & "地图.jpg"
End Sub
1、将你要显示的图片,按treeview1对应关系依次放入资源文件中,编号连贯,比如201、202、203、204……。
2、追加Treeview1项上使用key,有序编号与图片资源编号对应(此步可省略,nodeclick事件中用index对应关系也可)。
3、用index对应的Nodeclick事件代码事例:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
image1.Picture = LoadResPicture(200+node.index+1, 0)
End Sub说明:1、第一个节点index为0
2、Loadrespicture()第一位参数为整数或字符串,表示资源文件中数据的ID;第二个参数0表示位图
另外,直接使用200+node.index+1,我可没有试过。如果不行再加个int(),强制转为整型。