第4章 常用标准控件Word格式.docx
《第4章 常用标准控件Word格式.docx》由会员分享,可在线阅读,更多相关《第4章 常用标准控件Word格式.docx(14页珍藏版)》请在冰豆网上搜索。
二、图形控件
VisualBasic中与图形有关的标准控件有4种,即图片框、图像框、直线和形状。
(一)图片框和图像框
1.与窗体属性相同的属性
2.CurrentX和CurrentY属性
设置水平和垂直坐标,只能在运行期间使用
3.Picture属性
用于窗体、图片框、图像框,通过属性窗口设置,把图片放入这些对象中。
4.Stretch属性
用于图像框,自动调节图像框中图形内容的大小。
(二)图形文件的装入
1.图片框与图像框的区别
图片框是容器,可以作为父控件,而图像框不能作为父控件;
图片框可以通过Print方法接受文本,图像框则不能;
图像框比图片框占用的内存少,显示速度快。
2.在设计阶段装入图形文件
可以用两种方法装入图片,一是用属性窗口的Picture属性装入;
二是利用剪贴板把图形粘贴到窗体、图片框、图像框。
3.在运行期间装入图形文件
用LoadPicture函数把图形文件装入窗体、图片框、图像框。
一般格式为:
[对象.]Picture=LoadPictur(“文件名”)
(三)直线和形状
支持的属性除标准属性外,还有BorderColor、BorderStyle、BorderWidth、FillColor、FillStyle和Shape等属性。
三、按钮控件
在应用程序中,命令按钮通常用来在单击时执行指定的操作。
支持的属性除标准属性外,还有以下属性:
.Cancel、Default、Style、Picture、DownPicture和DisabledPicture属性等。
四、选择控件-复选框和单选按钮
在应用程序中,复选框和单选按钮用来表示状态,可以在运行期间改变其状态。
它支持的属性除标准属性外,还有以下属性:
Value、Alignment和Style属性。
五、选择控件-列表框和组合框
(一)列表框
1.属性
列表框所支持的属性除标准属性外,列表框还具有以下特殊属性:
Columns、List、ListCount、ListIndex、MultiSelect、Selected、SelCount、Sorted、Style、Text。
2.列表框事件
列表框接收Click和DblClick事件。
3.列表框方法
列表框可以使用AddItem、Clear和RemoveItem等方法,用来在运行程序期间修改列表框的内容。
(二)组合框
组合框(ComboBox)是由列表框和文本框的特性组合而成的控件。
或兼有列表框和文本框两者特性的控件。
1.组合框属性
列表框的属性基本上都可用于组合框,此外它还有自己的一些属性,如Style、Text。
Style的值决定组合框3种类型,分别为下拉式组合框、简单组合框和下拉式列表框。
2.组合框事件
只有简单组合框接收DblClick事件,其他两种组合框可以接受Click事件和DropDown事件。
六、滚动条
滚动条通常用来附在窗口上帮助观察数据或确定位置,也可用来作为数据输入的工具。
滚动条分为两种,即水平滚动条和垂直滚动条。
1.滚动条属性
滚动条的属性用来标识滚动条的状态,有以下属性:
Max、Min、LargeChange、SmallChange、Value。
2.滚动条事件
与滚动条有关的事件主要是Scroll和Change。
七、计时器
计时器的重要属性是Interval,用来设置计时器事件之间的间隔,以毫秒为单位,其取值范围为0-65535毫秒。
八、框架
框架(Frame)是一个容器控件,用于将屏幕上的对象分组。
框架的属性包括Enabled、FontBold、FontName、FontUnderline、Height、Left、Top、Visible、Width。
此外,Name属性用于在程序代码中标识一个框架,而Caption属性定义了框架的可见文字部分。
九、焦点与Tab顺序
(一)设置焦点
用下面的方法可以设置一个对象的焦点:
1.在运行时单击该对象;
2.运行时用快捷键选择该对象;
3.在程序代码中使用SetFocus方法。
(二)Tab顺序
所谓Tab顺序,就是指焦点在各个控件之间移动的顺序。
用Tab键也可以把焦点移到某个控件中。
每按一次Tab键,可以使焦点从一个控件移到另一个控件。
训练:
一、选择题
1.在程序代码中清除当前窗体中的图形,以下不正确语句是________。
A)Picture=””B)Picture=LoadPicture()
C)Picture=LoadPicture(””)D)Me.Picture=LoadPicture()
2.为使得图像框的大小可以自动适应图像的大小,以下正确的设置是________。
A)将AutoSize属性值设置为TrueB)将AutoSize属性值设置为False
C)将Stretch属性值设置为TrueD)将Stretch属性值设置为False
5.要在形状控件Shape1中填充一种图案,可设置它的________属性。
A)BorderColorB)BorderStyleC)FillStyleD)FillColor
6.文本框没有________属性。
A)EnabledB)VisibleC)BackColorD)Caption
7.能够获得一个文本框中被选取文本的内容的属性是________。
A)TextB)LengthC)SelStartD)SelText
8.在文本框中,当用户键入一个字符时,能同时引发的事件是________。
A)KeyPress和ClickB)KeyPress和LostFocus
C)KeyPress和ChangeD)Change和LostFocus
9.以下能够触发文本框Change事件的操作是________。
A)文本框失去焦点B)文本框获得焦点
C)设置文本框的焦点D)改变文本框的内容
10.若要使标签控件显示时不覆盖其背景内容,要对________属性进行设置。
A)BackcolorB)BorderStyleC)ForeColorD)BackStyle
11.Lable控件中显示的文字,是由________属性决定的。
A)TextB)CaptionC)NameD)ForeColor
12.为了使标签Label1显示文字”姓名”,可把Label1的________属性设置为”姓名”。
A)CaptionB)TextC)WordD)Name
13.假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为________。
A)Label1.BackStyle=0B)Label1.BackStyle=0C)Label1.BackStyle=TrueD)Label1.BackStyle=False
Labrl1.BorderStyle=1Label1.BorderStyle=0Labrl1.BorderStyle=TrueLabrl1.BorderStyle=False
14.要使文本框在显示文字时,只显示出来一串”*”号,则应把它的________属性设置为”*”号。
A)CaptionB)PasswordCharC)TextD)Value
15.以下不属于标签属性的是________。
A)FontB)ValueC)CaptionD)Index
16.使用文本框显示文字时,只能显示8个字符,则需设定它的________属性为8。
A)CaptionB)PasswordCharC)MaxLengthD)Value
17.设置复选框或单选按钮的标题对其方式的属性是________。
A)AlignB)StyleC)AlignmentD)Sorted
18.复选框的Value属性为0时,表示________。
A)复选框未被选中B)复选框被选中C)复选框内有灰色的勾D)复选框操作有错误
19.为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是________。
A)ValueB)CancelC)DefaultD)Enabled
20.当某个单选按钮处于选中状态,它的________属性为True。
A)AlignmentB)ValueC)StyleD)Checked
21.复选框的状态可通过设置它的________属性来设置它的状态。
22.为了在列表框中使用Ctrl和Shife功能键进行多个列表项的选择,应将列表框的Multiselect属性设置为________。
A)0B)1C)2D)3
23.为使得列表框中的列表项显示为复选框形式,可将Style属性设置为________。
A)0B)1C)TrueD)False
24.在列表框中当前被选中的列表项的序号是由________属性表示的。
A)ListB)ListCountC)ListIndexD)Index
25.将数据项VisualBasic6.0添加到列表框(List1)中成为第一项应使用语句为________。
A)List1.AddItem”VisualBasic6.0”,0B)List1.AddItem”VisualBasic6.0”,1
C)List1.AddItem0,”VisualBasic6.0”D)List1.AddItem1,”VisualBasic6.0”
26.执行了以下的程序后,列表框中的数据项有________。
SubForm_click()
Fori=1To4
List1.AddItemi
Next
Fori=1To2
List1.RemoveItemi
Endsub
A)1,2B)1,3C)1,4D)2,4
27.在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
PrivateSubForm_Load()
List1.AddItem"
357"
246"
123"
456"
Text1.Text="
"
EndSub
PrivateSubList1_DblClick()
a=List1.Text
Printa+Text1.Text
程序运行后,在文本框中输入”789”,然后双击列表框中的”456”,则输出结果为________。
A)1245B)456789C)789456D)0
28.列表框的________属性代表着列表框中项目的数目。
A)ListB)ListIndexC)LIstCountD)Seleted
29.当文本框的ScrollBars设置了非零值,确没有效果,原因是________。
A)文本框中没有内容B)文本框的MultiLine属性为False
C)文本框的MultiLine属性为TrueD)文本框的Locked属性为False
30.单击滚动条的箭头时,产生的事件是________。
A)ScrollB)ChangeC)A)和B)D)Move
31.在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是________。
A)MoveB)ChangeC)ScrollD)GetFocus
32.滚动条的________属性表示当滑块处于滚动条最大位置是所代表的值,其范围为-32768~+32767
A)MaxB)ValueC)SmallChangeD)LargeChange
33.在窗体上有一个文本框控件,名称为TxtTime;
一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。
程序为:
PrivateSubTimer1_________()
TxtTime.Text=Time
A)EnabledB)VisibleC)IntervalD)Timer
34.为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是________。
A)VisibleB)TimerC)EnabledD)Interval
35.当对象失去焦点时,将会发生________事件。
A)GetFocusB)LostFocusC)FocusD)SetFocus
36.不论哪种控件,共同具有的是________属性。
A)TextB)NameC)ForeColorD)Caption
37.要使某控件在运行是不可显示,应对属性________进行设置。
二、填空题
1.已知窗体中有一个图片框,名为Pic1,现在要把图形文件”D:
\A1.BMP”显示在该控件中,使用的语句是___________。
2.为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为______________________。
3.为了能自动放大或缩小图像框中的图形以便于图像框的大小相适应,必须把该图形框的Stretch属性设置为____________。
4.当对命令按钮的Picture属性装入.bmp图形文件后,选项按钮上并没有显示所需的图形,原因是没有对________属性设置为(Graphical)。
5.在窗体中有两个文本框控件Text1和Text2,焦点在Text2中,现在要把焦点移到Text1中,应使用的语句是_____________________。
6.要把Label控件中显示的文字颜色设置为红色,应设置Label控件的___________属性。
7.要把Label控件的背景设置为透明,可把该控件的__________属性设置为________。
8.要使文本框可以显示多行文本,应把文本框的__________属性设置为True。
9.文本框的__________属性用来表示文本框中被选定的字符长度。
10.文本框的__________属性用来设置在文本框中显示的最多字符个数。
11.文本框中的内容改变时,将会发生____________事件。
12.列表框中项目的序号是从________开始的,______________表示列表框中最后一项的序号。
13.组合框是组合了文本框和列表框的特性而形成的一种控件。
_____________风格的组合框不允许用户输入列表框没有的项。
14.列表框中的____________和__________属性为数组。
15.要使列表框中的选项能时选中多个,应设置列表框的__________属性。
16.列表框的______________决定列表框中项目在程序运行期间是否按字母顺序排列,如果该属性为True,则按字母顺序排列显示,为False则按项目加入的先后顺序排列显示。
17.可使用列表框的_____________方法向列表框中增加一个项目。
18.组合框有三种不同的风格:
下拉式组合框、______________和下拉式列表框。
可通过___________属性来设置。
19.滚动条响应的重要事件有______________和______________。
;
20.滚动条的____________属性表示滚动条内滑块所处位置所代表的值。
21.如果要求每隔15秒钟激发一次计算器事件,应将Interval属性设置为__________。
22.在程序运行时,如果将框架的____________属性设为False,则框架的标题成灰色,表示框架内的所有对象均被屏蔽,不允许用户对其进行操作。
23.要使形状控件显示出一个矩形,可设置它的____________属性。
24.所谓Tab顺序,就是指___________在各个控件之间移动的顺序。
25.当原对象被拖动到目标对象上方时,在目标对象上将引发____________事件,释放时又会引发____________事件。
三、程序阅读题
1.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程,程序运行后,在文本框中显示的内容是什么?
在图片框中显示的内容是什么?
计算机"
PrivateSubText1_Change()
Picture1.Print"
文化基础"
2.窗体上有一按钮和一个列表框,执行下列程序,写出运行结果。
PrivateSubCommand1_Click()
China"
USA"
Japan"
1
PrintList1.List
(2)
四、程序填空题
1.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,程序运行后,Command1为禁用(灰色)。
当向文本框中输入任何字符时,命令按钮Command1变为可用。
请在空白出添入适当的内容,将程序补充完整。
Command1.Enabled=False
PrivateSubText1【1】
Command1.Enabled=True
2.下面的程序运行时,用户在组合框中输入数据,当按回车键时,如果组合框列表中没有与输入内容相同的选项,则将输入内容添加到列表中。
阅读程序并填空。
PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)
DimaddtextAsBoolean
IfKeyAscii=13Then
addtext=False
Fori=【1】
IfCombo1.Text=Combo1.List(i)Then
addtext=True
EndIf
IfNotaddtextThen【2】t
Combo1.Text="
3.在窗体上画一个名称为label1和标签和一个名称为List1的列表框。
程序运行后,在列表框中添加若干列表项。
当双击列表框中的某个项目时,在标签Label1中显示所选中的项目。
请在空白出填入适当的内容,将程序补充完整。
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”河北”
PrivateSub【1】
Label1.Caption=【2】
4.在窗体中建立一个文本框,名字为txtVB,用来输入和显示文字。
再建立两个框架,名字为”字体”和”大小”,然后在”字体”框架中建立两个单选钮,名字分别为”optSong”和”optHi”;
在”大小”框架中建立两个单选钮,名字分别为”optEight”和”optTwelve”。
在窗体中还有一个名为”CmdOK”的按钮,当选中相应字体和大小后,按确定按钮,文本框中的内容将以指定的格式显示。
运行时的界面如图5-5所示。
请填程序使它完整。
PrivateSubCmdOK_Click()
If【1】Then
TxtVB.FontName="
宋体"
Else
txtVB.FontName="
黑体"
If【2】Then
txtVB.FontSize=8
txtVB.FontSize=12
5.编写一个对列表框进行项目添加、修改和删除操作的应用程序。
列表框(名为lstBoods)中的选项在Form_Load事件中加载,添加按钮(cmdAdd)的功能是将文本框(txtItem)中的内容添加到列表框中,删除按钮(cmdDelete)的功能是删除列表框中选定的项目。
如果要修改列表框,可先选定选项,然后按修改按钮(cmdModify),所选的项目显示在文本框(txtItem)中,当在文本框中修改完之后,按确定修改按钮(cmdModify_OK)将更新列表框。
初始时,修改确定按钮是不可使用的。
程序代码如下,请填空。
PrivateSubCmdAdd_Click()
LstBooks.【1】Txtitem
Txtitem="
PrivateSubCmdDelete_Click()
LstBooks.RemoveItem【2】
PrivateSubCmdModify_Click()
Txtitem=LstBooks.Text
Txtitem.SetFocus
CmdAdd.Enabled=False
CmdDelete.Enabled=False
CmdModify