列表框和组合框

江苏省无锡立信会计学校备课笔记
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()
［解］第一步：创建新窗体Form1，在此窗体上创建5个标签Label1、Label2、Label3、Label4、Label5,和3个列表框List1、List2、List3。

第二步：设置对象的属性
对象类型对象名属性设置
窗体Form1 Caption 计算100以内的勾股数
标签Label1 Caption a＾2
标签Label2 Caption +
标签Label3 Caption B＾2
标签Label4 Caption ＝
标签Label5 Caption C＾2
列表框List1 List 空白
列表框List2 List 空白
列表框List2 List 空白第三步：补充完成代码编写
Private Sub Form_Activate()
Dim i As Integer, j As Integer, c As Single
For i = 1 To 100
For j = i + 1 To 100
c = Sqr(i ^ 2 + j ^ 2)
If c < 100 And Int(c) = c Then
List1.AddItem i
List2.AddItem j
创建一个窗体Form1（Caption：字体设置），在此窗体上创建2个标签、1个文本框和2个组合框，界面如下图，要求程序运行时，能通过组合框改变文本框中文字的字形和大小。

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

第二步：设置对象的属性
对象类型对象名属性设置
窗体Form1 Caption 组合框的应用
标签Label1 Caption 字体
标签Label2 Caption 大小
文本框Text1 Text 心想事成
组合框Combo1 List 宋体、楷体_gb2312、仿宋_gb2312、黑体、隶书
组合框Combo2 List 8、12、16、20、24、36、48、
60、72
第三步：补充完成代码编写
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text '设置字体
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text) '设置字号
End Sub
［思考题］创建一个窗体Form1（Caption：组合框的应用），在此窗体上创建1个文本框和1个组合框，界面如下图，要求程序运行时，能通过组合框选项，在文本框中显示当前系统日期和时间。

［解］第一步：创建新窗体Form1，在此窗体上创建1个文本框Text1和1个组合框Combo1。

第二步：设置对象的属性
对象类型对象名属性设置
窗体Form1 Caption 组合框的应用
文本框Text1 Text 空白
组合框Combo1 List 空白
第三步：补充完成代码编写
Private Sub Form_Load()
Combo1.Text = "系统日期和时间的显示"
Combo1.AddItem "当前日期"
Combo1.AddItem "当前时间"
Combo1.AddItem "当前日期和时间"
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.Text = "当前日期:" & Date
Case 1
Text1.Text = "当前时间:" & Time
Case 2
Text1.Text = "当前日期:" & Date & " 当前时间:" & Time
End Select
End Sub
［思考题］创建一个窗体Form1（Caption：偶数迁移），在此窗体上创建2个标签、2个命令按钮和2个列表框，界面如下图，要求程序运行时，点击“产生”命令按钮，在左边列表框中随机产生10个两位正整数，点击“――＞”命令按钮，10个整数中偶数自动迁移到右边的列表框。

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

第二步：设置对象的属性
对象类型对象名属性设置
窗体Form1 Caption 空白
标签Label1 Caption 空白
标签Label2 Caption 空白
命令按钮Command1 Caption 空白
命令按钮Command2 Caption 空白
列表框List1 List 空白
列表框List2 List 空白
第三步：补充完成代码编写
Private Sub Form_Load()
Form1.Caption = "偶数迁移"
Form1.BorderStyle = 3
Label1.Caption = "两位正整数:"
Label2.Caption = "偶数:"
Command1.Caption = "产生"
Command2.Caption = "-->"
End Sub
Private Sub Command1_Click() '产生10个随机数List1.Clear
Randomize
For i = 1 To 10
List1.AddItem Int(Rnd * 90) + 10
Next i
List2.Clear 'list2中所有的数清空
End Sub
Private Sub Command2_Click()。