第10章 Visual basic 的常用控件.ppt

第10章 Visual basic 的常用控件 10.1 概述 表10.2 直线控件和形状控件的BorderStyle属性的取值 3、列表框的方法 10.5 计时器控件 ‘Form_Load事件 Private Sub Form_Load() fileList.Pattern = txtFile.Text 初始化文件列表框 End Sub ‘文本框失去焦点事件 Private Sub txtFile_LostFocus() fileList.Pattern = txtFile.Text 改变筛选条件 End Sub 10.7.2 ActiveX控件 在程序设计中对输入的数据进行加工后，需要将数据输出。可以使用Print方法、消息框（MsgBox）函数或语句、文本框（TextBox）控件和标签（Label）控件来实现输出 Print方法可以在窗体、图片框、打印机和立即窗口等对象上输出数据 表达式表中的表达式可以是算术表达式、字符串表达式、关系表达式或布尔表达式 如果省略表达式表，则输出一个空行或取消前面Print末尾的逗号或分号的作用 第二个输出项在第10列输出 Tab函数无参数，第二项在第二个打印区输出 n小于当前打印位置，第二项在下一行输出 n小于1，在第一列输出 Spc函数表示两个输出项之间的间隔，Tab函数总是从对象的左端开始计数 在Windows中，如果操作有误，通常会在屏幕上显示一个对话框，提示用户进行选择，然后系统根据选择确定其后的操作。VB中提供的MsgBox函数可以实现该功能，它3可以向用户传送信息，并可以接收用户在对话框上的选择，以此作为程序继续执行的依据 提示信息：用于指定显示在对话框中的信息，要在提示信息中对文本信息进行换行，可以使用回车符、换行符或者回车符与换行符的组合 按钮类型：数值型数据，用来指定对话框中出现的按钮和图标的种类及数量，该参数的值由三类数值相加产生，这三类数值分别表示按钮的类型、显示图标的种类及默认按钮的位置。见P110表4.4，表4.5是返回值 标题：可选项，显示在对话框的标题栏中，如果省略，则在标题栏中显示应用程序名 【例10.7】列表框的动态更新。 Private Sub btnAdd_Click() List1.AddItem txtNameNew.Text 在列表框最后添加列表项 List1.ItemData(List1.ListCount - 1) = txtAgeNew.Text 修改最后一项的ItemData End Sub Private Sub btnDel_Click() If List1.ListIndex = 0 Then txtNameDel.Text = List1.List(List1.ListIndex) 显示要删除的列表项 txtAgeDel.Text = List1.ItemData(List1.ListIndex) List1.RemoveItem List1.ListIndex 删除选中的列表项 End If End Sub 【例10.8】多项选择。 关键是设置ListBox的属性！ Private Sub btnOK_Click() Dim i As Integer ‘循环变量 Dim b As Boolean ‘用于判断是否是第一项、有无选中的项 Dim s As String ‘输出结果 b = False s = txtName.Text 爱好 For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then If b Then s = s 、 Else b = True End If s = s List1.List(i) End If Next If b Then Label3.Caption = s Else Label3.Caption = End Sub 10.3.4 组合框（ComboBox） 组合框是组合了列表框和文本框的控件，允许在文本框中 输入和编辑数据，也可以在列表框中选择数据。 1）Style属性 （1）0-DropD