关于HitTest 方法(ListView 和 TreeView 控件)示例
[日期:2010-03-29] 来源: 作者: [字体:大 中 小]
这个例子在 TreeView 控件中添加几个 Node 对象。在选择了一个 Node 对象之后,可以将它拖动到任何其它 Node。为试用此例,要在窗体上安放 TreeView 和 ImageList 控件,并在窗体的声明部分粘贴该代码。运行此例,并且在附近拖动一些 Node 对象来观察结果。
'声明全局变量。
Dim indrag As Boolean '指示拖放操作的标志。
Dim nodX As Object '要拖动的项。
Private Sub Form_Load()
'在 Imagelist 控件中加载一个位图。
Dim imgX As ListImage
Dim BitmapPath As String
BitmapPath = "icons\mail\mail01a.ico"
Set imgX = imagelist1.ListImages.Add(, , LoadPicture(BitmapPath))
'初始化 TreeView 控件,并创建若干节点。
TreeView1.ImageList = imagelist1
Dim nodX As Node '创建树。
Set nodX = TreeView1.Nodes.Add(, , , "Parent1", 1)
Set nodX = TreeView1.Nodes.Add(, , , "Parent2", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Child 1", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Child 2", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Child 3", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Child 4", 1)
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Child 5", 1)
nodX.EnsureVisible '展开树以显示全部节点。
End Sub
Private Sub TreeView1_MouseDown_
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载