列表框和组合框

江苏省无锡立信会计学校备课笔记

3、重要方法：

AddItem：向列表框中添加一个新的列表项

RemoveItem：在列表框中删除一个列表项

Clear ：清除列表框中的所有内容

[练习1］说出下列代码的含义

List1.AddItem Text1.Text

把文本框Text1中的文本添加到列表框List1中。

List1.RemoveItem List1.ListIndex

把列表框List1中选中的项目删除。

List2.AddItem List1.Text

把列表框List1中选中的文本添加到列表框List2中。

List2.RemoveItem List2.ListIndex

把列表框List1中选中的项目删除。

创建一个窗体Form1（Caption：书籍采购计划），在此窗体上创建2个标签、1个文本框、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能通过文本框向列表框添加书目或删除已有书目。

［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，2个命令按钮Command1、Command2，和1个列表框List1。

第二步：设置对象的属性

对象类型对象名属性设置

窗体Form1 Caption 书籍采购计划

标签Label1 Caption 书名

标签Label2 Caption 采购列表

命令按钮Command1 Caption 添加

命令按钮Command1 Caption 删除

文本框Text1 Text 空白

列表框List1 List 空白

第三步：补充完成代码编写

Private Sub Command1_Click()'添加按钮

If Text1.Text <> "" Then 练习

分析程序

［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，和2个组合框Combo1、Combo2。

第二步：设置对象的属性

对象类型对象名属性设置

窗体Form1 Caption 组合框的应用

标签Label1 Caption 字体大小

标签Label2 Caption 字体颜色

文本框Text1 Text 八荣八耻（见图）

组合框Combo1 List 8、10、12、14、16、18、20

组合框Combo2 List 黑色、红色、绿色、蓝色、黄色、青色、紫红

第三步：补充完成代码编写

Private Sub Combo1_Click()

Text1.FontSize = Val(Combo1.Text)

End Sub

Private Sub Combo2_Click()

Dim x As String

x = Combo2.Text

Select Case x

Case "黑色"

Text1.ForeColor = vbBlack

Case "红色"

Text1.ForeColor = vbRed

Case "绿色"

Text1.ForeColor = vbGreen

Case "蓝色"

Text1.ForeColor = vbBlue

Case "黄色"

Text1.ForeColor = vbYellow

Case "青色"

Text1.ForeColor = vbCyan

Case "紫红"

分析程序

Text1.ForeColor = vbMagenta

End Select

End Sub

上机完成下列练习

创建一个窗体Form1（Caption：选修课程），在此窗体上创建2个标签、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能够双向选择选修课程。

［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,2个命令按钮Command1、Command2，和2个列表框List1、List2。第二步：设置对象的属性

对象类型对象名属性设置

窗体Form1 Caption 选修课程

标签Label1 Caption 选修课目录

标签Label2 Caption 我的选修课程

命令按钮Command1 Caption ＞

命令按钮Command1 Caption ＜

列表框List1 List 按图例输入

列表框List2 List 空白

第三步：补充完成代码编写

Private Sub Command1_Click() ‘选中课程

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End Sub

Private Sub Command2_Click() ‘删除选中课程

List1.AddItem List2.Text

List2.RemoveItem List2.ListIndex

End Sub

［

创建一个窗体Form1（Caption：计算100以内整数的平方和立方），在此窗体上创建3个标签和3个列表框，界面如下图，要求程序运行时，能够给出自然数1～100的平方和立方。

［解］第一步：创建新窗体Form1，在此窗体上创建3个标签Label1、Label2、Label3,和3个列表框List1、List2、List3。

第二步：设置对象的属性

对象类型对象名属性设置

窗体Form1 Caption 计算100以内整数的平方和立方

标签Label1 Caption X

标签Label2 Caption X＾2

标签Label3 Caption X＾3

列表框List1 List 空白

列表框List2 List 空白

列表框List2 List 空白第三步：补充完成代码编写

Private Sub Form_Activate()

Dim X

For X = 1 To 100

List1.AddItem X

List2.AddItem X * X

List3.AddItem X * X * X

Next X

End Sub

Private Sub List1_Click()