TreeView控件和ini文件操作问题，是一个很有趣的问题请高手指点
[问题点数：50分，结帖人caoliyong]
TreeView控件和ini文件操作问题，是一个很有趣的问题请高手指点
[问题点数：50分，结帖人caoliyong]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。当前位置： >
> listview浮在treeview上时，listviewclick事件触发了treeviewno
listview浮在treeview上时，listviewclick事件触发了treeviewno
wzpcookie & at
listview 浮在 treeview 上时，listview click事件触发了treeview nodeclick ？何解？请各位 指点迷津有2个form 。form1 有 listview& form2 有 treeviewlistview click 调 用 form2当listview 浮在form2上面是，触发了 form2 的 treeview nodeclick事件！！！为何呢？我不想触发nodeclick~& 请教各位，以下为代码：''-----------------form1Private Sub Form_Load() &
Me.ListView1.ColumnHeaders.Add 1, &L0&, &No& &
Me.ListView1.ColumnHeaders.Add 2, &L1&, &Name& &
Me.ListView1.ColumnHeaders.Add 3, &L2&, &StudentNO& &
Me.ListView1.ListItems.Add 1, &i0&, &0& &
Me.ListView1.ListItems.Add 2, &i1&, &1& &
Me.ListView1.ListItems.Add 3, &i2&, &2& &
Me.ListView1.ListItems.Item(1).SubItems(1) = &xxxx& &
Me.ListView1.ListItems.Item(2).SubItems(1) = &leesoonin& &
Me.ListView1.ListItems.Item(3).SubItems(1) = &jordan& &
Me.ListView1.ListItems.Item(1).SubItems(2) = &2004& &
Me.ListView1.ListItems.Item(2).SubItems(2) = &2005& &
Me.ListView1.ListItems.Item(3).SubItems(2) = &2006&End Sub &Private Sub ListView1_DblClick() &
Form2.ShowEnd Sub'-----------------form2 &Private Sub Form_Load() &Dim nodex As Node &
Set nodex = Me.TreeView1.Nodes.Add(, , &ROOT&, &Root&) &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child1&, &child1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child2&, &child2xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child3&, &child3xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child4&, &child4xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child5&, &child5xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child6&, &child6xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child7&, &child7xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child8&, &child8xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child9&, &child9xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
Me.TreeView1.Nodes.Add &ROOT&,tvwChild, &child10&, &child10xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx& &
nodex.Expanded = TrueEnd Sub &Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) &
MsgBox &TreeView1_NodeClick!& + Node.TextEnd Sub注意 treeview的node 的text要长一点。请指教~
&listview click 调 用 form2 &,用实模式调用form2.show 1
wzpwzp & &
& & （0）（0）引用单步调试，看什么时候触发的
& & （0）（0）引用TreeView1.TabStop =False 试试
wzpeilin & &
& & （0）（0）引用探讨引用:单步调试，看什么时候触发的wzpeilin & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&增值电信业务经营许可证湘B2-扩展学习　＜树形目录控件——TreeView控件介绍＞　
目标定位将其生成Dll文件，老是出错．
请各位大侠，将附件中的程序转为Dll文件，并引入到Excel中运行．谢谢．
(16.11 KB, 下载次数: 38)
18:13 上传
下载次数: 38
[ 本帖最后由 ningyong58 于
06:32 编辑 ]
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行674帖子精华0微积分0
Option Explicit
Private Sub UserForm_Initialize()
&&Dim i As Long
&&Dim j As Long
&&Dim k As Long
&&Dim Title As String
&&Dim xNode As Node
&&Dim NodeKey As String
&&Dim NodeKey2 As String
&&With Me.TreeView1
& & For i = 1 To 5
& && &Set xNode = .Nodes.Add
& && &NodeKey = &Node - & & i
& && &With xNode
& && &&&.Key = NodeKey
& && &&&.Text = &Node - & & i
& && &&&.Expanded = False
& && &End With
& && &For j = 1 To 7
& && &&&Set xNode = .Nodes.Add(NodeKey, tvwChild)
& && &&&NodeKey2 = &Node - Child - & & i & j
& && &&&With xNode
& && && & .Key = NodeKey2
& && && & .Text = &Child - & & j
& && &&&End With
& && &&&For k = 1 To 10
& && && & Set xNode = .Nodes.Add(NodeKey2, tvwChild)
& && && & With xNode
& && && && &.Text = &Child2 - & & k
& && && & End With
& && &&&Next k
& && &Next j
& & Next i
&&End With
&&Set xNode = Nothing
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
&&Me.Caption = Node.Text
封装dll时在这里出错．
&&Dim xNode As Node
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行674帖子精华0微积分0
06:20 上传
(2.75 KB, 下载次数: 21)
06:20 上传
下载次数: 21
在线时间955 小时经验1551 威望0 性别保密最后登录注册时间阅读权限50UID861653积分1551帖子精华0分享0
EH高级, 积分 1551, 距离下一级还需 449 积分
积分排行674帖子精华0微积分0
关于封装标准控件的问题
比如我要封装& &TreeView,& &TreeView& &的所有的属性方法事件,& &全部对外提供,& &另外,& &在提供一些& &TreeView& &原本没有的方法事件和属性,& &怎么做?
一般的属性就可以,& &事件也没有问题,& &不过像& &TreeView& &这样的& &Nodes& &属性怎么加进去,& &Nodes& &还有自己的方法,& &属性.
7 楼_TMG_（Alan）回复于
12:34:27 得分 0 一般的属性就可以,& &事件也没有问题,& &不过像& &TreeView& &这样的& &Nodes& &属性怎么加进去,& &Nodes& &还有自己的方法,& &属性.
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&进来看看就会怪，不信？
[问题点数：20分，结帖人jxjasap520]
进来看看就会怪，不信？
[问题点数：20分，结帖人jxjasap520]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。当前位置： >
> treeview的问题如何知道节点下面还有没有子节点，我需要的是如果有子节点就用一种图标，没有了就
treeview的问题如何知道节点下面还有没有子节点，我需要的是如果有子节点就用一种图标，没有了就
xyou2525 & at
treeview的问题！！如何知道节点下面还有没有子节点，我需要的是如果有子节点就用一种图标，没有了就用另一种图标。
再个如果生成树了，可不可以再更改有子节点的节点的图标啊？
如何知道节点下面还有没有子节点，我需要的是如果有子节点就用一种图标，没有了就用另一种图标。
定义一个node对象，令其为该节点的child，然后判断是否该对象存在，如果存在则含有子节点，如果不存在则不存在字节点。
如判断tmpPNode的子节点是否存在：
dim tmpChildNode as node
set tmpChildNode =tmpPNode.child
if not tmpchildNode is nothing then
&含有子节点 &
&不含有子节点 &
再个如果生成树了，可不可以再更改有子节点的节点的图标啊？
有一个expandImage属性
xyou520 & &
& & （0）（0）引用帮你找了一些资料
Private Sub Command1_Click()
　 If Txt(0).Text
& & And Txt(1).Text
'不允许建立零字节的父节点和子节点
　　 CunZai = False
　　 J = TreeView1.Nodes.Count
　　 For I = 1 To TreeView1.Nodes.Count
'检查新输入的父节点名称是否存在
　　　 If TreeView1.SelectedItem.Children &
　　　　 If Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = True
　　　　 End If
　　 Next I
　　 If CunZai = True Then
'若存在, 则在父节点下建立子节点
　　　 Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild,
&child & & J,
　　　　　　　　　　　　　　 Txt(1).Text, 3)
　　 Else ,若不存在,则建立父节点和子节点
　　　 Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)
　　　 Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild,
&child & & J,_
　　　　　　　　　　 Txt(1).Text, 3)
　　 End If
　　 TreeView1.Refresh
　 ElseIf Txt(0).Text =
& & Then MsgBox
&请输入父节点名称! &, vbInformation,
'系统提示
　 ElseIf Txt(1).Text =
& & Then MsgBox
&请输入子节点名称! &, vbInformation,
Private Sub Command2_Click()
　 For I = 1 To TreeView1.Nodes.Count
　　 TreeView1.Nodes(I).Expanded = True
'展开所有节点
Private Sub Command3_Click()
　 For I = 1 To TreeView1.Nodes.Count
　　 TreeView1.Nodes(I).Expanded = False
'收起所有节点
Private Sub Command4_Click()
　 TreeView1.Sorted = True
'排列顺序
Private Sub Command5_Click()
　 If TreeView1.SelectedItem.Index
　　 TreeView1.Nodes.Remove TreeView1.SelectedItem.Index
'删除选定的节点
Private Sub Command6_Click()
'退出程序
Private Sub Form_Load()
　 TreeView1.LineStyle =TvwTreeLines
'在兄弟节点和父节点之间显示线
　 TreeView1.ImageList = ImageList1
'链接图像列
　 TreeView1.Style = tvwTreelinesPlusMinusPictureText
'树状外观包含全部元素
　 Set nodx = TreeView1.Nodes.Add(, ,
&蒲子明 &,
&蒲子明 &, 1)
'建立名称为
&蒲子明 &的父节点,选择索引为1的图像
　 Set nodx = TreeView1.Nodes.Add(
&蒲子明 &, tvwChild,
&child01 &,
&收件箱 &, 3)
&蒲子明 &父节点下建立 &收件箱 &子节点,选择索引为3的图像
　 Set nodx = TreeView1.Nodes.Add(
&蒲子明 &, tvwChild,
&child02 &,
&发件箱 &, 3)
&蒲子明 &父节点下建立 &发件箱 &子节点,选择索引为3的图像
　 CunZai = False
Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
　 Node.ExpandedImage = 2
'节点被展开时,选择索引为2的图像
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 Ifxyoung & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&增值电信业务经营许可证湘B2-}