列表框和组合框.docx
《列表框和组合框.docx》由会员分享，可在线阅读，更多相关《列表框和组合框.docx（20页珍藏版）》请在冰豆网上搜索。
列表框和组合框
江苏省无锡立信会计学校备课笔记
教学内容
学生活动
复习：
提问：
1、说出下列程序的含义的功能：
（1）PrivateSubForm_Load（）
Textl.FontBold=False
Textl.Fontltalic=False
Text1.FontUnderline=False
EndSub
（2）PrivateSubCheck1_Click（lndexAsInteger）
提问
SelectCaseIndex
Case0
Text1.FontBold=NotText1.FontBold
Case1
Text1.Fontltalic=NotText1.Fontltalic
Case2
Text1.FontUnderline=NotText1.FontUnderline
EndSelect
EndSub
（3）PrivateSubOption4_Click（lndexAsInteger）
SelectCaseIndex
演示
Case0
Text1.Alignment=0
Case1
Text1.Alignment=1
Case2
Text1.Alignment=2
EndSelect
EndSub
2、演示例
新授课：
一、列表框控件（List控件）
1、功能：
列表框常用来显示一个项目的列表，用户可从中选择一项
或多项。
默认名称为List1、List2、List3…。
2、重要属性：
List属性：
以一维字符型数组形式表示列表框中所有的选项内容。
列表框主要
ListIndex属性：
执行时选中的列表项序号
功能介绍
ListCount属性：
列表框中列表项的数目
Text属性：
被选中的列表项的文本内容，只能在程序中引用
Selected属性：
用于判断列表项是否被选中
MutiSelect属性：
设定列表框中是否允许同时选中多个列表项
3、重要方法：
AddItem:
向列表框中添加一个新的列表项
Removeitem:
在列表框中删除一个列表项
Clear:
清除列表框中的所有内容
［练习1］说出下列代码的含义
Listl.AddltemTextl.Text
练习
把文本框Textl中的文本添加到列表框Listl中。
Listl.RemoveltemListl.ListIndex
把列表框Listl中选中的项目删除。
List2.AdditemListl.Text
把列表框Listl中选中的文本添加到列表框List2中。
List2.RemoveitemList2.ListIndex
把列表框Listl中选中的项目删除。
创建一个窗体Forml（Caption：
书籍采购计划），在此窗体上创建2个标签、1个文本框、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能通过文本框向列表框添加书目或删除已有书目。
!
□!
x]
书名:
采购列表:
教学内容
学生活动
Listl.AddltemTextl.Text
EndIf
Textl.Text=""
Textl.SetFocus
EndSub
PrivateSubCommand2_Click（）删除按钮
Listl.RemoveltemList1.ListIndex
EndSub
二、组合框控件（Combo控件）
1、功能：
组合框兼有文本框和列表框两者的功能，既可在控件的文
对比万【1表框
本框部分输入信息，也可选择列表中的一项。
默认名称为Combo1、
对比列表框
Combo2、Combo3…。
讲解组合框
2、重要属性：
List属性：
以一维字符型数组形式表示列表框中所有的选项内容。
ListIndex属性：
执行时选中的列表项序号
Text属性：
被选中的列表项的文本内容，只能在程序中引用
Style属性：
决定了组合框的类型
Style=0:
下拉式组合框
Style=1:
简单组合框
Style=2:
下拉式列表框，不允许用户输入新文本，只能在
列表项中进行选择。
3、重要方法：
练习
AddItem:
向组合框中添加一个新的项目
RemoveItem:
在组合框中删除一个项目
Clear:
清除组合框中的所有内容
［练习2］说出下列代码的含义
Text1.FontName=Combo1.Text
把文本框Text1的文字字形设置为组合框中规疋的字形。
Text1.FontSize=Val（Combo2.Text）
把文本框Text1的文字字号设置为组合框中规疋的字号。
提冋
思考：
为什么要用VAL（）函数？
创建一个窗体Form1（Caption:
组合框的应用），在此窗体上创建
2个标签、1个文本框和2个组合框，界面如下图，要求程序运行时，能
通过组合框改变文本框中文字的大小和颜色。
IW阳
以勲套担国为荣、以服务人民为荣、以黑尚科学为荣、以辛勤劳动为糜、以団外互励为荣、以诚虫守行为彊以遭記守法为荣、以風石斎*力荣、以危害祖国为耻*以肖离人艮为耻“以嵐昧无知为肛*次时憊岳務为A以欄人利己为耻,以见利忘宝为耻*以违法乱址为耻,以特奢淳購为时"
I"*
［解］第一步：
创建新窗体Forml，在此窗体上创建2个标签Labell、
Label2,1个文本框Textl，和2个组合框Combol、Combo2。
第二步：
设置对象的属性
对象类型
对象名
属性设置
窗体
Form1
Caption
组合框的应用
标签
Label1
Caption
子体大小
标签
Label2
Caption
字体颜色
文本框
Text1
Text
:
八荣八耻（见图）
组合框
Combo1
List
8、10、12、14、16、18、20
组合框
Combo2
List
黑色、红色、绿色、蓝色、黄色、青色、紫红
第三步：
补充完成代码编写
PrivateSubCombo1_Click（）
Textl.FontSize=Val（Combo1.Text）
EndSub
PrivateSubCombo2_Click（）DimxAsString
x=Combo2.Text
SelectCasex
Case"黑色"
Text1.ForeColor=vbBlack
Case"红色”
Text1.ForeColor=vbRed
Case"绿色”
Text1.ForeColor=vbGreen
Case"蓝色"
Text1.ForeColor=vbBlueCase"黄色"
Text1.ForeColor=vbYellow
Case"青色"
Text1.ForeColor=vbCyan
Case"紫红"
Textl.ForeColor=vbMagenta
EndSelect
EndSub
上机完成下列练习
创建一个窗体Forml（Caption:
选修课程），在此窗体上创建2个标签、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能够双向选择选修课程。
选修课目录我的选修课程
A
［解］第一步：
创建新窗体Form1，在此窗体上创建2个标签Label1、
Label2,2个命令按钮Command1、Command2,和2个列表框List1、List2。
第二步：
设置对象的属性
对象类型
对象名
属性设置
窗体
Form1
Caption
选修课程
标签
Label1
Caption
选修课目录
标签
Label2
Caption
我的选修课程
命令按钮
Command1
Caption
>
命令按钮
Command1
Caption
V
列表框
List1
List
按图例输入
列表框
List2
List
空白
第三步：
补充完成代码编写
PrivateSubCommand1_Click（）'选中课程
List2.AddltemList1.Text
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubCommand2_Click（）'删除选中课程
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
EndSub
[
创建一个窗体Forml（Caption：
计算100以内整数的平方和立方），在此窗体上创建3个标签和3个列表框，界面如下图，要求程序运行时，能够给出自然数1〜100的平方和立方。
-|D|x|
編计SiooiiL内整数的平方和立方
上_ZJ
O149G5G94-1O]
149116药篦竹開I8II1OCIIZIMII6I]96I225I256磁更136橄舸
2d
X
吐9345ET89I10:
:
:
IL2HI11I1SI16I1TI1BI]9I20I2I
［解］第一步：
创建新窗体Forml，在此窗体上创建3个标签Labell、
Label2、Label3,和3个列表框Listl、List2、List3。
第二步：
设置对象的属性
对象类型
对象名
属性设置
窗体
Form1
Caption
计算100以内整数的平方和立方
标签
Label1
Caption
X
标签
Label2
Caption
X人2
标签
Label3
Caption
X人3
列表框
List1
List
空白
列表框
List2
List
空白
列表框
List2
List
空白
第三步：
补充完成代码编写
PrivateSubForm_Activate（）DimX
ForX=1To100
List1.AddltemX
List2.AddltemX*X
List3.AddItemX*X*X
NextX
EndSub
PrivateSubList1Click（）
教学内容
学生活动
List1.Selected（List1.Listlndex）=True
List2.Selected（List1.Listlndex）=True
List3.Selected（List1.Listlndex）=True
EndSub
PrivateSubList2_Click（）
List1.Selected（List2.ListIndex）=True
List2.Selected（List2.ListIndex）=True
List3.Selected（List2.ListIndex）=True
EndSub
PrivateSubL
升级会员 