VB6常用方法汇编(三、控件编程基本方法).docVIP

VB6常用方法汇编 三 控件编程基本方法 控件输入位置和聚焦 放置控件: Form1:Text1,Command1 代码: Private Sub Command1_Click() Text1.SelStart = 3 光标在第3个位置 Text1.SetFocus 使焦点回到Text1 End Sub 使用容器控件 容器控件有：Frame，PictureBox和ToolBar。 使用容器控件包容其它控件的方法有： 1．先产生容器控件，在其上画其它控件； 2．把已有控件剪贴到容器控件上； 3．用程序 Command1.Container = Frame1 用一键来回设置 放置控件: Form1:Command1,List1 代码: Private Sub Command1_Click() If Bzl then List1.Visible = True Command1.Cption = “Exit” Bzl = false Else List1.Visible = False Command1.Caption = “Display” Bzl = True End If End Sub Private Sub Form_Load() Bzl = Ture List1.Visiblae = False Command1.Caption = “Display” End Sub 列表控件的选择属性 以List1 的属性为例，列表类控件如List,Combo,File,Dir等均可使用： 1．选中第I项 List1.Selected(i) （True） 2．返回第I项内容 List1.List(i) 3．返回列表总项数 List1.ListCount 4．返回最近一次点击位置 List1.ListIndex 注意：I均从零开始。 列表控件的全选 For i = 0 To File1.ListCount - 1 File1.Selected(i) = True Next 列表控件的部份选择 Dim fscount, i, j Dim fs1(100) As String j = 0 For i = 0 To File1.ListCount - 1 If File1.Selected(i) Then fs1(j) = File1.List(i) j = j + 1 End If Next fscount = j 使用TreeView控件产生目录 在【部件】中选择“Microsoft Windows Common Control 6.0（SP3）”，就可以打开一组控件，有Tabstrip、Toolbar、Statusbar、Progressbar、Treeview、Listview、Imagelist、Slider、Imagecombo。 把Treeview1和Imagelist1加入窗体； 右击Imagelist1，打开属性页，添加图形； 右击Treeview1，打开属性页，在【图像列表】中选择Imagelist1，还可以改变自目录的缩进； 改变Treeview1属性Linestyle为1； 添加代码： Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Select Case Node.Key Case fx1 Hyperlink.NavigateTo (http://b4x5d1/faexcise/fa1/default1.asp) Case fx2 Hyperlink.NavigateTo (http://b4x5d1/faexcise/fa1/create1.asp) End Select End Sub Private Sub UserDocument_Initialize() Dim mynode As Node Set mynode = TreeView1.Nodes.Add(, , fx, 发行系统, 2) Set mynode = TreeView1.Nodes.Add(, , cb, 出版系统, 2) Set mynode = TreeView1.Nodes.Add(, , cw, 财务系统, 2) Set mynode = TreeView1.Nodes.Add(, , bw, 编务系统, 2) Set mynode = TreeView1.Nodes.Add(, , xt, 系统管理, 2) 二级目录 Set mynod