VB程序设计第二版第五章.pptVIP

命令按钮 的代码： Private Sub Command2_Click() m = List1.ListCount For i = 0 To m -1 List2.AddItem List1.List(i) Next List1.clear ‘一次可清除List1的所有数据项 End Sub * 命令按钮 的代码 Private Sub Command3_Click() If List2.ListIndex = -1 Then MsgBox 请选择右边项目 Else List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End If End Sub * 命令按钮 的代码 Private Sub Command4_Click() m = List2.ListCount For i = 0 To m -1 List1.AddItem List2.List(i) Next List2.clear 清除list2的所有数据项 End Sub * List1的DblClick的代码： Private Sub List1_DblClick() List2.AddItem List1.List(List1.ListIndex) ‘等价于 list2.AddItem list1.text List1.RemoveItem List1.ListIndex End Sub List2的DblClick代码 Private Sub List2_DblClick () List1.AddItem List2.List(List2.ListIndex) ‘等价于 list1.AddItem list2.text List2.RemoveItem List2.ListIndex End Sub * 5.8 组 合 框 * 属于ComboBox类。作用与列表框类似。 组合框控件将文本框和列表框的特性结合在一起，既可以在控件的文本框（编辑域）部分输入信息，也可以在控件的列表框部分选择一项。 1．属性 （1）List属性：返回或设置组合框的列表部分的项目。在设计时可以在属性窗口中直接输入列表项目。 （2）Style属性：用于指定组合框的显示形式，可以取以下几种值。 0（缺省）——下拉组合框，包括一个文本框和一个下拉式列表。 1——简单组合框。该形式同样包括一个文本框和一个列表框，但不能将列表折叠起来。 2——下拉列表框。这种样式仅允许从下拉列表中选择，不能在文本框中输入文本，列表可以折叠起来。 * * （3）Text属性：当ComboBox控件的Style属性设置为0或为1时，该属性用于返回或设置编辑域中的文本。而当Style属性设置为2时，该属性为只读属性. Style属性为0 下拉组合框 Style属性为1 简单组合框 Style属性为2 下拉列表框 * （4）ListIndex属性：返回或设置在组合框下拉列表中当前选择项目的索引，在设计时不可用。 （5）ListCount属性：返回组合框的列表部分项目的总个数。 （6）Sorted属性：指定列表项目是否自动按字母表顺序排序。 True——按字母表顺序排序； False（缺省值）——不按字母表顺序排序 * 2．方法 AddItem：向组合框中添加新的项目， RemoveItem：从组合框的列表中删除项目 Clear：清除列表框中的所有项目 【例5-14】 设计窗体，选择字体、选择字号，文本框中文字的字体、字号立即变化。其设计状态和运行状态如图5-57和图5-58所示。 * “Combo1的Click”的代码： Private Sub Combo1_Click() Text1.FontName = Combo1.Text End Sub “Combo2的Click”的代码： Private Sub Combo2_Click() Text1.FontSize = Val(Combo2.Text) End Sub * 5.9 定 时 器 * 属于Timer类，该控件可用于实现每隔一定的时间间隔自动执行指定的操作。 1．属性 （1）Enabled属性： True——定时器有效，启动定时器的计时功能， False——停止定时器的计时功能。 （2）Interval属性： 定时时间间隔，以ms为单位。最大值为65535ms，等于1分钟多一些。 * 2．事件 定时器只有一个Tim