VB Treeview控件的详细使用
VB Treeview控件详细使用方法
1、属性
这里只给大家介绍Treeview控件的几个常用基本属性
appearance属性：设置空间是否以3D效果显示
详细的外观设置可以转到此控件的“自定义”页面进行设置
checkboxes属性：在树的每一项的旁边，是否显示一个复选框，类似checkbox控件的作用
hottracking属性：当鼠标指针经过某个条目时，这些条目是否突出显示，类似网页的超链接效果
labeledit属性：决定用户是否能编辑控件中列出的项目，此项如果不想被改变，可将属性值设置为1
linestyle属性：设置列出的每项之间的行样式，即，如果为1，则当前项下还有子项的时候，它的前面会显示“+”号，如果值为2，则不显示“+”
singlesel属性：设置在树中选择新的条目时，是否展开此条目并收拢前一个条目，即，设置为True时，并且当前选中的条目有子项的时候，会把子项展开，并将原来你选中的条目收拢，这一点很实用。
style属性：设置Treeview控件的每个列表的组成方式，比如“图片”+“文本”方式，等等，这样你就可以把Treeview弄得更好看一些。
2、用法介绍：
一、Treeview控件添加条目和子条目通常使用ADD方法，其语法如下：
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
其中：
relationship 参数是通过关系节点参数与新节点连接的另一个节点；参数可能是以下情况：
1-tvwlast 该节点置于所有其他的在relative中被命名的同一级别的节点的后面
2-tvwNext 该节点置于在relative中被命名节点的后面
3-tvwPrevius 该节点置于在relative中被命名的节点的前面
4-tvwChild 该节点成为在relative中被命名的节点的的子节点
详细语句可参考下列程序代码:
创建父节点条目
TreeView.Nodes.Add , , "Father", "Father"
创建此节点的子节点条目
TreeView.Nodes.Add "Father", tvwChild, , "Child"
注意创建子节点的时候,relative参数为父节点的文本"Father"
二、添加图像
为节点插入图象可参考语句：
Treeview.node(index).image="图片名"
可以参
相关文档：
建一个模块
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
代码如下:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _
ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
&n ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
