vb中窗体和常用内部控件介绍

《vb中窗体和常用内部控件介绍》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

第6章　窗体和常用内部控件6.1窗体6.2标准控件（通用属性、方法和事件）6.3标准控件的使用命令按钮、显示和输入文本的控件、提供选择的控件、图像框和图片框控件6.4其他控件计时和OLE控件1 窗体(Form)是设计VB应用程序的基本平台窗体本身是一个对象，又是其他对象的载体或容器多数应用程序是从窗体开始执行的;一个程序可以有多个窗体窗体分为单文档窗体(SDI)和多文档窗体(MDI)6.1.1窗体的结构6.1.2添加和移出窗体6.1窗体2 6.1.3窗体的基本属性设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现一些常用的窗体属性：Name属性：用于设置窗体的名称，通过该名称引用窗体对象及其属性、事件和方法。Caption属性：用于设置窗体标题栏上的标题内容。Appearance属性：用于设置窗体的外观是平面还是三维的BackColor和ForeColor属性：设置窗体的背景色和前景色BorderStyle属性:返回或设置对象的边框样式3 ControlBox、Maxbutton、Minbutton属性:用于控制是否有控制菜单、最大化、最小化按钮。Enabled属性：用于确定窗体是否能够对用户产生的事件做出反应。Height和Width属性：确定窗体的初始高度和宽度，单位是缇。Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标。单位是缇。Picture属性：用于在窗体上设置要显示的图形。［对象.］Picture=LoadPicture("文件名")Visible(可见性)：设置对象的可见性，默认值为TrueWindowState属性：用于返回或设置窗体运行时的状态4 6.1.4窗体的事件与窗体有关的常用事件有以下几种。1.鼠标事件(1)Click(单击)事件－－包含3个事件(2)DblClick(双击)事件－－包含6个事件(3)MouseMove(鼠标移动)事件(4)MouseDown(鼠标按下)事件(5)MouseUp(鼠标释放))事件5 【例6.2】编写程序在窗口标题栏中显示当前的坐标位置PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Form1.Caption="鼠标事件演示水平坐标="&X&"垂直坐标="&YEndSub6 2.键盘事件(1)KeyDown(键按下)事件(2)KeyUp(键弹起)事件(3)KeyPress(按键)事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：PrivateSub对象_KeyPress(KeyAsciiAsInteger)……EndSub参数KeyAscii返回所按键的ASCII码7 【例6.3】编写程序利用键盘“[”和“]”实现窗口的变小和变大PrivateSubForm_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCaseAsc("[")Me.Width=Me.Width*0.9Me.Height=Me.Height*0.9CaseAsc("]")Me.Width=Me.Width*1.1Me.Height=Me.Height*1.1EndSelectEndSub8 3.其他事件(1)Load(装载)事件【例6.4】设计程序,使窗体一打开就在屏幕的右上角PrivateSubForm_Load()Form1.Top=0Form1.Left=Screen.Width-Form1.WidthEndSub(2)Unload(卸载)事件(3)Activate(活动)、Deactivate(非活动)事件(4)Paint事件当移动窗体、改变窗体大小，最大化，最小化，窗体被其他窗体遮住后再次显示，等等时都会发生9 (1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体(2)Hide方法:用于隐藏form对象,将其Visible属性设置为False.(3)Print方法：用于在窗体上输出表达式的值(4)Cls方法：用于清除运行时在窗体中显示的文本或图形.Picture属性和控件不受影响.激活前把AutoDraw属性设置为true.(5)Move(移动)方法：用于移动并改变窗体或控件的位置和大小Form1.move[,top,width,height]Form1.MoveForm1.Left+500,Form1.Top+500,Form1.Width*26.1.5窗体的方法10 6.2标准控件复选框(CheckBox)图片框(pictureBox)命令按钮(CommandButton)文本框(TextBox)单选按钮(OptionButton)列表框(ListBox)驱动器列表框(DriveListBox)文件列表框(FileListBox)直线(Line)数据控件(Data)标签(Label)框体(Frame)组合框(ComboBox)定时器(Timer)目录列表框(DirListBox)形状(Shape)图像(Image)OLE对象(OLE)垂直滚动条(VScrollBar)水平滚动条(HScrollBar)11 ActiveX控件:一般以很多*.ocx文件独立存在，是对标准控件的扩充，不会自动显示在工具箱中．需用利用菜单对应的文件加载到工程中．“工程”→“部件”12 6.2.1控件的通用属性1.Name属性(1)运行时是只读的(2)缺省名称(3)以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)(4)所有控件都有此属性2.Caption属性(1)标题文本属性(2)Label控件标题大小没有限制。其他有标题的控件，标题大小限制为255个字符。(3)注意与Name属性、Text属性的区别13 3.Height、Width、Left、Top属性用于设置对象的高度、宽度和控件距离容器的左边距和顶边距。4.BackColor、ForeColor属性设置控件的背景色和前景色如设置窗体form1的背景色为红色：(1)form1.backcolor=vbred(2)form1.backcolor=RGB(255,0,0)(3)form1.backcolor=&HFF14 5.Font属性格式:<控件名>.Font.<属性名><属性名>:Name、Size、Bold、Italic、Underline、Strikethrough例:Form1.Font.Size=14Command1.FontItalic=True6.Enabled属性决定控件是否能够对用户产生的事件作出响应7.Visible属性注意:如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。15 6.2.2控件的通用事件1.Click事件和DblClick事件2.Change事件3.GotFocus和LostFocus事件【例6.9】焦点事件实例。当文本获得焦点时，文本背景为白色，处于激活状态，当失去焦点时，背景为浅灰色。PrivateSubText1_GotFocus()Text1.BackColor=&HFFFFFFEndSubPrivateSubText1_LostFocus()Text1.BackColor=&HC0C0C0EndSub16 4.KeyPress事件5.KeyDown和KeyUp事件6.MouseMove事件7.MouseDown事件和MouseUp事件17 6.2.3控件的通用方法1.Move方法功能：用于移动控件，或改变控件大小语法：MoveLeft,top,Width,Height【例6.10】当按钮Cmd1获得焦点时，按键盘上任意字符键后使文本框保持原位置不变且扩大1.5倍.PrivateSubcmd1_KeyPress(KeyAsciiAsInteger)Text1.Move4440,720,Text1.Width*1.5,Text1.Height*1.5EndSub18 2.Refresh方法用于窗体和控件的刷新下列情况使用Refresh方法(1)在另一个窗体被加载时显示一个窗体的全部(2)更新诸如FilelistBox控件之类的文件列表框的内容.(3)更新Data控件的数据结构.3.Setfocus方法19 6.3标准控件的使用6.3.1命令按钮控件属性:Default:属性为true时,则该按钮为默认按钮,回车相当于单击该按钮.在一个窗体中,只允许一个命令按钮的Default属性设置为true.Cancel:属性为true时,则该按钮为默认的取消按钮,按ESC相当于单击该按钮.在一个窗体中,只允许一个命令按钮的Cancel属性设置为true.20 Style:用来设置命令按钮的显示类型．０－Standard:１－GraphicalPicture:设置命令按钮中要显示的图形，但只有在Style属性设置为１时图形才能显示．DownPicture:返回/设置按钮按下时显示的图形,通过文件加载此图形21 【例6.12】两个命令按钮,按钮一初始状态为可用,按钮二初始状态为不可用,点击按钮一,按钮二变为可用,按钮一变为不可用;点击按钮二,按钮一变为可用,按钮二变为不可用PrivateSubCommand1_Click()Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Command2.Enabled=FalseCommand1.Enabled=TrueEndSub22 【例6.13】在窗体上添加一个按钮,通过点击按钮实现窗口的最大化和还原PrivateSubCommand1_Click()IfCommand1.Caption="最大化（&L）"ThenMe.WindowState=2Command1.Caption="还原（&B）"ElseMe.WindowState=0Command1.Caption="最大化（&L）"EndIfEndSub23 6.3.2显示和输入文本的控件(Label和TextBox)1.标签的属性(1)Caption:标签的标题。(2)Alignment:确定标签标题的对齐方式。(3)AutoSize:确定标签是否随标题自动调整大小。(4)BorderStyle:确定标签的边框。0—无边框；1—有边框。(5)BackStyle:指定背景是透明或不透明。1—不透明；0—透明。(6)WordWrap:指示是否随标题沿垂直方向自动扩展。True—标签将随标题在垂直方向变化。(此时AutoSize属性值应设置为True)False—标签不能在垂直方向上扩展。24 【例3】测试标签的边框样式和透明样式。在窗体上放置一标签，显示“VisualBasic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。Label1Command2Command1Command3Command425 PrivateSubCommand2_Click()Label1.BorderStyle=0Command1.Visible=TrueCommand2.Visible=FalseEndSubPrivateSubCommand1_Click()Label1.BorderStyle=1Command1.Visible=FalseCommand2.Visible=TrueEndSub26 PrivateSubCommand3_Click()Label1.BackStyle=1Command3.Visible=FalseCommand4.Visible=TrueEndSubPrivateSubCommand4_Click()Label1.BackStyle=0Command3.Visible=TrueCommand4.Visible=FalseEndSub27 2.文本框的属性(1)Text:返回或设置文本框显示的内容。例:Text1.Text="欢迎使用VisualBasic"(2)MultiLine:决定是否可以显示多行文本。(3)PasswordChar:常用于输入口令。在文本框中键入字符显示为该指定的字符。(此时MultiLine属性值应为False)(4)ScrollBars:用于确定文本框是否带滚动条以及滚动条的方向。(仅当MultiLine属性值为True时才可以带滚动条)28 (5)SelLength:在运行期返回或设置选择的字符数。例:Text1.SelLength=Len(Text1.Text)表示选中文本框Text1中所有字符。(6)SelStart:在运行期返回或设置当前选择文本的起始位置。例:Text1.SelStart=0表示选择文本的起始位置从第一个字符开始。(7)Locked:指定运行时文本框内容是否可以编辑。False—可以编辑True—不可编辑(只读)2.文本框的事件和方法事件:Change、Click、DblClick、GotFocus、LostFocus、KeyPress等方法:SetFocus29 【例6.14】模拟会员信息登记.在窗口FormTxtBox中输入相关信息，并做简单的输入信息合法检查，在窗口FormBack中输出合法信息．30 31 PrivateSubCmdClear_Click()TextID.Text=""TextPassWord.Text=""TextName.Text=""TextMail.Text=""TextResume.Text=""EndSub32 PrivateSubCmdOK_Click()DimTextPassWordLengthAsIntegerDimflagAsIntegerTextPassWordLength=Len(TextPassWord.Text)If(TextID.Text=""OrTextPassWord.Text=""_OrTextName.Text=""OrTextMail.Text=""_OrTextResume.Text="")ThenMsgBox("信息输入不完整！")TextID.SetFocusflag=0Else33 If(TextPassWordLength<5Or_TextPassWordLength=5)ThenMsgBox("密码不足6位！")TextPassWord.Text=""TextPassWord.SetFocusflag=0Else:flag=1EndIfEndIf34 Ifflag=1ThenFormBack.TextAll.Text=LblID.Caption&""&_TextID.Text&vbNewLine&LblPassWord.Caption_&""&TextPassWord.Text&vbNewLine&_LblName.Caption&""&TextName.Text&_vbNewLine&LblMail.Caption&""&_TextMail.Text&vbNewLine&LblResume.Caption_&""&TextResume.TextLoadFormBackFormBack.ShowFormTxtBox.Visible=FalseEndIfEndSub35 6.3.3提供选择的控件一.框架(Frame)控件(1).作用:作为容器，对控件进行分组(2).如何将控件放在容器中•选中容器，在容器中直接画•选中容器，粘贴控件(3).如何检查控件是否在容器中拖动容器，控件随容器移动(4).删除容器时，其中的控件随之被删除(5).框架的常用属性Caption:Font:ForeColor:Backcolor:Enabled:Visible(6)常用事件可以响应Click和DoubleClick事件，但一般不用36 二单选按钮(OptionButton)1.作用:　单选按钮(OptionButton)控件由一个圆圈“○”及紧挨它的文字组成，能提供“选中”和“未选中”两种可选项．成组形式出现．实现多选一．其缺省名称为OptionX2.属性(1)Caption：设置文本标题(2)Value:表示单选按钮是否被选中．True—选中False—未选中．如果设置一个选项的Value属性为True，则组内的所有其人也选项自动设置为False(3)Alignment属性:决定文本的对齐方式(4)Style—控制外观．0为标准样式，1为图形样式37 例１：设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。Option1Option2Value为True的两种显示方式Style为1Style为0Option3Option4Option5Option63.事件Click事件—使选项按钮从未选择变成选择状态时(单击鼠标改变、代码改变)38 PrivateSubOption1_Click()Text1.ForeColor=vbBlackEndSubPrivateSubOption2_Click()Text1.ForeColor=vbYellowEndSubPrivateSubOption3_Click()Text1.ForeColor=vbRedEndSubPrivateSubOption4_Click()Text1.BackColor=vbWhiteEndSubPrivateSubOption5_Click()Text1.BackColor=vbGreenEndSubPrivateSubOption6_Click()Text1.BackColor=vbBlueEndSub39 三复选框(CheckBox)1.作用复选框控件由一个四方形小框和紧挨它的文字组成。提供“选中”和“未选中”两种可选项.实现多选一或多选多．其缺省名称为CheckX2.属性(1)Caption：设置文本标题(2)Value表示复选框的状态0—未选中1—选中2—不可用(灰度显示)(3)Alignment属性:决定文本的对齐方式(4)Style:控制外观3.事件Click事件40 【例6.16】用单选按钮和复选按钮设置在文本框中字体的样式.ChkChuChkXieOptLiOptSong41 PrivateSubChkChu_Click()IfChkChu.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSubPrivateSubChkXie_Click()IfChkXie.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubText1.FontItalic=ChkXie.ValueText1.FontBold=ChkChu.Value42 PrivateSubOptLi_Click()Text1.FontName="隶书"EndSubPrivateSubOptSong_Click()Text1.FontName="宋体"EndSub43 四列表框(ListBox)1.作用:提供选项列表.用户可从中选择一个或多个项目.内容多时自动出现滚动条.其缺省名称为ListX2.属性Style—外形(常规形式、复选框形式)List—列表内容。设计时:用Ctrl+换行;代码中:List(i)表示第i项，可以访问列表中的所有项目．List(0)表示第１项．ListIndex—返回列表框中当前选中项目的位置．如果未选定项目，则ListIndex值为-144 ListCount—返回列表框的项目总数，只在运行时可用Text—返回列表框中选定项目的值．与list(Listindex)的值相同.运行时有效Columns—列表形式0:垂直单列、1:水平单列、>1:水平多列MultiSelect—指示是否能多选.0:(缺省)不允许重选1:简单复选,鼠标单击或按下空格键在列表框中选中或取消选中项2:扩展复选,按下Ctrl键或Shift键进行复选.45 Selected—运行期用，用于选择某项如List1.Selected(3)=True选择第4项Sorted—true:元素自动按字母顺序排序False:元素按加入的先后顺序排序3.事件:Click,DblClick,Change3.方法AddItem—向列表框中添加新的项目<对象名>.AddItem<项目>[,<索引>]项目为字符串表达式,表示要加入的项目.索引为数值表达式,指新增项目的位置.若为0,则将新项目插入到第一个位置,若省略且Sorted属性为False,则插入到最后一个位置;若Sorted属性为True,则插入到合适的排序位置.46 RemoveItem—从列表框中移除项目<对象名>.RemoveItem<索引>要删除列表框中所选的项目,程序段如下:i=0DoWhilei<=list1.listCount-1iflist1.Selected(i)=truethenlist1.RemoveItemiendifi=i+1LoopClear方法<对象名>.Clear如List1.Clear.删除列表框中所有的项目47 【例6.17】从一个列表框中选择城市名加入到另一个列表框中.48 PrivateSubForm_Load()List1.AddItem"昆明"List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"济南"List1.AddItem"成都"List1.AddItem"长春"List1.AddItem"广州"List1.AddItem"珠海"List1.AddItem"郑州"List1.AddItem"香港"List1.AddItem"大连"List1.AddItem"贵阳"EndSub49 PrivateSubList1_DblClick()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubCommand1_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubCommand2_Click()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSub50 五组合框(ComboBox)1.作用:允许从已有的选项中进行选择，还允许输入列表中不包括的内容列表框和文本框的组合具有列表框和文本框的大部分属性和方法。不同的属性如下：2.属性Style—外形0—下拉组合框(折叠)1—简单组合框(不折叠)2—下拉列表框(不能修改Text属性)Text—返回组合框中选定项目的值,设计时可修改51 3.事件组合框的事件与Style属性有关。Style为0时:响应Click、Change、DropDown事件Style为1时:响应Click、DblClick、Change事件Style为2时:响应Click、DropDown事件4.方法AddItem:向组合框中添加新的项目<对象名>.AddItem<项目>[,<索引>]RemoveItem:从组合框中移除项目<对象名>.RemoveItem<索引>Clear:清除组合框中的所有项目<对象名>.Clear52 【例6.19】组合框的应用PrivateSubCombo1_Click()Text1.Text=Combo1.TextEndSubPrivateSubForm_Load()Combo1.AddItem"北京"Combo1.AddItem"上海"Combo1.AddItem"天津"Combo1.AddItem"广州"Combo1.AddItem"昆明"Combo1.AddItem"长沙"EndSub53 【例6.20】在窗体中输入个人信息,单击确定按钮后,将个人信息显示在信息框中54 PrivateSubForm_Load()Combo1.AddItem"正高"Combo1.AddItem"副高"Combo1.AddItem"中级"Combo1.AddItem"初级"Combo1.AddItem"无职称"Combo1.Text=Combo1.List(0)Combo2.AddItem"研究生"Combo2.AddItem"大学"Combo2.AddItem"大专"Combo2.AddItem"高中"Combo2.AddItem"初中"Combo2.Text=Combo2.List(0)EndSub55 PrivateSubCommand1_Click()p1=Text1.Text&""p2=IIf(Option1.Value,"男","女")&""p3=Text2.Text&"岁"&""p4=IIf(Option3.Value,"已婚","未婚")&""_&Chr(13)p5="职称："&Combo1.Text&","p6="学历："&Combo2.Textp=p1&p2&p3&p4&p5&p6MsgBoxp,vbOKOnly+vbInformation,_Text1.Text&"基本情况"EndSub56 PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Activate()Text1.SetFocusEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSub57 六滚动条(HScroIIBar、VScrollBar)1.作用常用于附在某个窗口上帮助观察数据或确定位置,也可以用来作为数据输入的工具.2.滚动条结构使用方法:(1)拖动.用鼠标拖动滚动块(2)单击滚动框空白区域,可以“快速”滚动(3)单击滚动箭头,可以一步步地“慢速”滚动滚动箭头滚动块滚动箭头58 3.属性Value—设置或返回滑块当前位置的值，介于[Min,Max]之间。Max－滚动条的Value属性最大值。Min－滚动条的Value属性最小值。SmallChange—单击滚动箭头时，滚动条的Value值的改变量。LargeChange—单击滚动块和滚动箭头之间的空白区域时，滚动条Value值的改变量。4.事件Change(单击时、Value改变时)Scroll(拖动时)59 【例6.21】利用滚动条来设置文本框中字体的颜色PrivateSubhsColor_Change(IndexAsInteger)txtColor(Index).Text=hsColor(Index).ValueText1.ForeColor=RGB(hsColor(0).Value,_hsColor(1).Value,hsColor(2).Value)EndSub60 6.3.4图片框和图像框控件一．图片框(PictureBox)1.作用•作为容器，对控件进行分组•显示图像2.属性Picture:在PictureBox框中显示的图像文件名可以在属性窗口中设置,也可以在代码中用LoadPicture函数设置.显示图像:对象名.Picture=LoadPicture("图形文件名")删除图像:对象名.Picture=LoadPicture()(也清除文字)Appearance:设置图片框的绘图风格.0-平面绘图;1-三维风格AutoSize:设置图片框是否按装入图形的大小做自动调整.其值为true和False61 Align:设置图片框的显示位置,其值为1、2、3、4时，图片分别放置在窗体的顶部、底部、左侧和右侧。BorderStyle:图片框的边框图风格.０－无边框，１－单线边框AutoRedraw:该属性设置为true时，可以将图形方法的输出显示在图片框上，并在调整图片框大小或移去遮挡图片框的对象时，自动重绘输出的图片Image:记录了图片框中的所有图形信息，包括用绘图方法所产生的图形图像和文字信息。CurrentX:在代码中设置或返回Print方法或绘图方法的水平起始位置CurrentY:在代码中设置或返回Print方法或绘图方法的垂直起始位置62 图片框的常用方法(P255)Line:用来在窗体或图片框中画直线和矩形格式:[Object.]Line[step](x1,y1)-(x2,y2)[,Color][,B[F]]Pset:用来在窗体或图片框中画点格式:[Object.]Pset[step](x,y)[,Color]Circle:用于画圆、画弧、扇形、椭圆格式:[Object.]Circle[[step](x,y),Radius[,Color］[,Start][,End][,Aspect]]Print:用于在图片框中输入文字63 例２：PrivateSubForm_Load()ShowPicture1.Print"在图片框内写字和画圆"Picture1.Circle(1200,1000),600,RGB(0,0,255)Picture1.PSet(1200,1000),RGB(255,0,0)EndSub64 二图像框(Image)1.作用:显示图像2.属性、事件、方法:拥有图片框的一部分属性、事件和方法3.特点:可以自动调整控件大小以适应图像:设Stretch=False延伸图形以适应控件的大小:设Stretch=True4.与图片框的区别(1)图片框控件可以作为其他控件的容器(2)图片框可以通过print方法接收文本,而图像框不行(3)图像框比图片框占用的内存少,显示速度快(4)图像框可以通过Stretch属性延伸图形的大小以适应控件大小65 【例6.23】设计一个窗体，说明图像框Strech属性的作用66 PrivateSubCommand1_Click()Image1.Width=1000Image1.Height=1000Image1.Stretch=FalseEndSubPrivateSubCommand2_Click()Image1.Width=1000Image1.Height=1000Image1.Stretch=TrueEndSubPrivateSubCommand3_Click()Image1.Width=4000Image1.Height=4000Image1.Stretch=TrueEndSub67 三．Line直线控件1.作用:Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。2.属性：X1、X2、Y1、Y2–返回或设置line控件的起始点(X1,Y1)和终止点(X2,Y2)的坐标。DrawMode-返回或设置一个值，以决定图形方法的输出外观或者Line及Shape控件的外观BorderColor:BorderStyle：设置BorderWidth为1时，才能显示BorderWidth68 四Shape控件1.作用：用于绘制矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。2.属性:Shape—返回或设置Shape控件的外观(如表6.20)FillColor—返回或设置填充形状的颜色,也可以用来填充由Circle和Line图形方法生成的圆和方框.FillStyle—返回或设置用来填充Shape控件,以及Circle和Line图形方法生成的圆和方框的模式(如表6.24)69 6.4其他控件一.Timer控件1.作用:周期性地执行某功能、运行时不可见2.属性Enabled:将Enabled设置为False时将停止定时器的计时操作Interval:决定了时钟事件之间的间隔,单位为毫秒.3.事件Timer事件:每当计时时间到时产生Timer事件注:一个计时器的最大计时时间为65535毫秒,70 【例6.24】设计一个简单的电子时钟PrivateSubTimer1_Timer()Text1.Text=TimeEndSub属性设置:Timer1的Interval属性设为1000代码如下:71 【例6.25】设计一个简单的滚动字幕程序属性设置:Timer1的Interval属性设为1000Enabled属性设为False72 PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left>Form1.WidthThenLabel1.Left=-200ElseLabel1.Left=Label1.Left+100EndIfEndSub73 二.OLE容器控件1.作用:OLE是ObjectLinking&Embedding(对象链接和嵌入)的缩写,可将支持OLE自动化的对象链接或嵌入到OLE容器控件中可用OLE容器控件把其他应用程序的对象添加到VB应用程序(1)在应用程序中创建一个对象的占位符.(2)在应用程序中创建链接的对象(3)将OLE容器控件与某个数据库绑定74 (4)如果用户移动、调整、更新OLE容器对象则执行相应的操作。(5)由数据来创建对象，这里的数据是已复制到剪贴板上的数据。(6)把对象显示为图标2.在OLE中创建对象的方法：(1)使用“插入对象”或“选择性粘贴”对话框(2)在“属性”窗口中设置Class、SourceDoc、SourceItem属性．(3)调用CreateEmbed或CreateLink方法3.例如：在OLE容器中嵌入Word对象75