请各位 指点迷津
有2个form 。
form1 有 listview
form2 有 treeview
listview click 调 用 form2
当listview 浮在form2上面是,触发了 form2 的 treeview nodeclick事件!!!为何呢?我不想触发nodeclick~
请教各位,以下为代码:
''-----------------form1
Private 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.Show
End 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 = True
End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox "TreeView1_NodeClick!" + Node.Text
End Sub
注意 treeview的node 的text要长一点。
请指教~
有2个form 。
form1 有 listview
form2 有 treeview
listview click 调 用 form2
当listview 浮在form2上面是,触发了 form2 的 treeview nodeclick事件!!!为何呢?我不想触发nodeclick~
请教各位,以下为代码:
''-----------------form1
Private 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.Show
End 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 = True
End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox "TreeView1_NodeClick!" + Node.Text
End Sub
注意 treeview的node 的text要长一点。
请指教~
解决方案 »
- 删除从WORD表格中获得的换行符
- 用VB写一个安装程序向导,软件安装成功后,怎么注册到控制面板的添加删除程序中?
- 请问各位高手!16进制的问题
- DataGrid 问题:直接添加,修改,完成一个网格编辑后点击其他控件,出错。求助!
- 请问:“日期型”数据类型的本质是什么?(量化数据、文本?)
- 关于屏幕分辨率的大小?
- *****高分请教,哪位知道Flash控件的ScaleMode属性的详细说明?*****
- 求Visual Basic 6编程技术大全这本书电子版,谢谢各位哥哥姐姐
- 用oSheet.Copy AFTER:=Sheets(2)后,EXCEL进程关不掉了
- 一个VB程序员在深圳待遇如何?
- adodc控件如何连接ORACLE数据库
- vb批量查询网页为什么程序老会死掉
form2.show 1
现象可以这么说:form1 的listview 的DblClick 事件 ,form2 出现 ,可能捕获了鼠标的click即使我在 form2.show 前加
Sleep(1000)
也不行~
请指教
开始 treeview1.enable=false
结束时treeview1.enable=true
也未能解决~
你说的:listview 浮在form2上面是 是什么意思?