作者：绿色风
分类：
时间：2022-08-18
浏览：118
楼主
wqfzqgk |
 Treeview.rar
|
2楼
laoyebin |
嘛玩意？exe的文件不敢随便打开哦 |
3楼
wqfzqgk |
知识点：VS中TREEVIEW与VB、VBA中的TREEVIEW差别还是不小，没有TVWCHILD：可以看一下
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.TreeView1.ImageList = Me.ImageList1
- Me.TreeView1.Nodes.Add("aaaa", "aaaaa", 0)
- Me.TreeView1.Nodes("aaaa").Nodes.Add("bbb", "b", 0)
- For i = 1 To 5
- Me.TreeView1.Nodes("aaaa").Nodes.Add("aaa" & i, "a" & i, 0)
- For ii = 1 To 2
- Me.TreeView1.Nodes("aaaa").Nodes("aaa" & i).Nodes.Add("qqq", "aaa" & ii, 0)
- Next
- Next
- Me.TreeView1.ExpandAll()
- End Sub
- Private Sub TreeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
- 'TreeView1.SelectedNode.Text
- If Me.TreeView1.SelectedNode.Text = "aaa1" Then MsgBox(Me.TreeView1.SelectedNode.Parent.Name)
- End Sub
- End Class
|
4楼
芐雨 |
 学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一