版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
关于常用控件与多窗体第一页,共七十二页,2022年,8月28日6.1图片框与图像框6.2定时器6.3单选钮与复选框6.4容器与框架6.5列表框与组合框6.6滚动条6.7焦点与Tab顺序6.8多窗体第二页,共七十二页,2022年,8月28日6.1图片框与图像框
图片框控件(PictureBox)和图像框控件(ImageBox)主要用于在窗体的指定位置显示图形信息。VB6.0支持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的图形文件。6.1.1图片框、图像框的常用属性1.Picture属性 图片框和图像框中显示的图片由Picture属性决定。图形文件可以在设计阶段装入,也可以在运行期间装入。第三页,共七十二页,2022年,8月28日
(1)在设计阶段装入 在设计阶段,可以用属性窗口中的Picture属性装入图形文件。 (2)在运行期间装入 在运行期间,可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下: 对象名.Picture=LoadPicture([filename])第四页,共七十二页,2022年,8月28日2.AutoSize属性 该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False,此时保持控件大小不变,超出控件区域的内容被裁减掉;若值为True时,自动改变控件大小以显示图片全部内容(注意:不是图形改变大小)。3.stretch属性 用于图像框。当该属性的取值为False时,图像控件将自动改变大小以与图形的大小相适应;当其值为True时,显示在控件中的图像的大小将完全适合于控件的大小,这时,图片可能会变形。第五页,共七十二页,2022年,8月28日 6.1.2图片框、图像框的区别 (1)图片框控件可以作为其它控件的容器。 (2)图片框可以通过Print方法接收文本,而图像框则不能接收用Print方法输入的信息。 (3)图像框比图片框占用的内存少,显示速度快。第六页,共七十二页,2022年,8月28日6.2定时器 VB提供了一种叫定时器(Timer)的控件。定时器每隔一定的时间间隔就产生一次Timer事件(可理解为报时),用户可以根据这个特性设置时间间隔控制某些操作或用于计时。1.属性 定时器控件的属性不是很多,最常用的是Interval属性,该属性用来决定两次调用定时器的间隔,以ms为单位,取值范围为0~65535,所以最大时间间隔不能超过66s,该属性的缺省值为0,即定时器控件不起作用。如果希望每秒产生n个事件,则应设置属性Interval的值为1000/n。第七页,共七十二页,2022年,8月28日2.事件 定时器只支持Timer事件。对于一个含有定时器控件的窗体,每经过一段由属性Interval指定的时间间隔,就产生一个Timer事件。
【例6.2】建立数字计时器,要求每秒钟时间变化一次。 设计界面: 在窗体上添加一个定时器控件、一个标签,并按表6-1设置属性。第八页,共七十二页,2022年,8月28日第九页,共七十二页,2022年,8月28日程序代码如下:
PrivateSubTimer1_Timer()
Label1.FontSize=48Label1.Caption=Time'将Time函数返回的系统时间显示在标签中
EndSub执行结果如下图6-3所示,每隔1s钟显示一次时间。第十页,共七十二页,2022年,8月28日第十一页,共七十二页,2022年,8月28日6.3单选钮与复选框
有时希望在应用程序的界面上提供一些项目,让用户从几个选项中选择其中之一,这就要用“单选钮”控件。如果有多个选择框,每个选择框都是独立的、互不影响的,用户可以任意选择它们的状态组合,则可以用“复选框”控件。6.3.1单选钮 单选钮(OptionButton)通常成组出现,主要用于处理“多选一”的问题。用户在一组单选钮中必须选择一项,并且最多只能选择一项。当某一项被选定后,其左边的圆圈中出现一个黑点。例如,图6-4所示就是一组单选钮,用户只能在这3个单选钮选项中选择一个。第十二页,共七十二页,2022年,8月28日第十三页,共七十二页,2022年,8月28日1.属性 (1)Value属性 该属性表示单选按钮选中或不被选中的状态。True为选中;False为不被选中。 (2)Caption属性 该属性显示出现在单选钮旁边的文本。 (3)Style属性 该属性用来设置控件的外观。值为0时,控件显示如图6-4所示标准样式;值为1时,控件外观类似命令按钮。 一般说来,单选钮总是作为一个组(单选钮组)发挥作用的。图6-4关于颜色的单选钮就是一个按钮组。第十四页,共七十二页,2022年,8月28日2.事件 单选钮常用事件是Click事件。
【例6.4】程序运行后,单击某个单选钮,在标签中显示相应的字体。运行结果如图6-5所示。 分析:需要在窗体上建立一个标签和3个单选钮,其主要属性设置如表6-2所示。第十五页,共七十二页,2022年,8月28日第十六页,共七十二页,2022年,8月28日第十七页,共七十二页,2022年,8月28日事件过程代码如下:
PrivateSubkai_Click()
Label1.FontName="楷体_gb2312"EndSub
PrivateSubli_Click()
Label1.FontName="隶书"EndSubPrivateSubsong_Click()
Label1.FontName="宋体"EndSub第十八页,共七十二页,2022年,8月28日6.3.2复选框 复选框(CheckBox)也称检查框,单击复选框一次时被选中,左边出现“√”号,再次单击则取消选中,清除复选框中的“√”。可同时使多个复选框处于选中状态,这一点和单选按钮不同。如图6-6所示,有四个复选框。第十九页,共七十二页,2022年,8月28日第二十页,共七十二页,2022年,8月28日1.属性 (1)Value属性决定复选框的状态:0—未选中,1—已选中,2—变灰暗。 (2)Picture属性 用来指定当复选框被设计成图形按钮时的图像。2.事件 复选框常用事件为Click事件。第二十一页,共七十二页,2022年,8月28日 【例6.5】用复选框控制文本是否加下划线和斜体显示。在程序执行期间,如果选定“加下划线”复选框,则文本框中的内容就加上了下划线,如果清除“加下划线”复选框,则文本框中的内容就没有下划线;如果选定“斜体”复选框,则文本框中的文字字形就变成斜体,如果清除“斜体”复选框,则文本框中的文字字形就不是斜体。运行界面如图6-7所示。第二十二页,共七十二页,2022年,8月28日第二十三页,共七十二页,2022年,8月28日
设计界面: 在窗体上建立一个文本框,两个复选框。3个控件的属性如表6-3所示。第二十四页,共七十二页,2022年,8月28日编写如下事件过程:
PrivateSubCheck1_Click()
IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub第二十五页,共七十二页,2022年,8月28日PrivateSubCheck2_Click()
IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load()
Text1.FontSize=20EndSub第二十六页,共七十二页,2022年,8月28日6.4容器与框架
所谓容器,就是可以在其上放置其它控件对象的一种对象。窗体、图片框和框架都是容器。容器内所有控件成为一个组合,随容器一起移动、显示、消失和屏蔽。 在前一节例6.3中,是在一个窗体上建立一组单选按钮,若要在同一窗体上建立几组相互独立的单选按钮,通常用框架控件(Frame)将每一组单选钮框起来,这样在一个框架内的单选钮成为一组,对一组单选钮的操作不会影响其它组的单选钮。第二十七页,共七十二页,2022年,8月28日
在窗体上创建框架及其内部控件时,应先添加框架控件,然后单击工具箱上的控件,用“+”指针在框架中以拖拽的方式添加控件,框架内的控件不能被拖出框架外。不能用双击的方式向框架中添加控件,也不能先画出控件再添加框架。如果要用框架将窗体上现有的控件进行分组,可先选定控件,将它们剪切后粘贴到框架中。第二十八页,共七十二页,2022年,8月28日1.属性 (1)Caption属性 框架的标题,位于框架的左上角,用于注明框架的用途。 (2)Enabled属性 决定框架中的对象是否可用,通常把Enabled属性设置为True,以使框架内的控件成为可以操作的。2.事件
Click和DblClick。在大多数情况下,我们用框架控件对控件进行分组,没有必要响应它的事件。第二十九页,共七十二页,2022年,8月28日 【例6.6】使用两个单选钮组来改变文本框中文字的颜色和大小。运行结果如图6-8所示。 设计界面: 在窗体上添加一个标签控件,一个命令按钮;添加一个框架控件,在框架控件上画上3个单选钮控件(颜色按钮组);再添加一个框架控件,在框架控件上画上两个单选钮控件(字体大小按钮组)。两个框架的Caption属性分别设置为“颜色”和“字体大小”,其它控件属性的设置可以按照图6-8所示自己进行。第三十页,共七十二页,2022年,8月28日第三十一页,共七十二页,2022年,8月28日编写代码如下:
PrivateSubCommand1_Click()
endEndSubPrivateSubOption1_Click()
'蓝色单选钮
Label1.ForeColor=&HFF0000EndSubPrivateSubOption2_Click()
'红色单选钮
Label1.ForeColor=&HFF&EndSub第三十二页,共七十二页,2022年,8月28日PrivateSubOption3_Click()
'绿色单选钮
Label1.ForeColor=&HFF00&EndSubPrivateSubOption4_Click()
'文字大小10单选钮
Label1.FontSize=10EndSubPrivateSubOption5_Click()
'文字大小20单选钮
Label1.FontSize=20EndSub第三十三页,共七十二页,2022年,8月28日6.5列表框与组合框
列表框(ListBox)控件将一系列的选项组合成一个列表,用户可以选择其中的一个或几个选项,但不能向列表清单中输入项目;组合框(ComboBox)控件是综合文本框和列表框特性而形成的一种控件,用户可通过在组合框中输入文本来选定项目,也可从列表中选定项目。第三十四页,共七十二页,2022年,8月28日6.5.1列表框 列表框控件(ListBox)的主要用途在于提供列表式的多个数据项供用户选择。在列表框中放入若干个项的名字,用户可以通过单击某一项或多项来选择自己所需要的项目。如果放入的项较多,超过了列表框设计时可显示的项目数,则系统会自动在列表框边上加一个垂直滚动条。第三十五页,共七十二页,2022年,8月28日1.属性 (1)List属性 该属性是一个字符串数组,用来保存列表框中的各个数据项内容。List数组的下标从0开始,即List(0)保存表中的第一个数据项的内容。List(1)保存第二个数据项的内容,依次类推,List(ListCount-1)保存表中的最后一个数据项的内容。 在窗体上添加一个列表框,其外观如图6-9所示,图上所显示的“List1”是控件的名称,而不是列表项中的数据项。第三十六页,共七十二页,2022年,8月28日第三十七页,共七十二页,2022年,8月28日
(2)ListCount属性 该属性记录了列表框中的数据项数,该属性只能在程序中引用它。 (3)Text属性 用于存放被选中列表项的文本内容。该属性是只读的,不能在属性窗口中设置,也不能在程序中设置,只用于获取当前选定的列表项的内容。可在程序中引用Text属性值。第三十八页,共七十二页,2022年,8月28日
(4)ListIndex属性 该属性是List数组中,被选中的列表项的下标值(即索引号)。如果用户选择了多个列表项,则ListIndex是最近所选列表项的索引号;如果用户没有从列表框中选择任何一项,则ListIndex为-1。程序运行时,可以使用ListIndex属性判断列表框中哪一项被选中。 例如,在列表框List1中选中第2项,即List1.List数组的第2项,则ListIndex=1(ListIndex从0开始)。
ListIndex属性不能在设计时设置,只有程序运行时才起作用。第三十九页,共七十二页,2022年,8月28日
(5)Selected属性 该属性是一个逻辑数组,其元素对应列表框中相应的项。表示相应的项在程序运行期间是否被选中。例如,Selected(0)的值为True,表示第一项被选中,如为False,表示未被选中。 (6)MultiSelect(多选择列表项)属性 该属性值表明是否能够在列表框控件中进行复选以及如何进行复选。它决定用户是否可以在控件中做多重选择,它必须在设计时设置,运行时只能读取该属性。Multiselect属性值的说明如表6-4所示。第四十页,共七十二页,2022年,8月28日
(7)SelCount属性 其值表示在列表框控件中所选列表项的数目,只有在MultiSelect属性值设置为1(Simple)或2(Extended)时起作用,通常与Selected数组一起使用,以处理控件中的所选项目。第四十一页,共七十二页,2022年,8月28日2.方法
ListBox对应的控件方法有:AddItem,Clear和RemoveItem
(1)AddItem方法 该方法向一个列表框中加入列表项,其语法是:
Listname.AddItemitem[,index] (2)RemoveItem方法 该方法用于删除列表框中的列表项,其语法是:
Listname.RemoveItemindex第四十二页,共七十二页,2022年,8月28日
(3)Clear方法 该方法删除列表框控件中的所有列表项。其语法是:
Listname.Clear 【例6.7】利用列表框和命令按钮编程,要求程序能够实现添加项目、删除项目、删除全部项目的功能。 设计界面: 在窗体上添加一个列表框(ListBox)控件,3个命令按钮。属性设置如表6-5所示。第四十三页,共七十二页,2022年,8月28日第四十四页,共七十二页,2022年,8月28日在程序中添加如下代码:
PrivateSubCommand1_Click()
Dimentryentry=InputBox("输入添加内容","添加")
List1.AddItementry'添加项目
EndSub
第四十五页,共七十二页,2022年,8月28日PrivateSubCommand2_Click()
DimiAsIntegerFori=List1.ListCount-1To0Step-1IfList1.Selected(i)ThenList1.RemoveItemi'删除选中项目
NextiEndSub
PrivateSubCommand3_Click()
List1.Clear'全部删除
EndSub运行结果如图6-12所示。第四十六页,共七十二页,2022年,8月28日第四十七页,共七十二页,2022年,8月28日6.5.2组合框 组合框(ComoBox)是一种兼有列表框和文本框的功能的控件。它可以像列表框一样,让用户通过鼠标选择所需要的项目;也可以像文本框一样,用键入的方式选择项目。1.属性 (l)Style属性 这是组合框的一个重要属性,其取值为0,1,2,它决定了组合框3种不同的类型,分别为下拉式组合框、简单组合框和下拉式列表框。如图6-13所示。第四十八页,共七十二页,2022年,8月28日第四十九页,共七十二页,2022年,8月28日
(2)Text属性 该属性值是用户所选择的项目的文本或直接从编辑区输入的文本。2.事件 组合框所响应的事件依赖于其Style属性。
【例6.8】设计一个简单的报名窗口,要求界面如图6-14所示,从文本框中输入学生姓名,在“班级”旁边的组合框中选择其所属班级(提供4种默认班级:电气991、微机991、网络991、电子991,用户可以输入其它的班级名)。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目,也可以把整个列表框清空。第五十页,共七十二页,2022年,8月28日第五十一页,共七十二页,2022年,8月28日
设计界面如下: 在窗体上加入3个标签,一个文本框,一个组合框,一个列表框,以及3个命令按钮。各控件属性设置如表6-6所示。第五十二页,共七十二页,2022年,8月28日第五十三页,共七十二页,2022年,8月28日程序如下:
PrivateSubCommand1_Click()
If((Text1.Text<>"")And(Combo1.Text<>""))ThenList1.AddItemText1.Text+""+Combo1.TextElseMsgBox("请输入添加内容!")
EndIfEndSub
第五十四页,共七十二页,2022年,8月28日PrivateSubCommand2_Click()
DimiAsIntegerIfList1.ListIndex>=0ThenFori=List1.ListCount-1To0Step-1IfList1.Selected(i)ThenList1.RemoveItemi'删除被选中的项目
NextiEndIfEndSub
第五十五页,共七十二页,2022年,8月28日PrivateSubCommand3_Click()
List1.Clear'清空列表
EndSubPrivateSubForm_Load()
Combo1.AddItem"电气991"Combo1.AddItem"微机991"Combo1.AddItem"网络991"Combo1.AddItem"电子991"Combo1.Text=Combo1.List(0)
EndSub程序运行界面如图6-15所示。第五十六页,共七十二页,2022年,8月28日第五十七页,共七十二页,2022年,8月28日6.6滚动条
滚动条通常用来附在窗体边上帮助观察数据或确定位置,作为速度、数量的指示器来使用,也可用来作为数据输入的工具。 滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar),如图6-16所示。除方向不一样外,水平滚动条和垂直滚动条的结构与操作是完全相同的。第五十八页,共七十二页,2022年,8月28日第五十九页,共七十二页,2022年,8月28日
滚动条的两端各有一个滚动箭头,在滚动箭头之间有一个滚动块。滚动块从一端移至另一端时,其值在不断变化。垂直滚动条的值由上往下递增,水平滚动条的值由左往右递增。其值均以整数表示,取值范围为-32768~32767。最小值和最大值分别在两个端点,其坐标系和滚动条的长度(高度)无关。1.属性 (1)Max属性 滚动条所能表示的最大值。 (2)Min属性 滚动条所能表示的最小值。第六十页,共七十二页,2022年,8月28日
(3)Value属性 表示当前滚动条所代表的值,范围在Max与Min之间。 (4)LargeChang属性 当用户单击滚动块和滚动箭头之间的区域时,滚动条控件(HScrollBar或VScrollBar)的Value属性值的改变量,默认值为1。 (5)SmallChange属性 表示当用户单击滚动条两端的箭头时,Value属性值的增加或减小的量,默认值为1。第六十一页,共七十二页,2022年,8月28日2.事件 滚动条的最常用的是Change事件和Scroll事件。
【例6.9】利用滚动条改变文本框中所显示文本的字号大小。要求程序运行效果如图6-17所示。第六十二页,共七十二页,2022年,8月28日第六十三页,共七十二页,2022年,8月28日程序代码如下:
PrivateSubHScroll1_Change()
Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub第六十四页,共七十二页,2022年,8月28日6.7焦点与Tab顺序
焦点与Tab顺序是和控件接受用户输入有关的两个概念。6.7.1焦点 焦点是对象鼠标或键盘输入的能力。当对象具有焦点时,就可以接受用户的输入。 当对象得到焦点时发生GetFocus事件,当对象失去焦点时发生LostFocus事件。第六十五页,共七十二页,2022年,8月28日
可用以下方法将焦点赋给对象: (1)用鼠标选择对象,用[Tab]键移动,或用快捷键; (2)程序代码中用SetFocus方法可以设置焦点。 例如,可以在Form1窗体的Load事件中添加如下代码,使得程序开始时光标(焦点)位于文本框Text3中。
PrivateSubForm_Load()
Form1.show'显示Form1窗体
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论