VB第6章-循环处理.pptVIP

各控件的属性设置如表。 对象 属性 设置 窗体 （名称） frmListAtt Caption 列表框属性 列表框1 （名称） lstFont MultiSelect 2 列表框2 （名称） lstSelected 命令按钮1 （名称） cmdDisplay Caption 显示 命令按钮2 （名称） cmdExit Caption 退出 标签1 （名称） 可选的屏幕字体 Caption lblTitle1 标签2 （名称） 被选中的字体 Caption lblTitle2 6.2.3 列表框的常用属性 6.2.3 列表框的常用属性 窗体初始化时，将屏幕字体名称填写到列表框lstFont中。程序如下。 Private Sub Form_Load() 用屏幕字体名字填充列表框。 For i = 0 To Screen.FontCount - 1 lstFont.AddItem Screen.Fonts(i) Next i End Sub 利用一个循环，把Screen对象的每种字体Fonts(i)添加到列表框lstFont中，如图所示。 Screen是系统自动产生的屏幕对象。通过该对象的Fonts属性，能够得到当前计算机屏幕所能使用的字体。 由Screen对象的FontCount属性，能够得到字体的数量 6.2.3 列表框的常用属性 cmdDisplay_Click中，依次判断屏幕字体是否被选中。若被选中，将其添加到lstSelected中；否则，判断下一个列表项。 stFont.ListCount是列表框中所显示的屏幕字体的数量。注意列表框的 Selected和 List属性数组的下标是从0开始，循环变量i的值从0到ListCount–1。其过程如下： Private Sub cmdDisplay_Click() LstSelected.Clear For i = 0 To lstFont.ListCount – 1 If lstFont.Selected(i) Then lstSelected.AddItem lstFont.List(i) End If Next i End Sub lstFont.Selected(i)值为真，表示列表框中序号为i 的列表项被选中。这时应将该项的内容显示在列表框lstSelected中。 6.2.3 列表框的常用属性 7. Sorted 属性 列表框中列表项可以按照其加入到列表框中的先后次序排列，此时应将Sorted属性置为False ，即列表框中显示的列表项不按字母顺序排序；若想使其按字母序排列，应将Sorted属性设为True。 8. Text 属性 如果列表框中选择了多个列表项，列表框的Text属性值是最后一次选中的正文。也就是说，通过Text属性只能得到一个被选中的列表项。 6.2.3 列表框的常用属性 9. Style 属性 列表框的Style 属性有两个值：0 和 1 。对应不同的Style值，列表框有不同的外观形式。如图所示 。 6.3 组合框 列表框能从多个列表项中任选一个或多个进行相应的处理。但有时不仅需要从已有的列表项中进行选择，还希望能输入列表中不包含的列表项。 例如，如果需要输入列表中未包括的图片名称，就需要使用文本框等控件接受输入的文字。 使用组合框（ComboBox）能解决这个问题。 组合框相当于将列表框和文本框的功能综合到一起。 6.3.1 组合框的使用 例：使用组合框。 设计一个程序，要求程序运行后，在组合框中显示若干城市的名称。选中某个城市后，将其名称显示在对应于“选中的城市”的标签中。在程序运行中，可以向组合框中添加新的城市，也可以删除选中的城市。 窗体外观如图所示 。 6.3.1 组合框的使用 对象 属性 设置 窗体 (名称) Form1 组合框 (名称) cboCity Style 1 标签1 (名称) lblTitle1 Caption 所有城市 标签2 (名称) lblTitle2 Caption 选中的城市 标签3 (名称) lblCity Caption 置空 BorderStyle 1 命令按钮1 (名称) cmdAdd Caption 添加 命令按钮2 (名称) cmdDelete Caption 删除 命令按钮3 (名称) cmdExit Caption 退出 在Form_Load中把城市名称添加到组合框中。 过程代码如下。 Private Sub Form_Load() cboCity.AddItem 北京 cboCity.AddItem 上海 cboCity.AddItem 天津