我是新手,学编的一个窗体上带有菜单栏、treeview、图片框
问题:
1、运行时在treeview控件和图片上点左健会出现控件轮廓,但不能移动控件,想取消这种情况。
2、treeview控件上点右健可以选中或打开子节点,点左健则出现上述情况,点左健无法选中节点而是选中整个控件。
请大家帮我渡过入门的难关。
附treeview的源码:
Private Sub Form_Load()
TreeView1.ImageList = ImageList1
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "工程管理", "工程管理", 4)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwChild, "新建工程", "新建工程", 5)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwChild, "更改工程", "更改工程", 6)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwNext, "工程设置", "工程设置", 7)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "设计参数", "设计参数", 8)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "型材参数", "型材参数", 9)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "五金参数", "五金参数", 10)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwNext, "窗型管理", "窗型管理", 11)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwChild, "新增窗型", "新增窗型", 12)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwChild, "修改窗型", "修改窗型", 13)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwNext, "工程量管理", "工程量管理", 17)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwChild, "导入工程量", "导入工程量", 18)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwChild, "编辑工程量", "编辑工程量", 19)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwNext, "报表", "报表", 1)
Set nodx = TreeView1.Nodes.Add("报表", tvwChild, "报表设置", "报表设置", 2)
Set nodx = TreeView1.Nodes.Add("报表", tvwChild, "查看报表", "查看报表", 3)
End Sub
问题:
1、运行时在treeview控件和图片上点左健会出现控件轮廓,但不能移动控件,想取消这种情况。
2、treeview控件上点右健可以选中或打开子节点,点左健则出现上述情况,点左健无法选中节点而是选中整个控件。
请大家帮我渡过入门的难关。
附treeview的源码:
Private Sub Form_Load()
TreeView1.ImageList = ImageList1
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "工程管理", "工程管理", 4)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwChild, "新建工程", "新建工程", 5)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwChild, "更改工程", "更改工程", 6)
Set nodx = TreeView1.Nodes.Add("工程管理", tvwNext, "工程设置", "工程设置", 7)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "设计参数", "设计参数", 8)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "型材参数", "型材参数", 9)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwChild, "五金参数", "五金参数", 10)
Set nodx = TreeView1.Nodes.Add("工程设置", tvwNext, "窗型管理", "窗型管理", 11)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwChild, "新增窗型", "新增窗型", 12)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwChild, "修改窗型", "修改窗型", 13)
Set nodx = TreeView1.Nodes.Add("窗型管理", tvwNext, "工程量管理", "工程量管理", 17)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwChild, "导入工程量", "导入工程量", 18)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwChild, "编辑工程量", "编辑工程量", 19)
Set nodx = TreeView1.Nodes.Add("工程量管理", tvwNext, "报表", "报表", 1)
Set nodx = TreeView1.Nodes.Add("报表", tvwChild, "报表设置", "报表设置", 2)
Set nodx = TreeView1.Nodes.Add("报表", tvwChild, "查看报表", "查看报表", 3)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货