谁有VB6.0程序设计基础教程答案
发布网友
发布时间：2022-04-23 23:01
共2个回答
热心网友
时间：2023-09-09 09:22
第 4 讲 常用控件--
列表框和组合框
上两讲我们介绍了标签、文本框、命令按钮、单选钮、复选框和框架的创建方法，本讲我们介绍列表框（ListBox）和组合框(ComboBox)的创建方法。
列表框和组合框都是图形用户界面的基本元素，用于简化用户的输入操作。在文本框中，用户需要逐个字符地输入。如果用户需要输入的数据可以在系统已有的若干项中选择，则就没有必要再逐个字符地输入。
列表框就是列出了系统中已有的多项数据，供用户选择。用户在运行时不能对其中的内容进行修改（但程序员可在设计时修改，也可以用程序代码来实现运行时的动态修改）。列表框中的项数超出边界时自动会出现垂直滚动条，列表框的宽度不够时会自动出现水平滚动条。
例6. 开发一个应用。
要求：
其运行窗口中有一个列表框（其中包含若干个英文单词）以及一个文本框，当用户选择列表框中的某个英文单词时，该单词的中文解释就会出现在文本框中。
列表框的上方有中文标签“英文单词：”，
文本框的上方有中文标签“中文含义：”。
在编写程序代码之前首先要了解列表框常用的一些属性和方法：
列表框常用的属性及其含义
List（0） 列表框中的第1个数据项
List（1） 列表框中的第2个数据项
ListCount 列表框中所包含的数据项数目
Text 列表框中当前选中的数据项内容
ListIndex 列表框中当前选中的数据项的编号
NewIndex 在列表框尾部插入一个数据项时的编号
List属性包含了列表框中的全部数据项。List(0)表示第1项，List(1)表示第2项，依次类推。每一项都是一个字符串。
本例中，对列表框的单击事件编写程序代码如下：
Private Sub LstEn_Click()
Select Case LstEn.ListIndex
Case 0
Txt1.Text = "对齐"
Case 1
Txt1.Text = "标题"
Case 2
Txt1.Text = "图标"
End Select
End Sub
组合框（ComboBox）由一个单行的文本框与一个下拉列表框结合而成，其作用是既可以让用户从下拉的列表框中选择所需的数据项，又可以由用户在内部的文本框中直接输入数据项。特别是当列表框包含的数据项不全时，有时需要由用户在运行时直接输入。
组合框平时只占一行位置，其中的值就是缺省值（可以为空）。需要查看列表框内容时，可以再下拉出列表框，选择某个数据项后，列表框又会卷缩起来。
组合框中，下拉列表框中的数据是设计时预先输入的，用户在运行时不能输入，不能修改，不能删除，但程序员可以预先设计好程序代码，使用户通过调用程序代码来修改组合框中列表框的内容。
具体的做法请见例7。
例7．请开发一个应用，其运行窗口中包含一个组合框（其中列出了若干个城市名称）以及两个命令按钮“增项”和“删项”，在窗口底部还有一个状态栏。
当用户在组合框中选择了一个城市或直接输入了一个城市后，状态栏中就会出现该城市名。当用户在组合框中选择了一个城市名，再单击按钮“删项”时，组合框中就会删除该项。若用户在组合框中输入了一个新的城市名，并单击按钮“增项”时，组合框中就会增加该项。
在设计时需要注意，工具箱中的“ComboBox”用于创建组合框，其中的Text属性可赋予缺省值，List属性中需要输入各个数据项，输入时以Ctrl+Enter换行，输入全部结束后，再回车。
仅含文字的状态栏可以用特殊的文本框来实现，其背景颜色（BackColor属性）应与窗口中一般元素的背景颜色相当（如选用菜单条的背景色，也可用16进制形式的属性值&H80000004&），位置最好紧贴窗口底部，并且禁止用户在运行时在其中输入数据（Enabled属性值应取False）。
本例主要的属性设置如下表：
对象 属性名 属性值
组合框 （名称） cboCity
Text 北京
List （多个城市名）
文本框 （名称） Txt1
Text 所选城市：北京
BackColor &H80000004&
Enabled False
按钮1 （名称） cmdAdd
Caption 增项
按钮2 （名称） cmdDel
Caption 删项
本例的程序代码如下：
'组合框单击事件的代码（将组合框的当前选项送文本框）
Private Sub CboCity_Click()
Txt1.Text = "所选城市："+ cboCity.Text
End Sub
'按钮增项的单击事件的代码
Private Sub CmdAdd_Click()
cboCity.AddItem cboCity.Text
Txt1.Text = "所选城市："+ cboCity.Text
End Sub
'按钮删项的单击事件的代码
Private Sub CmdDel_Click()
cboCity.RemoveItem cboCity.ListIndex
Txt1.Text = ""
End Sub
热心网友
时间：2023-09-09 09:22
请说明你要的范围!或需要的要求代码!我的QQ:171162612
