常用内部控件Word文件下载.docx
- 文档编号:20406140
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:28
- 大小:36.40KB
常用内部控件Word文件下载.docx
《常用内部控件Word文件下载.docx》由会员分享,可在线阅读,更多相关《常用内部控件Word文件下载.docx(28页珍藏版)》请在冰豆网上搜索。
所有控件都有一个属性,只需引用控件名而无需使用属性名即可访问这个属性,此属性被称为控件的默认属性。
例如,Option1.Value=True与Option1=True等效。
其他常用控件如文本框控件的默认属性为Text,标签控件的默认属性为Caption。
使用默认属性时,代码的可读性略受影响,所以在不引起代码阅读困难时方可考虑使用默认属性。
(2)Style属性
单选按钮的Style属性用来设置控件的外观。
当值为0时,控件显示如图6.1所示的标准样式;
当值为1时,控件显示如图6.2所示的图形样式,其外观类似于命令按钮。
(3)Picture、DownPicture和DisabledPicture属性
当Style属性为1时,这三个属性有效,从而使单选按钮的外观更加形象直观。
其中:
Picture属性返回或设置控件中要显示的图像;
DownPicture属性返回或设置控件被选中后(即单击后)要显示的图像;
DisabledPicture属性返回或设置控件无效时显示的图像,即控件的Enabled属性为False时控件的外观图像。
三个属性可以在设计阶段通过“属性窗口”直接设置为某个图像文件,也可以在运行期间由函数LoadPicture加载。
在图6.3中,单选按钮的Style已经设置为1,左图表示设置了Picture属性的情况,而右图表示同时设置了DownPicture属性的情况。
2.常用事件
单选按钮可以识别的主要事件是单击(Click)事件。
【例6.1】控制文本框中文本的字体变化。
字体可以使用“宋体”、“隶书”和“幼圆”三者之一。
本例通过三个单选按钮选择字体名称,相应的属性设置见表6.1。
其中,将文本框Text1的Multiline属性设为True的目的是使其允许多行显示。
此时,在属性窗口设置文本框的Text属性时,须通过组合键Ctrl+回车来分行输入文本内容。
程序的运行结果如图6.4,代码如下:
PrivateSubcmdOk_Click()'
单击“应用”按钮
IfoptFont1=TrueThenText1.FontName="
宋体"
IfoptFont2=TrueThenText1.FontName="
隶书"
IfoptFont3=TrueThenText1.FontName="
幼圆"
PrivateSubForm_Load()'
窗体加载
Text1.FontName="
Text1.FontSize=12
optFont1=True
6.1.2复选框
复选框(CheckBox)也称为选择框、检查框,通常用于提供Yes/No或True/False的逻辑选择。
一个复选框主要有两种状态:
选中状态,或称打开状态,复选框上出现“√”标志;
未选中状态,或称关闭状态,不出现“√”标志。
复选框的属性和单选按钮的属性基本类似。
其主要属性是Value属性,Value属性指示其所处的状态:
0表示没有选中,1表示该项选中,2表示禁止使用。
复选框可以识别的主要事件是单击(Click)事件。
程序运行中,当用户单击复选框时将触发其Click事件,每单击一次其状态就在“没有选中”和“选中”之间变换一次,相应地,其Value属性的值在0和1之间变换。
因此,当发生了Click事件时,程序要判断Value属性的值,以便确定是否选中。
需要注意的是,复选框与单选按钮都可表示一种状态,因此两者有相似之处,但有本质的区别:
一组复选框中的多个项目是相互“兼容”的,一组单选按钮中的多个项目却是相互“排斥”的。
【例6.2】用复选框控制文本是否加下划线和斜体显示。
在窗体上添加一个文本框,两个复选框。
属性设置如表6.2,运行界面如图6.5所示。
为两个复选框的单击事件编写如下事件过程:
PrivateSubCheck1_Click()'
单击“下划线”复选框
IfCheck1.Value=1Then
Text1.FontUnderline=True'
加下划线
Else
Text1.FontUnderline=False
EndIf
PrivateSubCheck2_Click()'
单击“斜体”复选框
IfCheck2.Value=1Then
Text1.FontItalic=True'
斜体
Text1.FontItalic=False
PrivateSubForm_Load()
Text1.FontSize=18
【例6.3】用户信息的收集是一类常见的应用程序。
本例要求编写程序收集用户选择的专业类别和选修课程。
其中,可选择的专业类别有“计算机专业”和“机电专业”,可选择的课程有“高等数学”、“大学英语”和“程序设计”。
显然,本例中专业的所属类别之间具有排斥性,可以用单选按钮实现;
而选修课程之间具有兼容性,应该用复选框实现。
属性设置如表6.3,其中将Option1的Value属性设为True,表示初始时默认选中“计算机专业”。
代码如下,其中的Chr(13)、Chr(10)是产生回车换行(亦可用VB常数vbCrLf);
为了简化代码,将所收集到的用户选择信息用MsgBox函数显示出来。
PrivateSubCommand1_Click()
DimstrAsString,linkAsString
link=Chr(13)&
Chr(10)
IfOption1.Value=TrueThen
str="
计算机专业"
Else
机电专业"
EndIf
str=str&
"
选择了:
"
&
link
IfCheck1.Value=1Thenstr=str&
link&
高等数学"
IfCheck2.Value=1Thenstr=str&
大学英语"
IfCheck3.Value=1Thenstr=str&
程序设计"
MsgBoxstr,vbYesNo,"
采集信息"
单击“确定”按钮后的运行结果如图6.6。
6.1.3框架
框架(Frame)是一个容器,可以在其上放置其它控件对象,主要作用是能够把一些控件组织在一起形成控件组。
分组的用途有二:
一是单纯地对其它控件分组,使功能上密切相关的控件在一个框定的区域内,以便用户分类识别;
二是用于为单选按钮分组。
当不使用框架时,窗体上的单选按钮均视为在同一组。
在图6.7中,左图未使用框架,四个单选按钮中只能有一个被选择;
右图使用了两个框架Frame1和Frame2,将四个单选按钮分成了两组,一组用于选择性别,另一组用于选择职业,于是用户可以在框架Frame1和框架Frame2中各选择一项。
为了实现分组,首先画出框架,然后在框架内画出所需的控件。
如果希望将已经存在的若干控件放在某个框架中,可以先选择这些控件,将它们剪切到剪贴板上,然后选定框架控件并把它们粘贴到框架上。
位于一个框架内的控件会随框架整体移动、隐藏、删除。
框架的常用属性有:
Caption属性(设置框架标题,位于框架的左上角)、Enabled属性(设置框架是否有效)、Visible属性(设置框架是否可见)。
当框架的Enabled属性为False时,框架和框架内的控件均呈灰色,表示不可使用,相当于整体失效;
当框架的Visible属性为False时,框架和框架内的控件均不可见,相当于整体隐藏。
【例6.4】利用框架的分组功能,同时设置文本框的字体、大小、颜色。
本例使用了三个框架,每个框架内均有三个单选按钮。
在一个框架内的三个单选按钮为一组,它们是相互“排斥”的,但三个框架之间是相互“兼容”的。
属性设置见表6.4,其中未设置的属性没有列出。
运行结果如图6.8所示。
程序代码如下:
PrivateSubcmdNo_Click()'
单击“恢复”按钮
Form_Load'
执行Form_Load过程
确定字体名
确定字体大小
IfoptSize1=TrueThenText1.FontSize=12
IfoptSize2=TrueThenText1.FontSize=14
IfoptSize3=TrueThenText1.FontSize=20
确定颜色
IfoptColor1=TrueThenText1.ForeColor=vbBlue
IfoptColor2=TrueThenText1.ForeColor=vbRed
IfoptColor3=TrueThenText1.ForeColor=vbGreen
Text1.ForeColor=vbBlack
6.2列表类控件
当需要向用户提供的备选项目较多时,可采用列表类控件列表框和组合框。
6.2.1列表框
1.列表框的功能
列表框(ListBox)显示由若干项目组成的列表,用户可从中选择一个或多个项目。
所选择的项目被突出显示。
如果列表框中的项目过多,则系统会自动增加一个垂直滚动条,如图6.9所示。
列表框中的项目可以在设计状态下通过属性窗口设定,也可以在运行状态下由程序加入。
前者使用列表框的List属性,一个项目为一行,且以组合键Ctrl+回车进行分行,如图6.10所示;
后者使用列表框的AddItem方法。
列表框中的项目列表是一个整体,它实际上是一个数组(若干元素的有序集合)。
列表框中的每个项目各占一行,所有项目构成项目列表。
列表中的每一项(行)都有自己的位置,用“索引号”来表示(在数组中称为下标)。
列表中第一项的索引号为0,第二项为1,依此类推。
利用索引号可以很方便地访问列表中的任何一个项目。
2.常用属性
(1)Text属性
在程序运行期间,用于获取列表框中当前选择的项目内容。
该属性在设计时不可用。
例如,将列表框List1中所选择的项目内容放入文本框Text1中:
Text1.Text=List1.Text
(2)ListCount和List属性
ListCount属性返回列表框中已有项目的总数目,它是一个设计时无效、运行时只读的属性,即在程序运行时,通过该属性可以获取项目总数,但不能直接设置该属性的值,其值的变化是由其他操作自动决定的。
语法格式为:
列表框对象.ListCount
List属性用来访问列表框中的全部项目内容。
该属性实际是一个字符串数组,数组中的每个元素对应着列表框中的一个项目。
列表框对象.List(索引号)
其中的参数“索引号”指明数组中的元素下标,即第几个元素,它的取值从0开始,到项目数ListCount-1止。
如果某个列表框含有5个项目,则“索引号”参数的取值范围从0到4。
通过指定不同的索引值,可以访问列表的全部项目。
例如,将列表框List1中的第3项复制到文本框Text1中:
Text1.Text=List1.List
(2)
又如,将列表框List1中的全部项目显示在窗体上:
Fori=0ToList1.ListCount-1
PrintList1.List(i)
Nexti
利用List属性还可以改变列表框中现有的一个项目的内容,但被改变的项目必须已经存在,否则出错,例如:
List1.List(0)="
哈尔滨"
将列表框List1中的第1项设置为“哈尔滨”
List1.List(3)="
昆明"
将列表框List1中的第4项设置为“昆明”
(3)ListIndex属性
返回当前已选定项目的位置(索引)号。
未选定项目时,返回的ListIndex值为-1。
该属性只在运行时可用。
当单击列表框中的一个项目后,项目的索引号(下标)便存储在ListIndex属性中。
因此,若ListIndex值不是-1,则以下语句可显示当前选定的项目:
PrintList1.List(List1.ListIndex)'
与PrintList1.Text等效
反之,若对该属性赋值则可选定某一项目。
例如:
List1.ListIndex=0'
选定列表中的第一项
(4)Selected属性
该属性用来设置或返回列表框中某项目的选择状态。
Selected属性也是一个数组,每个数组元素与列表框中的一个项目相对应,用法也和List属性类似。
不同的是,Selected属性数组取逻辑值True、False。
若为True则表示相应的项目被选择,若为False则表示相应的项目没有被选择。
例如,对列表框List1中的第3项而言,如果单击该项目使之被选定,则List1.Selected
(2)的值就会等于True;
反之,如果执行语句List1.Selected
(2)=True,则相当于选择第3项,与List1.ListIndex=2等效。
(5)Sorted和Style属性
Sorted属性确定列表框中的项目是否排序。
其值设置为False(默认)时项目不排序,若为True则项目按照字母升序排列(不区分大小写)。
Style属性确定列表框的样式。
取值为0(默认值)和1,如图6.11所示。
这两个属性只能在设计时设置。
(6)Columns属性
使用Columns属性可以创建多列列表框。
默认情况下,列表框是一种单列列表框,我们通常使用的也是单列列表框,此时Columns=0,并具有垂直滚动条。
当希望使用多列列表框时,便可以设置Columns为大于0的值,表示具有若干列和水平滚动条。
Columns=0时和Columns=2时的列表框如图6.12所示。
(7)MultiSelect属性
MultiSelect属性的默认取值为0,表示列表框是单选列表框,一次只能选择一项。
若将MultiSelect属性值设为1或2,则表示列表框是复选列表框,即可以在列表框的列表中选择多个项目。
值为1时,用鼠标单击或按空格键进行复选;
为2时类似于“资源管理器”,可用Shift+鼠标单击(连续多选)、Ctrl+鼠标单击(不连续多选)等来进行复选。
只能进行单选的列表框,可以通过ListIndex属性或Selected属性判断所选择的项目。
允许进行复选的列表框,所选择的项目可能有多项,故不能通过ListIndex属性判断,一般是通过Selected属性判断。
例如,以下代码可以显示出所有被选择的项目:
Fori=0ToList1.ListCount–1
IfList1.Selected(i)=TrueThenPrintList1.List(i)
(8)NewIndex属性
返回最后加入列表框的项目的索引号。
该属性在设计时无效,运行时只读。
3.主要方法
(1)AddItem方法
AddItem方法用来向列表框中添加一个项目。
列表框对象.AddItem项目[,索引号]
其中“项目”为字符串表达式,表示新加项目的内容。
“索引号”指定添加(插入)的项目在列表中的位置,省略参数“索引号”时,添加的项目排列在列表的最后(追加)。
若指明索引号,当添加了一个项目后,其后项目的位置号自动重排。
例如,将“石家庄”追加到列表框List1中:
List1.AddItem"
石家庄"
又如,如果在列表框List1中选择了一个项目(可能复选),则以下代码可将被选定的项目追加到列表框List2中:
IfList1.Selected(i)ThenList2.AddItemList1.List(i)
(2)RemoveItem方法
RemoveItem方法用来从列表框中删除一个项目。
列表框对象.RemoveItem索引号
其中“索引号”指定要删除的项目在列表中的位置。
当删除一个项目后,其后项目的位置号也自动重排。
例如,删除列表框List1中的第一项:
List1.RemoveItem0
(3)Clear方法
Clear方法清除列表框中所有项目。
列表框对象.Clear。
4.主要事件
列表框的主要事件是Click事件和DblClick事件。
Click事件在单击选择一个项目时被触发,DblClick事件在双击一个项目时被触发。
要注意的是,如果在Click事件过程中有代码,则不会触发DblClick事件。
在通常的操作中,单击一个项目后再配合一个确认按钮来表示选中;
而双击一个项目则往往表示直接选中。
为达到此效果,需要为DblClick事件设置代码,但不为Click事件设置代码,同时使用一个具有“确认”功能的命令按钮,在命令按钮的代码中检查列表框的ListIndex属性或Selected属性,以判断是否有项目被选中以及哪一个项目被选中。
【例6.5】使用列表框显示城市名称,供用户选择,当单击“确定”按钮时,显示所选择的城市名称。
当双击列表框中的项目时,则直接显示所选择的城市名称。
属性设置如表6.5,运行结果如图6.13所示。
单击“确定”按钮,显示所选城市名称
IfList1.ListIndex<
>
-1Then
Label1.Caption=List1.List(List1.ListIndex)
Label1.Caption="
PrivateSubList1_DblClick()'
双击列表框中的项目,直接显示所选城市名称
【例6.6】设计一个选择购买图书种类的程序,程序的运行结果如图6.14所示。
本例的设计思路是:
使用两个列表框,左边的列表框List1显示现有书目,右边的列表框List2显示用户选择的拟购书目;
四个命令按钮cmdAll、cmdOne、cmdBackAll和cmdBackOne的Caption属性分别设为“>
”、“>
”、“<
<
”,形象地表示购买所有书目、购买选择的一个书目、退回所有书目、退回选择的一个书目;
另设两个标签Label1和Label2,其Caption属性分别设为“现有书目”和“拟购书目”;
当用户选择好计划购买的书目时,单击标题为“确定”的命令按钮cmdOk,弹出“购买确认”消息框,单击“是”,执行购买操作。
属性设置如表6.6。
DimiAsInteger
PrivateSubcmdAll_Click()'
单击按钮“>
”
Fori=0ToList1.ListCount–1'
遍历List1中的全部项目
List2.AddItemList1.List(i)'
将List1中的项目复制到List2中
Nexti
List1.Clear'
清除List1中的项目
PrivateSubcmdBackAll_Click()'
单击按钮“<
Fori=0ToList2.ListCount-1'
与按钮“>
”操作相反
List1.AddItemList2.List(i)
List2.Clear
PrivateSubcmdOne_Click()'
-1Then'
将List1中选定的项目转移到List2中
List2.AddItemList1.List(List1.ListIndex)
List1.RemoveItemList1.ListIndex
PrivateSubcmdBackOne_Click()'
IfList2.ListIndex<
List1.AddItemList2.List(List2.ListIndex)
List2.RemoveItemList2.ListIndex
单击“确定”按钮
DimstrAsString,ans
IfList2.ListCount>
0Then'
若拟购书目>
Fori
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 常用 内部 控件