《Visual-Basic程序设计与实训教程》常用控件

第7章惯用标准控件7.1定时器型7.2单项选择按钮和复选框7.3框架7.4列表框和组合框7.5滚动条7.6焦点和Tab次序4/21/20241清华大学出版社1/38【目标要求】1.掌握定时器应用2.掌握单项选择按钮和复选框属性和应用3.了解框架应用4.掌握列表框和组合框应用5.了解滚动条6.了解焦点和Tab次序【重点】定时器、单项选择按钮和复选框、列表框和组合框【难点】各控件应用4/21/20242清华大学出版社2/387.1定时器

7.1.1定时器属性和事件1.惯用属性(1)Interval属性返回或设置定时器控件计时时间间隔(单位：毫秒)。其有效范围为0～65535。默认值为0，此时定时器无效。(2)Enabled属性定时器是否被激活，它有True或False两种属性值。当其设为True时，定时器被激活。2.惯用事件定时器控件最惯用事件就是Timer事件。每经过一个由Interval属性时间间隔，便会产生一个Timer事件。

4/21/20243清华大学出版社3/387.1.2定时器应用举例【例7.1】建立一个实时时钟。程序界面设计如图7-2所表示，程序运行结果如图7-2所表示。在VB中能够用Time函数获取系统时间。

图7-14/21/20244清华大学出版社4/38在命令按钮【开始】事件过程Command1_Click()中添加以下代码：

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub在命令按钮【停顿】事件过程Command1_Click()中添加以下代码：PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub在时钟控件触发事件过程中添加以下代码：PrivateSubTimer1_Timer()Label1.Caption=TimeEndSub4/21/20245清华大学出版社5/38【例7.2】建立一个文字移动动画程序。程序运行结果如图7-3所表示。分析：文字移动能够利用标签move属性。假如每隔一段时间就让标签移动一次就能产生动画效果，用时钟控件timer事件恰好能够实现每隔一段时间执行一次事件过程。用移动量正负能够实现左右移动。把标签移动代码写在timer事件过程中就能够实现文字移动动画效果。图7-34/21/20246清华大学出版社6/38编写程序代码DimcxAsInteger'定义一个移动增量PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSub

PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub

PrivateSubForm_Load()Timer1.Enabled=Falsecx=50EndSubPrivateSubTimer1_Timer()

Label1.MoveLabel1.Left+cx'标签移动IfLabel1.Left+Label1.Width>ScaleWidthThencx=-50'移到右边时开始向左移动IfLabel1.Left<=0Thencx=50'移到左边时开始向右移动EndSub

4/21/20247清华大学出版社7/387.2.1单项选择按钮单项选择按钮控件（OptionBotton）通常成组出现，主要用于处理“多项选择一”问题。1.惯用属性(1) Value属性用于设置单项选择按钮状态。True表示选定；False表示未选定。(2) Caption属性显示出现在单项选择按钮旁边文本。(3) Alignment属性用于设置单项选择按钮旁边文本在圆圈左边或者右边。其值为0或1。值为0时表示控件钮在左边，标题显示在右边；值为1时，反之。(4) Style属性用于设置单项选择按钮外观。其值为0或1。值为0时为标准样式；值为1时外观类似于命令按钮。7.2单项选择按钮和复选框

4/21/20248清华大学出版社8/382.惯用事件单项选择按钮控件（OptionBotton）惯用事件是Click事件。【例7.3】设计一个程序，界面由一个文本框和两个单项选择按钮组成，用户单击不一样按钮，文本框中显示对应结果。程序界面设计如图7-4所表示。图7-54/21/20249清华大学出版社9/38【例】设计以下列图所表示界面；当单击某个单项选择钮，在标签中显示对应字体。运行结果如图所表示。 事件过程代码以下：PrivateSubst_Click（）Label1.FontName=“宋体"EndSubPrivateSubhwcy_Click（）Label1.FontName=“华文彩云”EndSubPrivateSubyy_Click（）Label1.FontName=“幼圆"EndSub4/21/202410清华大学出版社10/387.2.2复选框复选框（CheckBox）也称检验框，主要功效是从用户处获取“是”或“否”信息。能够处理“多项选择多”问题，与单项选择按钮一起统称为选项按钮。复选框控件和单项选择按钮控件功效相同，不过二者存在主要差异在于：单项选择按钮控件在使用过程中通常由两个以上单项选择按钮组成选项组，而这些单项选择按钮在同一时刻只能选一个；相反，用复选框控件则能够选择多个数量控件。

4/21/202411清华大学出版社11/381.惯用属性(1)Value属性用于设置复选框状态。复选框Value属性值有3种情况。0-VbunChecked表示未选中（默认值），此时按钮小方框空白；1-VbChecked表示选中，此时按钮小方框有一小对勾；3-VbGrayed表示不确定或不一致，此时按钮为灰色。(2)Caption属性用于设置复选框文本标题。(3)Alignment属性类似单项选择按钮该属性。(4)Enabled属性可经过设置Enabled属性值为False或0，使选项按钮不被激活。4/21/202412清华大学出版社12/382.惯用事件复选框控件（CheckBox）惯用事件也是Click事件。惯用于创建一事件过程，检测该控件对象Value属性值。图7-6编写程序代码

PrivateSubCheck1_Click()’控制字体加粗效果IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSub【例7.4】利用单项选择钮设置文本框文字字体，复选钮设置文本效果，程序界面如图7-6所表示。

4/21/202413清华大学出版社13/38

PrivateSubCheck2_Click()’控制字体倾斜效果IfCheck2.Value=CheckedThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub

PrivateSubCheck3_Click()’控制字体下划线效果IfCheck3.Value=CheckedThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub

4/21/202414清华大学出版社14/38框架控件(Frame)是左上角有标题文字方框，框架相当一个容器，它能够把其它控件组织在一起，形成一个控件组。这么，当框架移动时，控件组也对应移动，框架隐藏时，控件组也一起隐藏。利用框架设计程序界面可使窗体上内容更有条理。图7-7显示了框架在程序界面设计时应用。

7.3框架

框架图7-74/21/202415清华大学出版社15/381.惯用属性(1)Caption属性：框架标识文本.(2)Enabled属性（有两种设置）：False：标题呈灰色，不允许对框架内对象进行操作。True：允许对框架内对象进行操作（默认值）。(3)Visible属性：True：框架及其控件可见；False：框架及其控件被隐含起来。2.惯用事件框架控件事件有鼠标单击（Click）事件和鼠标双击（Dblclick）事件。通常框架主要用于控件分组，极少编写框架事件。4/21/202416清华大学出版社16/38列表框控件（ListBox）和组合框控件（ComboBox）也为用户提供了选择。默认时，选项以垂直单列方式显示，也能够将其设置成多列方式。假如项目数量超出列表框（ListBox）或组合框（ComboBox）所能显示数目，系统就会自动向ListBox和ComboBox添加滚动条。这么用户就能够在列表中上下左右滚动来选择所需项目。

7.4列表框和组合框7.4.1列表框列表框（ListBox）主要用途在于提供列表式多个数据选项供用户选择。用户能够经过单击某一项或多项来选择自己所需要项目。4/21/202417清华大学出版社17/381.惯用属性(1) List属性该属性是字符型数组，存放列表项内容，下标是从0开始，即List(0)保留列表中第一个数据项内容；List(1)保留列表中第二个数据项内容；依次类推，List(ListCount-1)存列表中最终一个数据项内容。(2)ListCount属性该属性返回列表框中列表项数目。ListCount－1是最终一项下标。(3)ListIndex属性该属性返回运行时用户选中列表项序号，假如用户选择多个列表项，则ListIndex返回是最近一次所选列表项序号；假如没有项目被选定时ListIndex值为－1。4/21/202418清华大学出版社18/38注意：ListIndex属性不能在设计时设置，只能在程序运行时才起作用。(4)Text属性用于存放被选中列表项文本内容。该属性是只读，不能在属性窗口中设置，也不能在程序中设置，只用于获取当前选定列表项内容。可在程序中引用Text属性值(5) Sorted属性设置列表项排列次序,True：按字母次序排列；False：按加入先后次序排列。(6) Selected属性该属性是一个逻辑数组,其数组元素对应列表框中对应列表项。表示对应列表项在程序运行期间是否被选中。例，Selected(i)值为True表示第i+1项被选中。

4/21/202419清华大学出版社19/38(7) MultiSelect属性该属性值表明能否在列表框中进行复选以及怎样进行复选。该属性只能在设计时设置。它值有三个。0-None：禁止多项选择。1-Simple：简单多项选择。2-Extended：扩展多项选择。可利用【Ctrl】或【Shift】加鼠标组合使用进行选择。(8)SelCount属性其值表示在列表框控件中所选列表项数目，通常与Selected数组一起使用，以处理控件中所选项目。4/21/202420清华大学出版社20/38(9)Style属性该属性用来设置列表框控件格调。0:标准格调；1:复选框格调。4/21/202421清华大学出版社21/382.惯用方法(1)AddItem方法该方法向一个列表框中添加新列表项，其语法是： List1.AddItemItem[,Index](2)RemoveItem方法该方法用来从一个列表框中删除一个列表项，其语法是： List1.RemoveItem<index>其中：index参数表示是要删除列表项序号。比如，List1.RemoveItem0，表示删除列表框第一个列表项。List1.RemoveItemList1.ListIndex，表示删除列表框中当前选中列表项。(3)Clear方法该方法用于去除列表框中全部列表项，如：List1.Clear3.列表框事件列表框惯用事件有Click、DblClick等。

4/21/202422清华大学出版社22/38【例7.5】设计一个对列表框进行项目添加、删除操作程序。程序界面如图7-8、图7-9所表示。要求：①在添加数据时判断列表框中数据是否存在，假如存在给出提醒信息。②能够对列表框进行多项选择删除，假如没有选中任何项给出提醒信息。③当用户在列表框中选择某项时，会在文本框中显示选中项信息。图7-8图7-94/21/202423清华大学出版社23/38OptionExplicitDimiAsIntegerPrivateSubCommand1_Click()

'项列表中添加数据项i=0DoWhilei<List1.ListCount IfList1.List(i)=Text1.TextThen MsgBox"数据项已存在！",vbCritical ExitSub EndIf i=i+1LoopList1.AddItemText1.TextText1.Text=""Text1.SetFocusEndSubFori=0toList1.ListCount IfList1.List(i)=Text1.TextThen MsgBox"数据项已存在！",vbCritical ExitSub EndIf4/21/202424清华大学出版社24/38PrivateSubCommand3_Click()

UnloadMeEndSub

PrivateSubCommand2_Click() ‘删除列表框中选中单个数据项IfList1.SelCount>0Then i=List1.ListIndex

List1.RemoveItem(i)elseMsgBox"没有选中数据项！",vbInformationEndIf

EndSub思索：在多项选择列表框中，怎样删除多个选择项？

PrivateSubCommand2_Click() ‘删除列表框中选中数据项DimtagAsBooleantag=TrueFori=List1.ListCount-1To0Step-1IfList1.Selected(i)=TrueThenList1.RemoveItem(i)tag=FalseEndIfNextiIftagThenMsgBox"没有选中数据项！",vbInformationEndSub

PrivateSubCommand2_Click()

‘删除列表框中选中数据项

If

List1.SelCount<=0Then

MsgBox"没有选中数据项！",vbInformationExitsubendifFori=List1.ListCount-1To0Step-1IfList1.Selected(i)=TrueThenList1.RemoveItem(i)EndIfNexti

EndSubPrivate

SubList1_Click()

Text2.Text=List1.TextEndSub4/21/202425清华大学出版社25/387.4.2组合框组合式列表框又称下拉列表框，功效类似文本框加列表框组合。默认情况下，用户既能够在列表项中选择一个固定字符串，也能够在其文本框中输入一个新字符串。1.惯用属性组合式列表框大多数属性和方法与列表框控件相同。(1) Style属性返回或设置一个用来指示控件显示类型和行为值。设置值有三个：0-VbComboDropDown（默认值）：下拉组合框。包含一个下拉式列表和一个文本框,能够从列表选择或在文本框中输入。1-VbComboSimple：简单组合框。包含一个文本框和一个不能下拉列表,能够从列表选择或在文本框中输入。2-VbComboDrop-DownList：下拉式列表。仅允许从下拉式列表中选择。4/21/202426清华大学出版社26/38(2)Text属性该属性表示被选中列表项或用户输入文本。4/21/202427清华大学出版社27/382.惯用方法前面介绍列表框AddItem，RemoveItem，Clear等方法也适合用于组合框。3.组合框事件组合框普通含有Click事件，只有简单组合框才有DblClick事件,通常在单击命令按钮或发生DblClick事件时才读取Text属性。同时当下拉列表框文本内容发生改变时,触发Change事件。注意：区分Click事件与Change事件。【例7.6】建立如图7-10所表示设置字体效果窗体,当用户单击“确定”按钮后,将选中文字效果应用到文本框中。

4/21/202428清华大学出版社28/38PrivateSubCommand1_Click()Text1.FontName=Combo1.TextText1.FontSize=Combo2.TextEndSub图7-10PrivateSubForm_Load()

Combo1.AddItem"黑体"Combo1.AddItem"楷体_GB2312"……Combo1.AddItem"华文中宋"Combo1.Text=Combo1.List(0)Combo2.AddItem10：Combo2.AddItem12Combo2.AddItem14：Combo2.AddItem16Combo2.AddItem18Combo2.Text=Combo2.List(0)EndSubPrivateSubCommand2_Click()UnloadMeEndSub4/21/202429清华大学出版社29/38对上述方法改进：PrivateSubCombo1_Click()Text1.FontName=Combo1.TextText1.FontSize=Val(Combo2.Text)EndSubPrivateSubCombo2_Click()Text1.FontName=Combo1.TextText1.FontSize=Val(Combo2.Text)EndSub使用控件数组怎样编程？4/21/202430清华大学出版社30/387.5滚动条

1.惯用属性(1) Max属性：返回或设置当滚动滑块处于底部或最右位置时对应值，默认值为32767。(2) Min属性：默认值为0。(3) SmallChange属性：返回或设置当用户单击滚动箭头时，滚动条控件Value属性值改变量。(4) LargeChange属性返回设置当用户单击滚动条和滚动箭头之间区域时，滚动条控件Value属性值改变量。(5) Value属性控件当前值，由滚动条当前位置决定。随滚动条滑块位置改变而改变，其值介于Min和Max之间。4/21/202431清华大学出版社31/38惯用属性(1)Value 滑块所处位置所代表值。(2)Max：最大值 -32,768~32,767(3)Min：最小值 -32,768~32,767(4)SmallChange 最小变动值，单击箭头时移动增量值。(5)LargeChange 最大变动值，单击空白处时移动增量值。4/21/202432清华大学出版社32/382.滚动条事件滚动条惯用事件有：Change事件和Scroll事件(1)Change事件当滚动条控件滑块所处位置发生改变引发Value属性值改变时触发Change事件。(2)Scroll事件在滚动条控件滑块被拖动过程中，会连续触发多个Scroll事件。图7-11①最小字号为8，最大字号为72。②单击滚动条箭头时，字号每次改变1；单击滚动条和滚动箭头之间区域时，字号每次改变4。【例7.7】建立一个用滚动条控制一个文本框中字体大小程序。程序运行效果如图7-11所表示。要求：4/21/202433清华大学出版社33/38注意区分change和scroll事件PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSubPrivateSubHScroll1_scroll（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub4/21/202434清华大学出版社34/387.6图片框控件和图像框控件图片框控件（PictureBox）：

惯用属性Picture属性1）在设计阶段装入在设计阶段，能够用属性窗口中Picture属性装入图形文件。2）在运行期间装入在运行期间，能够用LoadPicture函数把图形文件装入图片框或图像框中。语句格式以下：

对象名.Picture=LoadPicture（[filename]）惯用事件CLICK、DBCLICK用于在窗体指定位置显示图形信息。VB6.0支持.Bmp、.ico、.wmf、.jpg、.gif等格式图形文件。4/21/202435清华大学出版社35/382.图像框控件（ImageBox）惯用属性

Picture属性：等同于图片框

stretch属性:用于图像框。当该属性取值为False时，图像控件将自动改变大小以与图形大小相适应；当其值为True时，显示在控件中图像大小将完全适合于