| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1437 人关注过本帖
标题:目录树开发外包
只看楼主 加入收藏
zsqgd
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-6-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
目录树开发外包
目前有一个用户选择控制,要将下拉部门修改成目录树选择,如下图所示。
图片附件: 游客没有浏览图片的权限,请 登录注册


找长期合作的朋友,联系QQ:635341397
搜索更多相关主题的帖子: 目录树 开发 外包 选择 联系 
2018-06-07 07:51
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:10 
  TreeView1.Nodes.Clear
  TreeView1.Nodes.Add , "tvwfirst", "L1", "所有影片", 1
  
  TreeView1.Nodes.Add "L1", tvwChild, "L21", "影片类型", 2
  TreeView1.Nodes.Add "L1", tvwChild, "L23", "IMDB评分", 2
  TreeView1.Nodes.Add "L1", tvwChild, "L22", "影片年代", 2
  
  TreeView1.Nodes.Add "L21", tvwChild, "L211","名称", 3
  
TreeView1.Nodes(2).Sorted = True
  TreeView1.Nodes(1).Selected = True
  以上是增加1级,2级.3级目录的例子

2018-06-07 08:18
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
一个简单的树状列表框:
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
Dim ZGID(1 To 50) As Integer

Private Sub Form_Load()
TreeView1.Visible = True
TreeView1.Nodes.Clear
Dim BMSZ
BMSZ = Array("办公室", "人事部", "财务部", "后勤部", "技术部", "销售部", "策划处", "美工处")
Dim Nodx As Node
Set Nodx = TreeView1.Nodes.Add()

 Nodx.Text = "公司部门"

 Nodx.Image = "TP1"
  TreeView1.LabelEdit = tvwManual
Set Nodx = TreeView1.Nodes.Add(1, tvwChild, "A", "部门列表")
Nodx.Image = "TP2"
        For I = 1 To 8
        ZGID(Nodx.Index) = I
             Set Nodx = TreeView1.Nodes.Add("A", tvwChild)
             Nodx.Text = BMSZ(I - 1)
             Nodx.Image = "TP3"
             Nodx.Tag = "Site"
        Next I
  Nodx.EnsureVisible

 TreeView1.StartLabelEdit
End Sub

请不要选我!!!
2018-06-12 17:24
zsqgd
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-6-7
收藏
得分:0 
多谢各位,问题搞定。
2018-10-13 15:52
快速回复:目录树开发外包
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020438 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved