常用控件与系统对象教学课件

第八章第八章 常用控件与系统对象常用控件与系统对象本章内容及要求：本章内容及要求：1.掌握常用控件单选钮掌握常用控件单选钮(OptionButton)、检查框、检查框(CheckBox)、框架框架(Frame)、滚动条、滚动条(ScrollBar)、列表框列表框(ListBox)、组合框（、组合框（ComboBox)、Timer)等等的常用、的常用、属性、重要事件和方法的使用；属性、重要事件和方法的使用；2.Active控件的添加方法。控件的添加方法。3.了解剪贴板对象的使用。了解剪贴板对象的使用。2020/12/111本章重点：本章重点：常用控件单选钮、检查框、常用控件单选钮、检查框、框架、滚动条、框架、滚动条、列表框列表框(ListBox)、组合框（、组合框（ComboBox)、时钟、时钟(Timer)等的常用等的常用 属性、重要事件和方法的使用；属性、重要事件和方法的使用；本章难点：本章难点：常用系统对象的使用。常用系统对象的使用。2020/12/1128.1 单选钮、检查框及框架单选钮、检查框及框架8.1.1单选钮单选钮 1.用途用途 单单选选钮钮（OptionButton）也也称称作作选选择择按按钮钮。一一组组单单选选钮钮控控件件可可以以提提供供一一组组彼彼此此相相互互排排斥斥的的选选项项，任任何何时时刻刻用用户户只只能能从从中中选选择择一一个个选选项项，实实现现一一种种“单单项项选选择择”的的功功能能，被被选选中中项项目目左左侧侧圆圆圈圈中中会会出出现一黑点。现一黑点。单选按钮2020/12/1132.重要属性重要属性（1）Caption：文本标题。设置单选钮的文本注释内容。文本标题。设置单选钮的文本注释内容。（2）Alignment属性属性：0：Left Justify(缺省缺省)控件钮在左边，标题显示在右边。控件钮在左边，标题显示在右边。1：Right Justify 控件钮在右边，标题显示在左边。控件钮在右边，标题显示在左边。（3）Value 属性属性True:True:单选钮被单选钮被选定选定False:False:单选钮未被单选钮未被选定（选定（缺省设置）缺省设置）（4）Style 属性属性 0-Standard：标准方式标准方式 1-Graphical：图形方式：图形方式 说说 明：明：在在Style属性设置为属性设置为1时，可使用时，可使用 Picture 属性属性（未选定时的图标或位图）、（未选定时的图标或位图）、DownPicture属性属性(选定时的选定时的图标或位图图标或位图)、DisabledPicture属性（禁止选择时的图标或属性（禁止选择时的图标或位图）位图）2020/12/1143.方法方法 SetFocus方方法法是是单单选选钮钮控控件件最最常常用用的的方方法法，可可以以在在代代码中通过该方法将码中通过该方法将Value属性设置为属性设置为True。与与命命令令按按钮钮相相同同，使使用用该该方方法法之之前前，必必须须要要保保证证单单选选钮钮处处于于可可见见和和可可用用状状态态（即即Visible与与Enabled属属性性值值均均为为True）。）。4.事件事件 Click事事件件是是单单选选钮钮控控件件最最基基本本的的事事件件，一一般般情情况况用用户户无无需需为为单单选选钮钮编编写写Click事事件件过过程程，因因为为当当用用户户单单击击单单选选钮钮时，它会自动改变状态。时，它会自动改变状态。例例8.1 单选钮示例（单选钮示例（Pg.185）。）。2020/12/1158.1.2 检查框检查框1.用途用途 检检查查框框（CheckBox）也也称称作作复复选选框框、选选择择框框。一一组组检检查查框框控控件件可可以以提提供供多多个个选选项项，它它们们彼彼此此独独立立工工作作，所所以以用用户户可可以以同同时时选选择择任任意意多多个个选选项项，实实现现一一种种“不不定定项项选选择择”的的功功能能。选选择择某某一一选选项项后后，该该控控件件将将显显示示，而而清清除此选项后，除此选项后，消失。消失。2.重要属性重要属性 Caption、Alignment、Style与单选钮相同与单选钮相同检查框2020/12/116 检查框的检查框的Value 属性与单选按钮不同，其值为数值型数属性与单选按钮不同，其值为数值型数据，可取据，可取 0,1,2 检查框检查框0-Unchecked：未被未被选定选定1-Checked：选定：选定2-Grayed：灰色，禁止选择灰色，禁止选择 单选钮单选钮True:True:单选钮被单选钮被选定选定False:False:单选钮未被单选钮未被选定，选定，缺省设置缺省设置 检查框与单选按钮检查框与单选按钮Value 属性的比较属性的比较2020/12/1173.方法方法4.每调用一次每调用一次SetFocus方法就会触发一次方法就会触发一次Click事件事件(错错)。value每改变一次就会触发一次每改变一次就会触发一次Click事件。事件。4.事件事件 Click事事件件是是检检查查框框控控件件最最基基本本的的事事件件。用用户户一一般般无无需需为为检检查查框框编编写写Click事事件件过过程程，但但其其对对Value属属性性值值的的改改变遵循以下规则：变遵循以下规则：单击未选中的检查框时，单击未选中的检查框时，Value属性值变为属性值变为0；单击已选中的检查框时，单击已选中的检查框时，Value属性值变为属性值变为1；单击变灰的检查框时，单击变灰的检查框时，Value属性值变为属性值变为0。2020/12/1188.1.3 框架框架(Frame)Frame 控件为控件提供可标识的分组。当需要在同一窗控件为控件提供可标识的分组。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把选钮框框起来，把 OptionButton 控件分成几组，如下形式。控件分成几组，如下形式。框架设Caption为 字体2020/12/119框架内控件的创建方法：框架内控件的创建方法：为了将控件分组，首先需要绘制为了将控件分组，首先需要绘制 Frame 控件，然后控件，然后绘制绘制 Frame 里面的控件。这样就可以把框架和里面的控里面的控件。这样就可以把框架和里面的控件同时移动。如果在件同时移动。如果在 Frame 外部绘制了一个控件并试图外部绘制了一个控件并试图把它移到框架内部，那么控件将在把它移到框架内部，那么控件将在 Frame 的上部，这时的上部，这时需分别移动需分别移动 Frame 和控件和控件方法方法1：单击工具箱上的工具，然后用出现的单击工具箱上的工具，然后用出现的“+”指针，指针，在框架中适当位置拖拉出适当大小的控件。在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上工具的自动方式。不能使用双击工具箱上工具的自动方式。方法方法2：将控件将控件“剪切剪切”(Ctrl+X)到剪贴板，然后选中框到剪贴板，然后选中框架，使用架，使用(Ctrl+V)命令粘贴到框架内。命令粘贴到框架内。2020/12/1110重要属性重要属性1.Caption属性：框架标题属性：框架标题2 Enabled属性：属性：缺省为缺省为True False：标题呈灰色，：标题呈灰色，不允许对框架内的所有对象不允许对框架内的所有对象 进行操作进行操作。3.Visible属性：属性：True：框架及其控件可见。：框架及其控件可见。False：框架及其控件被隐含起来。：框架及其控件被隐含起来。事件：事件：框架可以响应的事件框架可以响应的事件ClickClick、DblClickDblClick一般不需要有关框架的事件过程。一般不需要有关框架的事件过程。例例8.2 单选钮、检查框及框架用法示例。单选钮、检查框及框架用法示例。Pg.1872020/12/11118.2 滚动条滚动条(ScrollBar)1.用用 途途 滚动条控件（滚动条控件（ScrollBar）分为水平滚动条）分为水平滚动条（HScrollbar）和垂直滚动条（）和垂直滚动条（VscrollBar）二种，通常附）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。具，用来提供某一范围内的数值供用户选择。2020/12/11122.属性属性(1)Value 滑块所处位置所代表的值。滑块所处位置所代表的值。(2)Max：最大值：最大值 -32,76832,767(3)Min：最小值：最小值 -32,76832,767(4)SmallChange 最小变动值，最小变动值，单击箭头时移动的增量值。单击箭头时移动的增量值。(5)LargeChange 最大变动值，单击空白处时移动的增量值。最大变动值，单击空白处时移动的增量值。3.方法方法2020/12/11134.事件事件（1）Change事件事件 滚滚动动条条的的Change事事件件在在移移动动滚滚动动框框或或通通过过代代码码改改变变其其Value属属性性值值时时发发生生。单单击击滚滚动动条条两两端端的的箭箭头头或或空空白白处处将将引引发发Change事件。事件。（2）Scroll事件事件 当当滚滚动动框框被被重重新新定定位位，或或按按水水平平方方向向或或垂垂直直方方向向滚滚动动时，时，Scroll事件发生。拖动滑块时会触发事件发生。拖动滑块时会触发Scroll事件事件 Scroll事事件件与与Change事事件件的的区区别别在在于于：当当滚滚动动条条控控件件滚滚动动时时Scroll事事件件一一直直发发生生，而而Change事事件件只只是是在在滚滚动动结结束之后才发生一次。束之后才发生一次。2020/12/1114滚动条示例。设计一个用于设置字体颜色的程序滚动条示例。设计一个用于设置字体颜色的程序.2020/12/11158.3 列表框与组合框列表框与组合框 列列表表框框控控件件（ListBox）用用于于显显示示项项目目列列表表，用用户户可可从从中中选选择择一一个个或或多多个个项项目目。如如果果项项目目总总数数超超过过了了可可显显示示的的项项目数，目数，VB会自动加上滚动条。会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。属性来设置。2020/12/1116 组组合合框框控控件件（ComboBox）将将文文本本框框和和列列表表框框的的功功能能结结合合在在一一起起，用用户户可可以以在在列列表表中中选选择择某某项项（只只能能选选取取一项）一项）。或在编辑区域中直接输入文本内容来选定项目。或在编辑区域中直接输入文本内容来选定项目。组组合合框框共共三三种种风风格格：下下拉拉式式组组合合框框、简简单单组组合合框框和和下下拉拉式式列表框。列表框。2020/12/1117二、主要属性二、主要属性1List、ListCount和和ListIndex属性属性这这3个属性只能在程序代码中设置：个属性只能在程序代码中设置：List：字符型数组字符型数组 存放列表框的项目数据，下标是从存放列表框的项目数据，下标是从0开始的。开始的。例如：例如：List(0)表示第一项（表示第一项（Listindex=0)的内容的内容 ListIndex：整型值整型值 选中的项目的序号，选中的项目的序号，没有项目选中时为没有项目选中时为-1。ListCount：整型值整型值 表示项目的数量，表示项目的数量，ListCount-1是最后一项的下标。是最后一项的下标。2020/12/11182Style属性属性 该该值值用用来来指指示示控控件件的的显显示示类类型型和和行行为为。在在运运行行时时是是只只读读的的。列表框控件或组合框控件的。列表框控件或组合框控件的Style属性含义是不同的。属性含义是不同的。2020/12/11193MultiSelect属性属性 用用于于指指示示是是否否能能够够在在列列表表框框控控件件中中进进行行复复选选以以及及如如何何进行复选，进行复选，在运行时是只读的。在运行时是只读的。注意，注意，组合框控件无此属性。组合框控件无此属性。设置设置值值含含 义义0（缺省值）不允许复选（缺省值）不允许复选1简简单单复复选选。鼠鼠标标单单击击或或按按下下空空格格键键在在列列表表中中选选中中或或取取消消选选中中项项。箭头键移动焦点箭头键移动焦点2扩扩展展复复选选。按按下下 SHIFT 并并单单击击鼠鼠标标将将在在以以前前选选中中项项的的基基础础上上扩扩展展选选择择到到当当前前选选中中项项。按按下下 CTRL 并并单单击击鼠鼠标标来来在在列列表表中中选选中或取消选中项中或取消选中项表表8.7 MultiSelect 属性设置值及含义属性设置值及含义 2020/12/11204Selected属性属性 该该属属性性返返回回或或设设置置列列表表框框控控件件中中的的一一个个项项目目的的选选择择状状态态。该该属属性性是是一一个个逻逻辑辑类类型型的的数数组组，数数组组元元素素个个数数与与列列表表框框中中的的项目数相同，其下标的变化范围与项目数相同，其下标的变化范围与List属性相同。属性相同。例如：例如：List1.Selected（0）=True表示列表框表示列表框List1的第一的第一个项目被选中，此时个项目被选中，此时ListIndex的值设置为的值设置为0。Selected属性在属性在设计时是不可用的，即无法在属性窗口中设置属性值。设计时是不可用的，即无法在属性窗口中设置属性值。5NewIndex属性属性 返回最近加入列表框控件或组合框控件的项目的索引。返回最近加入列表框控件或组合框控件的项目的索引。如果在列表中已没有项目或删除了一个项目，该属性将返回如果在列表中已没有项目或删除了一个项目，该属性将返回-1。2020/12/11216TopIndex属性属性 返返回回或或设设置置一一个个值值，该该值值指指定定哪哪个个项项被被显显示示在在列列表表框框控控件件或或组组合合框框控控件件顶顶部部的的位位置置。该该属属性性取取值值范范围围从从0到到ListCount-1，在设计时不可用。，在设计时不可用。7Sorted属性属性 返返回回一一个个逻逻辑辑值值，当当Sorted属属性性为为True时时列列表表框框控控件件或或组组合合框框控控件件的的项项目目自自动动按按字字母母表表顺顺序序（升升序序）排排序序，为为False时时项项目目按按加加入入的的先先后后顺顺序序排排列列显显示示。该该属属性性只只能能在在设设计时设置，不能在程序代码中设置。计时设置，不能在程序代码中设置。8Text属性属性 对对于于下下拉拉式式组组合合框框与与简简单单组组合合框框，Text属属性性返返回回编编辑辑区区域域中中的的文文本本。对对于于列列表表框框控控件件或或下下拉拉列列表表框框，Text属属性性的的返返回值总与回值总与List（ListIndex）的值相同。）的值相同。2020/12/11223方法方法41AddItem方法方法 用于将项目添加到列表框控件或组合框控件。用于将项目添加到列表框控件或组合框控件。语法格式：语法格式：对象名对象名.AddItem item,index 其中：其中：item:为字符串表达式，表示要加入的项目。为字符串表达式，表示要加入的项目。Index:决定新增项目的位置，决定新增项目的位置，缺省，则添加在最后。缺省，则添加在最后。2RemoveItem方法方法用于从列表框控件或组合框控件中删除一项。用于从列表框控件或组合框控件中删除一项。语法格式：语法格式：对象名对象名.RemoveItem index 对对index参数的规定同参数的规定同AddItem方法。方法。2020/12/11233Clear方法方法 用于清除列表框控件或组合框控件中的所有项目。用于清除列表框控件或组合框控件中的所有项目。对象名对象名.Clear例如，要删除列表框（例如，要删除列表框（List1）中所有项目，可使用：）中所有项目，可使用：List1.Clear 例如，要删除列表框（例如，要删除列表框（List1）中所有选中的项目，可）中所有选中的项目，可使用下面的程序段：使用下面的程序段：i=0Do While i=List1.ListCount-1 If List1.Selected(i)=True Then List1.RemoveItem i else i=i+1 End IfLoop思考：是否可以用思考：是否可以用For循环？循环？2020/12/11244、事件、事件（1）Click事件事件 当当单单击击某某一一列列表表项项目目时时，将将触触发发列列表表框框与与组组合合框框控控件件的的Click事事件件。该该事事件件发发生生时时系系统统会会自自动动改改变变列列表表框框与与组组合合框框控控件的件的ListIndex、Selected、Text等属性，无需另行编写代码。等属性，无需另行编写代码。（2）DblClick事件事件 当当双双击击某某一一列列表表项项目目时时，将将触触发发列列表表框框与与简简单单组组合合框框控控件的件的DblClick事件。事件。（3）Change事件事件 当当用用户户通通过过键键盘盘输输入入改改变变下下拉拉式式组组合合框框或或简简单单组组合合框框控控件件的的文文本本框框部部分分的的正正文文，或或者者通通过过代代码码改改变变了了Text属属性性的的设设置时，将触发其置时，将触发其Change事件。事件。2020/12/1125设计一个用于设置字体属性的程序，界面如图所示。设计一个用于设置字体属性的程序，界面如图所示。2020/12/11261.1.用途用途 时钟控件（时钟控件（Timer）又称计时器、定时器控件，）又称计时器、定时器控件，用于有规律地定时执行指定的工作，适合编写不用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如计需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控时、倒计时、动画等。在程序运行阶段，时钟控件不可见。件不可见。8.4 8.4 时钟时钟2020/12/1127 2.2.属属 性性（1）Interval属性属性 取取值值范范围围在在0 到到 64767 之之间间（包包括括这这两两个个数数值值），单单位位为为毫毫秒秒（0.001秒秒），表表示示计计时时间间隔隔。若若将将Interval属属性性设置为设置为0或负数，则计时器停止工作。或负数，则计时器停止工作。（2）Enabled属性属性 无无论论何何时时，只只要要时时钟钟控控件件的的Enabled属属性性被被设设置置为为True而而且且Interval属属性性值值大大于于0，则则计计时时器器开开始始工工作作（以以Interval属性值为间隔，触发属性值为间隔，触发Timer事件）。事件）。通通过过把把Enabled属属性性设设置置为为False可可使使时时钟钟控控件件无无效效，即计时器停止工作。即计时器停止工作。2020/12/11283.3.方法方法 VB没有为时钟控件提供有关的方法。没有为时钟控件提供有关的方法。4.4.事件事件 时钟控件只能响应时钟控件只能响应Timer事件事件，当，当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，该事件以时，该事件以Interval属性指定属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。中完成。例例 时钟示例。时钟示例。设计一个计时报警程序，开始时窗体上显设计一个计时报警程序，开始时窗体上显示当前时间，单击示当前时间，单击“开始开始”按钮按钮10秒钟后程序结束。秒钟后程序结束。例例 设计一个霓虹灯程序，利用时钟控件模拟霓虹灯的效果。设计一个霓虹灯程序，利用时钟控件模拟霓虹灯的效果。2020/12/11298.6 常用系统对象常用系统对象 在在Visual Basic系统中，提供许多的系统内部对象，用系统中，提供许多的系统内部对象，用户在应用程序中，直接可以调用这些对象。系统对象没有户在应用程序中，直接可以调用这些对象。系统对象没有用户界面。用户界面。8.5 Active控件的添加控件的添加使用工程使用工程 部件菜单部件菜单2020/12/1130Clipboard 对象对象 Clipboard 对对象象用用于于操操作作剪剪贴贴板板上上的的文文本本和和图图形形。它它使用户能够复制、剪切和粘贴应用程序中的文本和图形。使用户能够复制、剪切和粘贴应用程序中的文本和图形。所所有有Windows 应应用用程程序序共共享享 Clipboard 对对象象，当当切切换换到到 其其 它它 应应 用用 程程 序序 时时，剪剪 贴贴 板板 内内 容容 会会 改改 变变。因因 此此Clipboard（剪剪贴贴板板）对对象象提提供供了了应应用用程程序序之之间间信信息息的的传传递。递。Clipboard 对对象象它它没没有有属属性性和和事事件件，仅仅提提供供6个个常常用用的的方法。方法。2020/12/1131Clipboard 对象的常用方法对象的常用方法：1Clear方法方法 在在复复制制信信息息到到剪剪贴贴板板之之前前，应应使使用用Clear方方法法清清除除Clipboard对象中的内容，使用格式如下：对象中的内容，使用格式如下：Clipboard.Clear2SetText方法方法使使用用SetText方方法法将将字字符符串串数数据据按按指指定定格格式式存存入入剪剪贴贴板板中中，使用格式如下：使用格式如下：Clipboard.SetText ,其参含义见教材其参含义见教材Pg.2112020/12/11323GetText方法方法使用此方法从剪贴板中获得一字符串。其语法格式为：使用此方法从剪贴板中获得一字符串。其语法格式为：Clipboard.GetText（）例例如如，要要将将剪剪贴贴板板上上的的文文字字粘粘贴贴到到文文本本框框插插入入点点所所在在处处或或替换选中的内容，则可使用如下语句：替换选中的内容，则可使用如下语句：Text1.SelText=Clipboard.GetText()2020/12/11334SetData方法方法将将图图形形数数据据保保存存到到剪剪贴贴板板上上，要要使使用用SetData方方法法，其其使使用用语语法格式为：法格式为：Clipboard.SetData data,format其中，其中，data参数是必需的参数是必需的。为要放到。为要放到 Clipboard 对象中的图形对象中的图形数据。数据。format参数是可选的参数是可选的。一个常数或数值，用来指定图片。一个常数或数值，用来指定图片的格式，其取值见表的格式，其取值见表8.15，如果省略，如果省略 format，则由系统自动，则由系统自动决定图形格式。决定图形格式。5GetData方法方法用此方法从剪贴板中得到图形，其使用语法格式是：用此方法从剪贴板中得到图形，其使用语法格式是：Clipboard.GetData（format）例例8.142020/12/11346GetFormat方法方法使使用用GetFormat方方法法，检检查查剪剪贴贴板板中中指指定定格格式式的的数数据据存存在在否，它返回一个逻辑值。其语法格式：否，它返回一个逻辑值。其语法格式：Clipboard.GetFormat()例例8.15 使用使用 GetFormat 方法确定剪贴板中是否有方法确定剪贴板中是否有Bmp格式格式数据，如果有将其粘贴到图片框数据，如果有将其粘贴到图片框picture1中。中。Private Sub Form_Click()If Clipboard.GetFormat(vbCFBitmap)Then Picture1.picture=Clipboard.GetData()End ifEnd Sub2020/12/1135立即窗口立即窗口 立即窗口是立即窗口是Visual Basic所提供的全域性所提供的全域性(G1obal)系系统对象之统对象之、称为、称为Debug对象，作为调试之用。此对象除对象，作为调试之用。此对象除了了Print方法外，不具备任何事件和属性。方法外，不具备任何事件和属性。在设计状态在设计状态可以在立即窗口中进行一些简单的命令可以在立即窗口中进行一些简单的命令操作，例如可用操作，例如可用“？”或或Print（两者等价）输出一些表达（两者等价）输出一些表达式的值。式的值。在程序中在程序中，可以使用，可以使用Debug.Print方法方法将要输出的信息将要输出的信息输出到立即窗口中；而若要作为立即之用、只要进入输出到立即窗口中；而若要作为立即之用、只要进入“中断中断”模式便会出现此窗口。模式便会出现此窗口。2020/12/1136PPT教学课件谢 谢 观 看ThankYouForWatching37