VB程序设计与应用第6章：常用控件

1第6章常用内部控件本章要点:

•框架、图片框、图像框

•选项按钮、复选框

•列表框、组合框

•计时器、滚动条、Slider2第6章在VB6.0中可以使用的控件大致分为三类：

•标准控件

•

ActiveX控件

•可插入对象3第6章标准控件标准控件又称为部件控件，如：标签、文本框、命令按钮等。Vb6.0工具箱上的标准控件有20个。标准控件总是出现在工具箱中，不像ActiveX控件和可插入对象那样可以添加到工具箱中4第6章ActiveX控件使用标准控件来编写复杂的应用程序显然是困难的。VB6.0以及第三方开发商为用户提供了大量的ActiveX控件，可将他们添加到工具箱上像标准控件一样使用。方法：选择工程－>部件，选择需要加载的控件。5第6章可插入对象可插入对象是windows应用程序的对象，例如：“MicrosoftExcel”工作表。66.0

控件的公共属性1.Name属性(1)运行时是只读的;(2)缺省名称。(3)以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)。(4)控件数组的名称:Name(Index)。2.Caption属性(1)加访问键:&字母。(2)Label控件标题大小没有限制。其他有标题的控件标题大小限制为255个字符。(3)注意与Name属性、Text属性的区别。73.Enabled属性（失效）决定控件是否能够对用户产生的事件作出响应。4.Visible属性（可见）注意:如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。【例6-1】Visible属性和Enabled属性的比较。8“显示图像”按钮Command1的Click事件过程如下:PrivateSubCommand1_Click()Image1.Visible=True

Command1.Enabled=False

Command2.Enabled=TrueEndSub“隐藏图像”按钮Command2的Click事件过程如下:PrivateSubCommand2_Click()Image1.Visible=FalseCommand1.Enabled=True

Command2.Enabled=FalseEndSub96.Left、Top、Height、Width属性对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统。6.BackColor、ForeColor属性(1)在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。(2)如果在Form对象或PictureBox控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。(3)设置ForeColor属性值不会影响已经打印的文本或绘制的图形。7.FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性108.Font对象属性格式:<控件名>.Font.<属性名>

<属性名>:Name、Size、Bold、Italic、Underline、Strikethrough例:Form1.Font.Size=14Command1.Font.Italic=True116.11选项按钮(OptionButton)1.作用:多选一(放在窗体上或放在其他容器中)2.属性(1)Value:True——选中

False——未选中(2)Alignment属性:决定文本的对齐方式(3)Style——控制外观3.事件

Click事件——使选项按钮从未选择变成选择状态时(单击鼠标改变、代码改变)12【例6-2】设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。Option1Option2Value为True的两种显示方式Style为1Style为0Option3Option4Option5Option613PrivateSubOption1_Click()Text1.ForeColor=vbBlackEndSubPrivateSubOption2_Click()Text1.ForeColor=vbYellowEndSubPrivateSubOption3_Click()Text1.ForeColor=vbRedEndSubPrivateSubOption4_Click()Text1.BackColor=vbWhiteEndSubPrivateSubOption5_Click()Text1.BackColor=vbGreenEndSubPrivateSubOption6_Click()Text1.BackColor=vbBlueEndSub146.12复选框(CheckBox)1.作用多选一或多选多(放在窗体上或其他容器中)。2.属性(1)Value0——未选中

1——选中

2——灰度状态(常用于表示不确定或部分选中)

(2)Alignment属性:决定文本的对齐方式(3)Style:控制外观3.事件Click事件15【例6-3】设计界面如下图所示，用复选框设置文本框的文字样式与效果。Check1Check2Check3Check416PrivateSubCheck1_Click()Text1.FontBold=Check1.ValueEndSubPrivateSubCheck2_Click()Text1.FontItalic=Check2.ValueEndSubPrivateSubCheck3_Click()Text1.FontStrikethru=Check3.ValueEndSubPrivateSubCheck4_Click()Text1.FontUnderline=Check4.ValueEndSub176.2

框架(Frame)1.作用:作为容器，对控件进行分组。2.如何将控件放在容器中•选中容器，在容器中直接画；•选中容器，粘贴控件。3.如何检查控件是否在容器中拖动容器，控件随容器移动。4.选中框架中的多个控件:Ctrl+拖动5.删除容器时，其中的控件随之被删除6.框架的常用属性

Caption:Font:ForeColor:Backcolor:Enabled:……为False时框架中的控件不可用186.31列表框(ListBox)1.作用:提供选项列表，内容多时自动出现滚动条。2.属性Style——外形(常规形式、复选框形式)

List——列表内容

设计时:用Ctrl+

换行;运行时:List(i)表示第i项

Columns——列表形式0:垂直单列，1:水平单列，>1:水平多列

Text——只读，运行期用，获取当前选择项目的值

ListIndex——运行期用，当前选定项目的索引(0…)；如果未选定项目，则ListIndex值为-1

ListCount——列表部分项目的个数

Sorted——元素是否自动按字母顺序排序

Selected——运行期用，用于选择某项，如

List1.Selected(3)=True

选择第4项19MultiSelect:0——缺省值，不允许复选1——鼠标单击，按空格键在列表中选择或取消选择2——按下Shift并单击鼠标或按下Shift以及一个箭头键将在以前选中项的基础上扩展选择到当前选中项。按下Ctrl并单击鼠标在列表中选中或取消选中项3.方法

AddItem——向列表框中添加新的项目

<对象名>.AddItem<项目>[,<索引>]

RemoveItem——从列表框中移除项目

<对象名>.RemoveItem<索引>

Clear——清除所有列表的<对象名>.Clear20【例6-4】设计如下图所示的界面，左列表框列出了某数据表格的各列(字段)名称。将左列表框中选择的书名移动到右列表框中将右列表框中选择的书名移动到左列表框中将左列表框中的所有书名移动到右列表框中将右列表框中的所有书名移动到左列表框中List1List221(1)将左列表框中选择的字段移动到右列表框中PrivateSubCommand1_Click()IfList1.ListCount=0ThenMsgBox"列表中已没有可选的字段",,"注意"

ExitSub

EndIfIfList1.ListIndex>=0Then

List2.AddItemList1.Text

List1.RemoveItemList1.ListIndex

Else

MsgBox"请先在列表中选择某字段",,"注意"

EndIfEndSub22(2)将右列表框中选择的字段移动到左列表框中PrivateSubCommand2_Click()IfList2.ListCount=0Then

MsgBox"列表中已没有可选的字段",,"注意"

ExitSub

EndIfIfList2.ListIndex>=0ThenList1.AddItemList2.Text

List2.RemoveItemList2.ListIndex

Else

MsgBox"请先在列表中选择某字段",,"注意"

EndIfEndSub23(3)将左列表框中的所有字段移动到右列表框中

PrivateSubCommand3_Click()Fori=0ToList1.ListCount-1List1.Selected(0)=True

List2.AddItemList1.Text

List1.RemoveItem0

NextiEndSub(4)将右列表框中的所有字段移动到左侧列表框中PrivateSubCommand4_Click()Fori=0ToList2.ListCount-1List2.Selected(0)=True

List1.AddItemList2.TextList2.RemoveItem0

NextiEndSub246.32组合框(ComboBox)1.作用:提供列表(可折叠)、文本输入2.属性

List——列表内容(Ctrl+Enter换行)

Style——外形0——下拉组合框(折叠)1——简单组合框(不折叠)2——下拉列表框(不能修改Text属性)

Text——文本框内容

ListIndex——运行期用，当前选定项目的索引索引从0开始

ListCount——列表部分项目的个数

Sorted——元素是否按字母顺序自动按顺序排序253.事件组合框的事件与Style属性有关。Style为0时:响应Click、Change、DropDown事件Style为1时:响应Click、DblClick、Change事件Style为2时:响应Click、DropDown事件4.方法

AddItem:向组合框中添加新的项目

<对象名>.AddItem<项目>[,<索引>]

RemoveItem:从组合框中移除项目

<对象名>.RemoveItem<索引>

Clear:清除组合框中的所有项目

<对象名>.Clear26【例6-5】在窗体上放4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。Style=1Style=2Style=2Style=027PrivateSubForm_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=Combo3.List(0)Combo4.Text=Combo4.List(0)EndSubPrivateSubCommand1_Click()Picture1.ClsPicture1.Print"您选择的配置是:"

Picture1.Print"机型:";Combo1.TextPicture1.Print"CPU:";Combo2.TextPicture1.Print"硬盘:";Combo3.TextPicture1.Print"内存:";Combo4.TextEndSub286.4滚动条(HScrollBar、VScrollBar)和Slider1.作用:附在窗体上以协助观察数据或确定位置，还可以用来输入数据。2.滚动条结构滚动箭头滚动块滚动箭头3.属性（共有）LargeChange——单击滚动块和滚动箭头之间的区域时，滚动条Value值的改变量SmallChange——单击滚动箭头时，滚动条的Value值的改变量Max——滚动条的Value属性最大值Min——滚动条的Value属性最小值Value——滚动条当前位置值，介于[Min,Max]之间29Slider特有属性

该控件需要用户添加TickStyle显示样式TickFrequency刻度的疏密TextPosition属性用鼠标操作时出现提示，告诉用户当前的刻度值事件Change(单击时，Value改变时)，Scroll(拖动时)见书P117例6.730【例6-6】设计一水平滚动条，表示范围为1到100，要求:(1)单击某按钮生成[1，100]之间的随机整数，在滚动条上反映此随机数，同时在标签上显示该值。(2)滚动条滚动时，标签内容能够及时反映滚动条的当前值。HScroll1Label3Command131PrivateSubCommand1_Click()Randomize:X=Int(Rnd*100+1)HScroll1.Value=XLabel3.Caption=XEndSubPrivateSubHScroll1_Change()Label3.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label3.Caption=HScroll1.ValueEndSub32【例6-7】在图片框Picture1上放置一个圆，在窗体上放一个水平滚动条HScroll1和一个垂直滚动条VScroll1，如下图。运行时，拖动滚动条可以使圆在图片框上随滚动条左右或上下移动。移动范围限制在图片框内部。Picture1Shape1HScroll1VScroll133PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=Picture1.ScaleWidth–_Shape1.WidthHScroll1.LargeChange=(Picture1.ScaleWidth–_Shape1.Width)/20HScroll1.SmallChange=(Picture1.ScaleWidth–_Shape1.Width)/40VScroll1.Min=0VScroll1.Max=Picture1.ScaleHeight–Shape1.HeightVScroll1.LargeChange=(Picture1.ScaleHeight–_Shape1.Height)/20VScroll1.SmallChange=(Picture1.ScaleHeight–_Shape1.Height)/40Shape1.Left=0Shape1.Top=0EndSub34PrivateSubHScroll1_Change()Shape1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Shape1.Left=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Shape1.Top=VScroll1.ValueEndSubPrivateSubVScroll1_Scroll()Shape1.Top=VScroll1.ValueEndSub356.5时钟也叫定时器(Timer)1.作用:周期性地执行某功能，运行时不可见2.属性

Enabled:将Enabled设置为False时将停止定时器的计时操作Interval:计时事件执行的时间间隔(毫秒)3.事件

Timer事件:每当计时时间到时产生Timer事件注:一个计时器的最大计时时间为65535毫秒,等于1分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。36【例6-8】在窗体上放置一个红色圆。单击“增大”按钮每隔1秒直径自动增大200Twips；单击“缩小”按钮每隔1秒直径自动缩小200Twips；

单击“停止”按钮停止增大或缩小。Timer1属性:Enabled—FalseInterval—1000Cmd1Cmd2Cmd3Timer1Shape137DimFlagAsIntegerPrivateSubCmd1_Click()Timer1.Enabled=TrueFlag=1EndSubPrivateSubCmd2_Click()Timer1.Enabled=TrueFlag=0EndSubPrivateSubCmd3_Click()Timer1.Enabled=FalseEndSub38PrivateSubTimer1_Timer()IfFlag=0ThenIfShape1.Width<200OrShape1.Height<200Then

MsgBox"不能再缩小",,"注意"

Timer1.Enabled=FalseExitSub'结束本事件过程

EndIfShape1.Width=Shape1.Width-200Shape1.Height=Shape1.Height-200ElseShape1.Width=Shape1.Width+200Shape1.Height=Shape1.Height+200EndIfEndSub396.61图片框(PictureBox)1.作用•作为容器，对控件进行分组；•显示图像。2.如何显示图像:设置Picture属性•在属性窗口中设置；•对象名.Picture=LoadPicture(“图形文件名”)。3.如何清除图像•在属性窗口中删除Picture属性内容；•对象名.Picture=LoadPicture()(也清除文字)。4.打印与清除文字打印:对象名.Print……

清除:对象名.Cls。5.特点自动调整控件大小以适应图像:AutoSize=True；

不能延伸图形以适应控件的大小。406.62图像框(Image)1.作用:显示图像2.如何显示图像:设置Picture属性•在属性窗口中设置；•对象名.Picture=LoadPicture(“图形文件名”)。3.如何清除图片•在属性窗口中删除Picture属性内容；•对象名.Picture=LoadPicture()。4.特点:可以自动调整控件大小以适应图像:设Stretch=False

可以延伸图形以适应控件的大小:设Stretch=True416.7鼠标器和键盘6.7.1鼠标器

主要有:Click、DbClick及以下三个事件

MouseDown：鼠标器的任一按钮按下时被触发。

MouseUp：释放任一钮时。

MouseMove：移动时。

426.7鼠标器和键盘6.7.2键盘

VB中重要的键盘事件有下列三种：

KeyPress：当按下并释放一个会产生ASCII码的键时被触发。

KeyUp:释放任一键时。

KeyDown：按下任一键时。当用户按下并释放一个键时，这三个事件发生的顺序是KeyDown、KeyPress、KeyUp。436.7鼠标器和键盘6.7.3焦点与Tab键序

1.焦点（Focus)

是指对象被选中的能力。当对象获得焦点时会触发GetFocus事件。当对象失去焦点时会触发LostFocus事件。

2.Tab键序

Tab键序是指当用户按下Tab键时，焦点在控件间移动的顺序。TabIndex=0,1,2,…

446.8常用系统控件6.8.1App对象在VB中App是非常很重要的全局对象，主要有：Path属性返回用户当前文件所在路径，例如在立即窗口中执行？app.PathC:\ProgramFiles\MicrosoftVisualStudio\VB982.EXEName返回当前应用程序文件名?app.EXEName工程1456.8常用系统控件6.8.1App对象PrevInstance返回一个逻辑值，表示是否重复执行了同一程序。

?app.PrevInstanceFalse4.TaskVisible返回或设置一个逻辑值，用以确定应用程序是否出现在任务管理器中。看书本例6.13466.8常用系统控件6.8.2Clipboard对象(剪贴板)

1.Clear方法如：Clipboard.clear清除剪贴板内容2.GetText和SetText

分别是返回剪贴板中的文本字符串将文本字符串放到剪贴板中。3.Getdata和SetDataSetData将图形文件送到剪贴板中GetData