列表框和组合框Word文档下载推荐.docx
- 文档编号:15012284
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:20
- 大小:241.27KB
列表框和组合框Word文档下载推荐.docx
《列表框和组合框Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《列表框和组合框Word文档下载推荐.docx(20页珍藏版)》请在冰豆网上搜索。
(3)PrivateSubOption4_Click(lndexAsInteger)
演示
Text1.Alignment=0
Text1.Alignment=1
Text1.Alignment=2
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
创建一个窗体Forml(Caption:
书籍采购计划),在此窗体上创建2个标签、1个文本框、2个命令按钮和1个列表框,界面如下图,要求程序运行时,能通过文本框向列表框添加书目或删除已有书目。
!
□!
x]
书名:
采购列表:
EndIf
Textl.Text="
"
Textl.SetFocus
PrivateSubCommand2_Click()删除按钮
Listl.RemoveltemList1.ListIndex
二、组合框控件(Combo控件)
组合框兼有文本框和列表框两者的功能,既可在控件的文
对比万【1表框
本框部分输入信息,也可选择列表中的一项。
默认名称为Combo1、
对比列表框
Combo2、Combo3…。
讲解组合框
Style属性:
决定了组合框的类型
Style=0:
下拉式组合框
Style=1:
简单组合框
Style=2:
下拉式列表框,不允许用户输入新文本,只能在
列表项中进行选择。
向组合框中添加一个新的项目
RemoveItem:
在组合框中删除一个项目
清除组合框中的所有内容
[练习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
子体大小
Label2
字体颜色
文本框
Text1
Text
:
八荣八耻(见图)
组合框
Combo1
List
8、10、12、14、16、18、20
Combo2
黑色、红色、绿色、蓝色、黄色、青色、紫红
第三步:
补充完成代码编写
PrivateSubCombo1_Click()
Textl.FontSize=Val(Combo1.Text)
PrivateSubCombo2_Click()DimxAsString
x=Combo2.Text
SelectCasex
Case"
黑色"
Text1.ForeColor=vbBlack
红色”
Text1.ForeColor=vbRed
绿色”
Text1.ForeColor=vbGreen
蓝色"
Text1.ForeColor=vbBlueCase"
黄色"
Text1.ForeColor=vbYellow
青色"
Text1.ForeColor=vbCyan
紫红"
Textl.ForeColor=vbMagenta
上机完成下列练习
创建一个窗体Forml(Caption:
选修课程),在此窗体上创建2个标签、2个命令按钮和1个列表框,界面如下图,要求程序运行时,能够双向选择选修课程。
选修课目录我的选修课程
A
创建新窗体Form1,在此窗体上创建2个标签Label1、
Label2,2个命令按钮Command1、Command2,和2个列表框List1、List2。
第二步:
选修课程
选修课目录
我的选修课程
命令按钮
Command1
>
V
列表框
List1
按图例输入
List2
空白
PrivateSubCommand1_Click()'
选中课程
List2.AddltemList1.Text
List1.RemoveItemList1.ListIndex
PrivateSubCommand2_Click()'
删除选中课程
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
[
创建一个窗体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。
计算100以内整数的平方和立方
X人2
Label3
X人3
PrivateSubForm_Activate()DimX
ForX=1To100
List1.AddltemX
List2.AddltemX*X
List3.AddItemX*X*X
NextX
PrivateSubList1Click()
List1.Selected(List1.Listlndex)=True
List2.Selected(List1.Listlndex)=True
List3.Selected(List1.Listlndex)=True
PrivateSubList2_Click()
List1.Selected(List2.ListIndex)=True
List2.Selected(List2.ListIndex)=True
List3.Selected(List2.ListIndex)=True
PrivateSubL
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 列表 组合