常用控件与系统对象.ppt

《常用控件与系统对象.ppt》由会员分享，可在线阅读，更多相关《常用控件与系统对象.ppt（48页珍藏版）》请在三一办公上搜索。

1、第八章 常用控件与系统对象,本章内容及要求：1.掌握常用控件单选钮(OptionButton)、检查框(CheckBox)、框架(Frame)、滚动条(ScrollBar)、列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用、属性、重要事件和方法的使用；2.了解一些常用的ActiveX控件（高级控件）的使用。3.了解一些常用系统对象的使用。,本章重点：常用控件单选钮、检查框、框架、滚动条、列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用 属性、重要事件和方法的使用；,本章难点：ActiveX控件（高级控件）的使用。一些常用系统对象的

2、使用。,8.1 单选钮、检查框及框架,8.1.1单选钮 1 用途 单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。,单选按钮,2.重要属性（1）Caption：文本标题。设置单选钮的文本注释内容。（2）Alignment属性：0：Left Justify(缺省设置)控件钮在左边，标题显示在右边。1：Right Justify 控件钮在右边，标题显示在左边。（3）Value 属性,True:单选钮被选定False:单选钮未被选定（缺省设置）,（4）Sty

3、le 属性 0-Standard：标准方式 1-Graphical：图形方式,说 明：在Style属性设置为1时，可使用 Picture 属性（未选定时的图标或位图）、DoWnPicture属性(选定时的图标或位图)、DisabledPicture属性（禁止选择时的图标或位图）,3 方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。,4 事件 Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Clic

4、k事件过程，因为当用户单击单选钮时，它会自动改变状态。例8.1 单选钮示例（Pg.185）。,8.1.2 检查框,1 用途 检查框（CheckBox）也称作复选框、选择框。一组检查框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示，而清除此选项后，消失。,2.重要属性 Caption、Alignment、Style与单选钮相同,检查框的Value 属性与单选按钮不同，其值为数值型数据，可取0,1,2,检查框与单选按钮Value 属性的比较,3 方法 检查框也可使用SetFocus方法来改变其Value属性值，其

5、用法与要求同单选钮。每调用一次SetFocus方法就会触发一次Click事件。,4 事件 Click事件是检查框控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value属性值的改变遵循以下规则：单击未选中的检查框时，Value属性值变为0；单击已选中的检查框时，Value属性值变为1；单击变灰的检查框时，Value属性值变为0。,框架(Frame),Frame 控件为控件提供可标识的分组。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把 OptionButton 控件分成几组，如下形式。,框架内控件的创建方法：为了将控件分组，首先需要绘制

6、 Frame 控件，然后绘制 Frame 里面的控件。这样就可以把框架和里面的控件同时移动。如果在 Frame 外部绘制了一个控件并试图把它移到框架内部，那么控件将在 Frame 的上部，这时需分别移动 Frame 和控件方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上工具的自动方式。方法2：将控件“剪切”(Ctrl+X)到剪贴板，然后选中框架，使用(Ctrl+V)命令粘贴到框架内。,重要属性1.Caption属性：框架标题2Enabled属性：缺省为True False：标题呈灰色，不允许对框架内的所有对象进行操作。3.Visib

7、le属性：True：框架及其控件可见。False：框架及其控件被隐含起来。事件：框架可以响应的事件Click、DblClick一般不需要有关框架的事件过程。例8.2 单选钮、检查框及框架用法示例。Pg.187,8.2 滚动条(ScrollBar),1 用 途 滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。,2.属性(1)Value 滑块所处位置所代表的值。(2)Max：最大值-32,76832,767(3)Min：最小值-32,768

8、32,767(4)SmallChange 最小变动值，单击箭头时移动的增量值。(5)LargeChange 最大变动值，单击空白处时移动的增量值。,4 事件（1）Change事件 滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。（2）Scroll事件当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件 Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。,例8.3 滚动条示例。设

9、计一个程序进行坐标设置 教材Pg.190,例8.4 滚动条示例。设计一个用于设置字体颜色的程序.,8.3 列表框与组合框,一、用途 列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数，VB会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：,组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。,二、主要属性1List、ListCount

10、和ListIndex属性,这3个属性只能在程序代码中设置：List：字符型数组，存放列表框的项目数据，下标是从0开始的。例如：List(0)表示第一项（Listindex=0)的内容 ListIndex：为整型值，选中的项目的序号，没有项目选中时为-1。ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。,2Style属性 该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的，见表8.5和表8.6。,例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Styl

11、e属性分别设置为0、1和2。,3MultiSelect属性 用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。,表8.7 MultiSelect 属性设置值及含义,4Selected属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与List属性相同。例如：List1.Selected（0）=True表示列表框List1的第一个项目被选中，此时ListIndex的值设置为0。Selected属性在设计时是不可用的，即无法在属性窗口中设置属性值。,5NewInd

12、ex属性 返回最近加入列表框控件或组合框控件的项目的索引。如果在列表中已没有项目或删除了一个项目，该属性将返回-1。,6TopIndex属性 返回或设置一个值，该值指定哪个项被显示在列表框控件或组合框控件顶部的位置。该属性取值范围从0到ListCount-1，在设计时不可用。7Sorted属性返回一个逻辑值，当Sorted属性为True时列表框控件或组合框控件的项目自动按字母表顺序（升序）排序，为False时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。8Text属性 对于下拉式组合框与简单组合框，Text属性返回编辑区域中的文本。对于列表框控件或下拉列表框，Te

13、xt属性的返回值总与List（ListIndex）的值相同。,方法1AddItem方法 用于将项目添加到列表框控件或组合框控件。语法格式：对象名.AddItem item,index 其中：item:为字符串表达式，表示要加入的项目。Index:决定新增项目的位置，缺省，则添加在最后。2RemoveItem方法用于从列表框控件或组合框控件中删除一项。语法格式：对象名.RemoveItem index 对index参数的规定同AddItem方法。,3Clear方法 用于清除列表框控件或组合框控件中的所有项目。语法格式：对象名.Clear例如，要删除列表框（List1）中所有项目，可使用：List

14、1.Clear,例如，要删除列表框（List1）中所有选中的项目，可使用下面的程序段：,i=0Do While i=List1.ListCount-1 If List1.Selected(i)=True Then List1.RemoveItem i End If i=i+1,4、事件（1）Click事件当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。（2）DblClick事件当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。（3）Cha

15、nge事件当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。,例8.5 列表框示例。设计一个畅销书排行榜程序。用户界面如右图。,例8.6 组合框示例。设计一个用于设置字体属性的程序，界面如右图所示。,1 用途 时钟控件（Timer）又称计时器、定时器控件，用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见。,8.4 时钟,2 属 性（1）Interval属性 取值范围在0 到 64767 之间（包括这两个数值），单位为毫秒（0

16、.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。（2）Enabled属性 无论何时，只要时钟控件的Enabled属性被设置为True而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False可使时钟控件无效，即计时器停止工作。,3 方法 VB没有为时钟控件提供有关的方法。4 事件 时钟控件只能响应Timer事件，当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。,例

17、8.7 时钟示例。设计一个计时报警程序，开始时窗体上显示当前时间，单击“开始”按钮10秒钟后程序结束。,例8.8 设计一个霓虹灯程序，利用时钟控件模拟霓虹灯的效果。,*8.5 ActiveX控件,概念：在VB中除了使用工具箱上的标准控件外，还可以使用微软以及一些第三方厂商开发了许多扩展的高级控件，这些控件被称为ActiveX控件。使用ActiveX控件，首先应把需要使用的ActiveX控件添加到工具箱中。ActiveX控件文件的类型名为.ocx，一般情况下ActiveX 控件被安装和注册在 WindowsSystem 或 System32 目录下。,执行“工程”菜单中的“部件”命令，打开“部件

18、”对话框，该对话框中列出当前系统中所有注册过的ActiveX 控件、可插入对象和ActiveX设计器。,8.5.1 UpDown控件,UpDown控件位于Microsoft Windows Common Controls-2 6.0部件中，其添加到工具箱后的图标为。UpDown控件一般与其它控件配套使用，与之配套的控件称为伙伴控件。,属性：,BuddyControl属性 BuddyProperty属性 Value属性 Increment属性 Min和Max属性 Wrap属性,例8.9 UpDown控件示例。,8.5.2 Slider控件,Slider控件位于Microsoft Windows

19、Common Controls 6.0部件中，其添加到工具箱后的图标为。Slider控件包含滑块和可选择性刻度标记，与滚动条控件类似，,Slider控件具有与滚动条控件相类似的基本属性：如Min、Max、SmallChange、LargeChange和Value属性Slider控件的其它属性：（1）TextPosition属性：（2）TickFrequency属性：（3）TickStyle属性：,Slider控件的常用事件为Scroll和Change，其触发条件与滚动条控件相同。,例8.10 Slider控件示例。,8.5.3 ProcessBar控件,ProcessBar控件位于Micros

20、oft Windows Common Controls 6.0部件中，其添加到工具箱后的图标为。ProcessBar控件常用于监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。,ProcessBar控件的属性设置：,例8.11 ProgressBar控件示例,8.5.4 ImageList控件与ImageCombo控件,ImageList控件与ImageCombo控件均位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标分别为 和。ImageList控件不能独立使用，它只是一个向其它控件提供图象的资料

21、中心，运行时不可见。ImageCombo控件是支持图片的组合框，控件列表中的每一项都可以有一幅图片指定给它。,例8.12 ImageList控件与ImageCombo控件示例。,8.5.5 SSTab控件,Style：选项卡样式Tabs：选项卡总数TabsPerRow：每一行选项卡的数目Rows：选项卡总行数TabOrientation：选项卡的位置。ShowFocusRect：决定选项卡上的焦点矩形是否可视。Tab：当前选项卡的序号。序号从0开始，如果Tab为1，则第二个选项卡为当前活动的选项卡。,SSTab控件位于Microsoft Windows Tabbed Dialog Contro

22、l 6.0部件中，其添加到工具箱后的图标为,属性：,*8.6 常用系统对象,在Visual Basic系统中，提供许多的系统内部对象，用户在应用程序中，直接可以调用这些对象。系统对象没有用户界面。,8.6.1 App对象,用途：在应用程序中使用App对象可获得：应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称等信息，以及检查应用程序是否已经运行等。,最常用的属性,例8.13 要限定某用应用程序（*.EXE）必须放在D盘根目录与应用程序同名的文件夹中才能运行。,可在窗体的Load事件中写入如下代码Private Sub Form_Load()If App.EXEName=Mid(App

23、.Path,4)And _Ucase(Mid(App.Path,1,2)=D:Then Exit sub Else End End IfEnd Sub,8.6.2 Clipboard 对象,Clipboard 对象用于操作剪贴板上的文本和图形。它使用户能够复制、剪切和粘贴应用程序中的文本和图形。所有Windows 应用程序共享 Clipboard 对象，当切换到其它应用程序时，剪贴板内容会改变。因此Clipboard（剪贴板）对象提供了应用程序之间信息的传递。Clipboard 对象它没有属性和事件，仅提供6个常用的方法。,Clipboard 对象的常用方法：,1Clear方法在复制信息到剪贴

24、板之前，应使用Clear方法清除Clipboard对象中的内容，使用格式如下：Clipboard.Clear2SetText方法使用SetText方法将字符串数据按指定格式存入剪贴板中，使用格式如下：Clipboard.SetText,其参含义见教材Pg.211,3GetText方法使用此方法从剪贴板中获得一字符串。其语法格式为：Clipboard.GetText（）,例如，要将剪贴板上的文字粘贴到文本框插入点所在处或替换选中的内容，则可使用如下语句：Text1.SelText=Clipboard.GetText(),4SetData方法将图形数据保存到剪贴板上，要使用SetData方法，其使

25、用语法格式为：Clipboard.SetData data,format其中，data参数是必需的。为要放到 Clipboard 对象中的图形数据。format参数是可选的。一个常数或数值，用来指定图片的格式，其取值见表8.15，如果省略 format，则由系统自动决定图形格式。,5GetData方法用此方法从剪贴板中得到图形，其使用语法格式是：Clipboard.GetData（format）,例8.14,6GetFormat方法使用GetFormat方法，检查剪贴板中指定格式的数据存在否，它返回一个逻辑值。其语法格式：Clipboard.GetFormat(),例8.15 使用 GetFo

26、rmat 方法确定剪贴板中是否有Bmp格式数据，如果有将其粘贴到图片框picture1中。Private Sub Form_Click()If Clipboard.GetFormat(vbCFBitmap)Then Picture1.picture=Clipboard.GetData()End ifEnd Sub,8.6.3 Screen对象,Screen对象代表了整个Windows桌面。通过Screen对象，还可以在程序运行期间修改屏幕的鼠标指针。,Screen对象的常用属性,例8.16 打印输出计算机系统中显示器或活动打印机可用的所有字体名，其程序如下：Private Sub Comman

27、d1_Click()Dim I As Integer For I=0 To Screen.FontCount-1 Print Screen.Fonts(I)Next IEnd Sub,8.6.4 Printer对象和Printers集合对象,在VB中，要将处理结果的数据或图形通过打印机输出，就必须使用系统提供的Printer对象和Printers集合对象,1Printer对象,2Printers集合对象,8.6.5 立即窗口,立即窗口是Visual Basic所提供的全域性(G1obal)系统对象之、称为Debug对象，作为调试之用。此对象除了Print方法外，不具备任何事件和属性。,在设计状

28、态可以在立即窗口中进行一些简单的命令操作，例如可用“？”或Print（两者等价）输出一些表达式的值。,在程序中，可以使用Debug.Print方法将要输出的信息输出到立即窗口中；而若要作为立即之用、只要进入“中断”模式便会出现此窗口。,8.6.6 其他系统对象,除了上述对象外，系统还提供了Control对象、Controls集合对象、Form对象、Forms集合对象。关于这些对象的使用，限于篇幅不再展开，读者可以通过系统MSDN帮助获得详细的帮助。先举例说明Control对象、Controls集合对象的使用，Controls集合对象包含窗体上的所有控件，如下程序段是在立即窗口中显示窗体上的所有控件名称：Dim x As ControlFor Each x In Form1.ControlsDebug.Print x.NameNext x,