《窗体和常用控》PPT课件.ppt

《《窗体和常用控》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《窗体和常用控》PPT课件.ppt（95页珍藏版）》请在三一办公上搜索。

1、1,第4章 窗体和常用控件,4.1 窗体的设计4.2 控件介绍4.3 内部控件4.4 控件数组4.5 综合练习,2,4.1 窗体的设计,4.1.1 窗体的属性4.1.2 窗体的事件4.1.3 窗体的方法4.1.4 窗体的装载、卸载和关闭,3,4.1.1 窗体的属性,设置属性有两种方法：通过属性窗口设置和在程序代码中设置，大部分属性既可以通过属性窗口设置，也可以通过程序代码设置，而有些属性只能由程序代码或属性窗口设置。打开属性窗口有三种方法：,选择“视图”菜单“属性窗口”菜单项。单击F4键或工具栏的按钮。在窗体的任意位置单击鼠标右键，在快捷菜单中选择“属性窗口”。,窗体的属性有很多，按分类序可分

2、为：杂项、外观、位置、行为、字体、缩放和DDE。,（快讲）,4,4.1.1 窗体的属性,常用的杂项属性（1）名称（Name）名称用于设置窗体名称，该名称是在程序代码中使用的。（2）MaxButton和MinButton MaxButton和MinButton属性用于设置窗体显示时是否有最大化和最小化按钮。（3）Icon属性 Icon属性用于设置窗体最小化时显示的图标。单击按钮，选择一个合适的*.ico或*.cur图形文件作为窗体最小化的图标。（4）ControlBox属性 ControlBox属性用来设置窗口控制框的状态。如果 BorderStyle属性设置为0-None，ControlBox

3、属性将不起作用。,5,4.1.1 窗体的属性,2.常用的外观属性（Apperance）（1）Caption Caption属性用于设置窗体显示的标题，默认时为窗体名称即Form1，Form2。窗体和很多控件都有Caption属性。语法：对象.Caption=字符串 例如，在程序中设置Caption属性：Form1.Caption=“第一个窗体”(2)Appearance Appearance属性设置窗体的外观。缺省值为1-3D，表示以三维立体效果描绘出外观，也可设置为0-Flat平面形式。（3）BackColor和ForeColor BackColor和ForeColor属性用于设置对象中文本

4、和图形的背景色和前景色，默认为“按钮表面”颜色。,6,4.1.1 窗体的属性,设置BackColor选项卡所显示的“调色板”和“系统”颜色。,（4）Picture Picture属性设置在窗体中显示的图片。选择一个合适的图形文件，可以选择*.jpg、*.gif、*.bmp、*.ico等格式图形文件。,7,4.1.1 窗体的属性,（5）BorderStyle BorderStyle属性用于设置窗体的边框风格。BorderStyle属性的设置值。,8,4.1.1 窗体的属性,3.常用的位置属性（Position）（1）Left和Top Left和Top属性用于设置窗体的左上角在屏幕的横、纵坐标，即

5、窗体在屏幕上的位置。,（2）Width和Height Width和Height属性用于设置窗体的初始宽度和高度，即窗体的大小。位置属性在第8章中详细地介绍。,4.常用的行为属性（Behavior）（1）VisibleVisible属性用于设置窗体可见（True）或隐藏（False）。,9,4.1.1 窗体的属性,（2）AutoRedraw AutoRedraw属性用于设置窗体显示的信息是否重画。当设置为True，在运行时调整窗体大小或被另一对象遮住后重新显现时窗体会自动重画，默认为False。（3）Enabled Enabled属性用来设置窗体或控件是否响应用户生成的事件。Enabled属性也

6、可以通过程序代码来设置。窗体的Enabled属性默认为True。,10,4.1.1 窗体的属性,5.字体属性（Font）字体属性中只有Font属性用于字体、样式、大小和效果等，单击按钮出现字体对话框，可以选择字体、大小等。Font属性其实是一个属性组合，包含了字体、大小、字体样式等属性成员，如果要在程序运行时改变这些属性值，则必须对各个属性成员分别进行设置。,11,4.1.2 窗体的事件,1.Load事件 Load事件是当装载窗体时触发的。例如，在窗体的Load事件中设置窗体和标签的属性：Private Sub Form_Load()装载窗体 Move 100,100,5000,3000 Ca

7、ption=第一个窗体 Label1.Caption=你好！End Sub注意：将变量的初始化代码或控件的默认值放在其中。Load事件是在窗体显示之前就运行，因此要在窗体上显示的动作则不起作用。如在Load事件中用Print方法显示文本则不起作用。,12,4.1.2 窗体的事件,2.UnLoad事件 UnLoad事件是当卸载窗体时触发，当单击窗体上的“关闭”按钮或使用UnLoad语句时也可以触发该事件。Unload事件过程可以用来当窗体被卸载时确认窗体是否应被卸载，或者指定卸载后要发生的操作。UnLoad事件的参数Cancel 是一个整型数据，用来确定窗体是否从屏幕删除。如果 cancel 为

8、 0，则窗体被删除。将 cancel 设置为任何一个非零的值可防止窗体被删除。,3.Click事件 Click事件是当鼠标单击窗体时触发。在前面几章中Form的Click事件都已使用过。,13,4.1.2 窗体的事件,4.Resize事件 Resize事件是当调整窗体的大小时触发。Resize事件过程一般用来当窗体改变大小时，调整窗体中控件的位置或调整其大小。,5.Activate和DeActivate事件 Activate事件是当一个窗体变成活动窗体时触发的。DeActivate事件是当另一个窗体或应用程序被激活，窗体不再是活动窗口时触发的。,6.Initialize事件 Initializ

9、e事件是当窗体第一次创建时触发，一般将窗体的初始化代码放在其中。Initialize事件是窗体创建状态开始的标志，在Load事件之前触发的。,14,4.1.2 窗体的事件,【例4-1】使用窗体查看窗体事件的触发时刻。Private Sub Form_Activate()激活窗体 MsgBox 正在激活窗体End SubPrivate Sub Form_Click()单击窗体 MsgBox 正在单击窗体End SubPrivate Sub Form_Initialize()初始化窗体 MsgBox 正在初始化窗体End SubPrivate Sub Form_Load()装载窗体 MsgBox

10、正在装载窗体End Sub,（快讲）,15,4.1.3 窗体的方法,1.Show方法调用Show方法与设置窗体Visible属性为True具有相同的效果。语法：对象.show 风格n,2.Hide方法Hide方法用于隐藏窗体，使窗体不可见，但未从内存中清除。,3.Move方法 Move方法用于移动窗体或控件。Move方法可以将窗体向水平、垂直方向移动，也可以改变窗体的宽度和高度。,说明：left、top、width、height为Single型，单位是缇。参数top、width、height可以省略。要指定其它的参数，必须先指定该参数前面的全部参数。left和top是指窗体的左上角离屏幕左上角

11、的距离，width和height是窗体的宽度和高度。,16,4.1.4 窗体的装载、卸载和关闭,1装载窗体语句 装载窗体语句是把窗体（或其他对象）装入内存。语法：Load 对象 当装载窗体时，先把窗体属性设置为属性窗口中设置的初始值，再执行 Load 事件。,2.卸载窗体语句 卸载窗体语句是把窗体或其他对象从内存中卸载。语法：Unload 对象 窗体在卸载前将触发对象的Unload事件。如果卸载的对象是程序唯一的窗体，则将终止程序的执行。,17,4.1.4 窗体的装载、卸载和关闭,例如：Unload Me注意：Me是系统保留字，表示当前窗体。Load、Unload事件与Load、Unload方

12、法的区别是在系统装载和卸载窗体时自动触发事件，Load、Unload方法会触发Load、Unload事件。,3.End语句 End语句用于在程序代码中结束应用程序的运行。语法：End End语句不顾现存窗体或对象的状态而使应用程序立即结束。,【例4-2】设计一个窗体，测试其属性、方法和事件。界面设计：窗体放置一个标签label1和命令按钮Command1。,18,4.1.4 窗体的装载、卸载和关闭,窗体和标签的属性设置如表所示。,程序代码如下：Private Sub Form_Load()装载窗体 AutoRedraw=True Command1.Caption=退出 Label1.Capti

13、on=欢迎使用学生信息管理系统End SubPrivate Sub Form_Click()单击窗体 Move 1000,1000 Print 移动窗体到(1000,1000)位置End Sub,19,4.1.4 窗体的装载、卸载和关闭,Private Sub Form_Resize()调整窗体大小 Label1.Move 100 将标签放置在窗体100的位置End Sub,Private Sub Command1_Click()单击按钮 EndEnd Sub,20,4.1.4 窗体的装载、卸载和关闭,Private Sub Form_Unload(Cancel As Integer)卸载窗体

14、 Dim Answer As Integer Label1.Caption=再见!Answer=MsgBox(正在卸载窗体，是否确定？,vbOKCancel,卸载窗体)If Answer=1 Then Cancel=0 Else Cancel=1 End IfEnd Sub,21,4.1.4 窗体的装载、卸载和关闭,窗体的运行界面如图所示，卸载窗体的运行界面如图所示。,程序分析：装载窗体时触发Load和Resize事件，标签显示“欢迎使用学生信息管理系统，并移动标签。当单击窗体时触发Click事件，移动窗体并用Print方法显示文本。当单击最大化按钮时触发Resize事件，移动标签。当单击关闭

15、按钮时触发Unload事件，标签显示“再见！”当单击按钮Command1时，立即结束程序，关闭窗口。,22,4.2 控件介绍,4.2.1 控件的分类4.2.2 控件的通用特性4.2.3 使用With结构4.2.4 编辑器设置4.2.5 对象浏览器,23,4.2.1 控件的分类,VB的控件分为内部控件、ActiveX控件和可插入对象。,1.内部控件,部控件是由VB本身提供的控件，也称为常用控件，内部控件是在控件箱中默认出现的控件，不能从控件箱中删除。,（快讲）,24,4.2.1 控件的分类,2.ActiveX控件 ActiveX控件是VB控件箱的扩充部分，是扩展名为.ocx的文件。包括各种版本和

16、仅在专业版和企业版中提供的控件，还包括许多第三方软件厂商提供的ActiveX控件。ActiveX控件在使用之前必须添加到控件箱中，添加步骤如下：（1）用鼠标右键单击控件箱，出现快捷菜单。,25,4.2.1 控件的分类,（2）选择快捷菜单的“部件”菜单项，就会出现部件选项卡。（3）在“控件”选项卡中单击控件复选框来选择需要添加的ActiveX控件。（4）单击“确定”按钮，在窗体的控件箱中就出现了添加的控件，然后就把它拖到窗体中任一位置。,26,4.2.1 控件的分类,3.可插入对象 插入对象是由其他应用程序创建的对象，利用可插入对象就可以在VB应用程序中使用其他应用程序的对象。,27,4.2.2

17、 控件的通用特性,1名称（Name）属性 每个控件都有名称属性，用于设置控件的名字。创建控件时，新对象的默认名字由对象类型加上一个唯一的整数组成。,2控件的值属性 所有的控件都有一个与控件值有关的属性，称为值属性或默认属性。例如，TextBox控件的Text属性，Label控件的Caption属性和PictureBox控件的Picture属性都是值属性。,28,4.2.2 控件的通用特性,3焦点（focus）在界面上窗体以及窗体上的控件有很多，也只能有一个对象能够接受键盘的操作，则称为具有焦点，而其他不能接受键盘输入的对象称为不具有焦点。,（1）接受焦点的控件 一个对象Enabled和Visi

18、ble属性均为True时，才能接收焦点。框架(Frame)、标签(Label)、菜单(Menu)、直线(Line)、形状（Shape)、图像框(Image)和定时器(Timer)控件都不能接受焦点。,29,4.2.2 控件的通用特性,（2）将焦点赋给对象 下列方法可以将焦点赋给对象：运行时用鼠标选择对象。运行时用快捷键选择对象。运行时按Tab键将焦点移到对象上。在代码中用SetFocus 方法。,（3）焦点事件与焦点有关的事件有：GotFocus事件：当对象具有焦点时，会产生GotFocus事件。LostFocus事件：对象失去焦点时，将产生LostFocus事件，是在焦点移走后触发的。,30

19、,4.2.2 控件的通用特性,（4）焦点属性与焦点有关的属性有：TabIndex 属性：对象的 TabIndex 属性决定了它在Tab键中的顺序，从0开始。第一个建立的控件其TabIndex值为0，第二个的TabIndex值为1，依此类推。TabStop属性：TabStop属性是指定焦点是否在对象上停留，默认为True，将控件的TabStop属性设为False，则在用Tab键移动焦点时就会跳过该控件，仍保持其在TabIndex中的顺序。,31,4.2.2 控件的通用特性,查看各控件的TabIndex属性分别为03，标签Label1没有TabStop属性，其余三个控件的TabStop属性都为Tr

20、ue。,【例4-3】在窗体上依次建立了4个控件，一个标签Label1，一个文本框Text1和两个按钮Command1、Command2。,32,4.2.2 控件的通用特性,程序代码如下：Private Sub Text1_GotFocus()获得焦点 MsgBox 获得焦点End SubPrivate Sub Text1_LostFocus()失去焦点 MsgBox 失去焦点End Sub,启动工程时，光标位于Text1中，出现消息框显示“获得焦点”。每按一次Tab键，焦点依次向后移动，顺序为Text1 Command1Command2Text1。,33,4.2.2 控件的通用特性,4访问键

21、命令按钮(CommandButton)、复选框(CheckBox)和选项按钮(OptionButton)都可以有访问键。访问键的设置是在控件的Caption属性中用“&”字符加在访问字符的前面。例如，设置按钮的“Caption”属性为“关闭(&c)”，若按钮的“Caption”属性为“&Close”则显示如图所示。,34,4.2.2 控件的通用特性,5容器 窗体(Form)、框架(Frame)和图片框(PictureBox)等都可以作为其他控件的容器。例如，在窗体中的文本框的Left和Top属性值是指文本框在窗体中的位置，而窗体的Left和Top属性值是指窗体在屏幕的位置。,35,4.2.3

22、使用With结构,With结构用于对一个对象执行一系列的语句时，可以不用重复写该对象的名称。语法：With 对象语句块End With With和End With必须配对。当程序一旦进入With块，对象就不能改变，但With块可以嵌套。,36,4.2.3 使用With结构,例如，要改变文本框Text1的多个属性，在With结构中进行属性的赋值如下：With Text1.Left=2000.Width=2000.Text=你好！End With,37,4.2.4 编辑器设置,选择“工具”(Tools)菜单中的“选项”菜单项，就会出现“编辑器”选项卡，如图所示。,（自学）,38,4.2.4 编辑器

23、设置,自动语法检测：决定当键入一行代码后，VB是否自动校验语法的正确性。要求变量声明：决定模块中是否需要明确的变量说明。将“Option Explicit”语句添加到任何新模块声明中去。自动列出成员：决定是否列出相应对象的属性等信息。,39,4.2.4 编辑器设置,自动快速信息：决定是否显示关于函数及其参数的信息。自动数据提示：当调试在中断时，光标停留在代码编辑窗口的变量或对象上是否显示该变量的值或对象的属性。自动缩进：对前一行代码移动制表符，回车后所有后续行都将以该制表符为起点。Tab 宽度：设置制表符宽度，其范围可以从132 个空格；缺省值是 4 个空格。,40,4.2.5 对象浏览器,显

24、示出对象库以及工程里过程中的可用类、属性、方法、事件和常数变量。,选择“视图”菜单“对象浏览器”菜单项，或者单击工具栏中的按钮打开对象浏览器，如图所示。,（自学）,41,4.2.5 对象浏览器,对象浏览器右侧成员列表中有几种图标：对象的事件。对象的方法。对象的属性。,步骤：在“工程/库”框中选择各种库或工程。在“搜索文本框”中输入要搜索的对象或类。单击搜索按钮，就会出现搜索结果。,42,4.3 内部控件,4.3.1 标签、文本框和命令按钮4.3.2 框架、选项按钮和复选框4.3.3 列表框和组合框4.3.4 图像框和图片框4.3.5 滚动条和定时器4.3.6 文件系统控件,43,4.3.1 标

25、签、文本框和命令按钮,1标签（Label）标签控件用于显示不能编辑的文本信息，在运行时不能由用户输入，一般用于在窗体上进行文字说明。,（1）常用属性,44,4.3.1 标签、文本框和命令按钮,为六个标签排成三行两列，每行标签的Alignment属性分别为0、1、2，每列标签的BorderStyle属性分别为0、1。,（2）事件和方法 标签的事件和方法很多，但是由于它一般用于注释说明，所以很少使用事件。,45,4.3.1 标签、文本框和命令按钮,2.文本框（TextBox）文本框用于接受用户输入的信息或显示系统提供的文本信息，用户可以在文本框中编辑文本。（1）常用属性 Text：文本框中显示的内

26、容，也可以在运行时由用户输入。Alignment：文本框中文本的对齐方式（同标签）。MultiLine：设置是否可输入多行文本。True为可输入多行 文本，默认False只能输入一行文本。MultiLine是只读属性。ScrollBars：设置是否含滚动条。0(None)为不含滚动条（默认）1(Horizontal)为含水平滚动条 2(Vertical)为含垂直滚动条 3(Both)为含水平和垂直滚动条,46,4.3.1 标签、文本框和命令按钮,Locked：设置用户是否能编辑文本框中的文本。True为锁定指不能编辑文本框中的文本，默认为False指可以编辑文本。MaxLength：设置运行时

27、可以输入的最大字符数，为整型数值。PasswordChar：用于设置文本框中输入字符的显示，即是否为口令框，默认值为空字符显示输入的文本，如果为非空字符（如*），则每输入一个字符就在文本框中显示一个该字符，但Text属性接受的仍然是文本。【例4-4】创建一个用户登录界面，输入用户名和口令，判断是否是合法用户。界面设计：由两个标签（Label1、Label2）、两个文本框（Text1、Text2）和一个按钮Command1组成。,47,4.3.1 标签、文本框和命令按钮,控件的属性设置如表所示。则运行界面如图所示。,功能要求：正确的用户名和密码是在Text1中输入“Guest”和在Text2中输

28、入“888888”。,48,4.3.1 标签、文本框和命令按钮,程序代码如下：Private Sub Command1_Click()单击确定按钮 If Text1=Guest And Text2=888888 Then MsgBox 欢迎使用本系统！,vbOKOnly,输入 Else MsgBox 对不起，你不是本系统用户！,vbOKOnly,输入 End IfEnd Sub程序分析：“Text1=Guest”使用了文本框的值属性。,49,4.3.1 标签、文本框和命令按钮,（2）方法SetFocus方法：设置焦点，将焦点强制设置到文本框上。Refresh方法：用于刷新文本框的内容。（3）事

29、件 Change事件：当文本框内容发生变化时触发，可以用来同步各控件的数据。GotFocus事件：当文本框获得焦点时触发。LostFocus事件：当文本框失去焦点时触发，可以用来检查文本框输入内容的合法性。,50,4.3.1 标签、文本框和命令按钮,3.命令按钮（Command）（1）常用属性 Caption属性：用设置命令按钮的显示文字。最长255个字符，如按钮的大小无法显示过多字符，字符会被截去。Style属性：用于设置按钮的外观是标准按钮还是图形按钮。默认为0（Standard）表示标准按钮，1（Graphical）为自定义图片的图形按钮，然后需要设置Picture属性的图形。Defau

30、lt属性：设置该按钮是否为默认按钮。True是默认按钮，则按回车键就相当于单击此按钮。默认为False表示不是默认按钮。,51,4.3.1 标签、文本框和命令按钮,Cancel属性：设置该按钮是否为取消按钮。True是取消按钮，按Esc键就相当于单击此按钮，默认为False表示不是取消按钮。Value属性：设置按钮是否被单击，默认为False没有被单击，设置为True表示单击该按钮并触发Click事件。设计时不可用。命令按钮的值属性（默认属性）。（2）方法按钮控件的常用方法有SetFocus。,52,4.3.1 标签、文本框和命令按钮,（3）事件按钮控件最基本的事件是Click，以下情况都可产

31、生Click事件：在按钮上单击鼠标。焦点在按钮上时按空格键或回车键。在代码中将按钮的Value属性设置为True。对于默认按钮按回车键，对于取消按钮按Esc键。在Caption属性中用&符号连接一访问键，在运行时按“Alt+访问键”。例4-5（P97）,53,4.3.2 框架、选项按钮和复选框,1.框架控件（Frame）框架控件的作用是将其他控件组合在一起，当作其他控件的容器。框架控件一般用于将窗体中的许多控件按功能分成若干组，当框架移动时，其中的控件也跟着移动。(1)常用属性Caption属性：框架的标题名称，可以包含访问键。默认为Frame1，Frame2，当设置为空时，框架就显示为闭合的

32、框。Enabled属性：是否为活动状态。默认True表示活动状态；False为非活动状态，框架内所有控件都不能使用，标题显示为灰色。(2)常用事件框架控件的主要事件是Click。,54,4.3.2 框架、选项按钮和复选框,2.选项按钮（OptionButton）选项按钮用于从一组选项按钮中选取其一，又称为单选按钮。用Frame框架将选项按钮分组，一组选项按钮是相关而且互斥的。(1)常用属性Value属性：设置选项按钮的选中状态。默认为False表示未被选中；True表示被选中，则其他选项的Value属性自动为False。Enabled属性：设置选项按钮是否有效。默认为True表示有效；Fals

33、e为无效则选项按钮禁止使用，显示为灰色。Style属性：设置单选按钮的样式，默认为0表示标准样式，1为图形样式。Picture属性：设置单选按钮要显示的图形。该属性只有在Style属性值为1时有效。,55,4.3.2 框架、选项按钮和复选框,3.复选框（CheckBox）复选框与选项按钮不同，可以从一组复选框中同时选中多个选项。（1）常用属性 Value属性：设置选项按钮的选中状态。默认为0（Unchecked）表示未被选中；1（Checked）表示选中；2（Grayed）表示暂时不能访问，显示为灰色。Alignment属性：设置复选框在标题 Caption的左边还是右边。默认为0（Left

34、Justify）表示在标题的左边；1（Right Justify）表示在标题的右边。（2）常用事件复选框的主要事件也是Click。例4-6（P99）,56,4.3.3 列表框和组合框,列表框（ListBox）列表框用于列出可供用户选择的项目列表，用户可以从中选择一个或多个列表项。（1）常用属性,57,4.3.3 列表框和组合框,（2）常用事件 列表框的主要事件有Click（单击）和DblClick（双击）。（3）常用方法 列表框控件常用的方法有AddItem、Clear、RemoveItem方法。AddItem方法用于在程序代码中添加列表项。语法：对象.AddItem 列表项,索引例如，在籍贯

35、省份列表框List1的第三个位置后插入“辽宁省”：List1.AddItem 辽宁省,3程序分析：有索引时，则在索引指定的位置插入，索引是从0开始的；省略索引时，在列表框的最后插入新列表项。,58,4.3.3 列表框和组合框,RemoveItem方法：RemoveItem方法用于删除指定的列表项。语法：对象.RemoveItem 索引例如，在籍贯省份列表框List1中删除索引为3的列表项：List1.RemoveItem 3Clear方法：用于删除所有列表项。对象.Clear例4-7（P102）,59,4.3.3 列表框和组合框,2.组合框（ComboBox）组合框是文本框和列表框的组合。它兼

36、有列表框和文本框的功能，用户既可以从文本框输入和修改文本，也可以从列表框中选择下拉的列表项。（1）常用属性：style属性0（默认）为下拉组合框，由一个文本框和一个下拉列表框组成，用户既可以在文本框中输入也可单击列表框来选择列表项，当组合框获得焦点时，按Alt+键来打开列表框。1.为简单组合框，由一个文本框和一个标准列表框组成，列表框下拉项是一直显示在屏幕上，列表框可以有垂直滚动条。2.为下拉列表框，不允许用户输入文本，只能从下拉列表框选择。Text属性为只读属性不能设置。,60,4.3.3 列表框和组合框,组合框用来输入系别，Style属性分别设置为0，1和2时运行时的显示。,组合框的常用属

37、性中Text、List、ListIndex、ListCount、Sorted等与列表框（ListBox）相同。（2）常用事件和方法 组合框的事件和方法与列表框基本相似。例4-8（P105）,61,4.3.4 图像框和图片框,图像框（Image）和图片框（PictureBox）都是用于显示图形，可以显示.bmp、.ico、.wmf、.jpg、.gif等图形文件。图像框主要用于显示静态的图像。图片框不仅可以显示图像，还可以作为其他控件的容器，也可以用Print语句显示文本或用绘图方法在图片框绘图，甚至可以显示简单的动画。1Picture属性 Picture属性用于设置在图像框和图片框中要显示的图像

38、文件名。在设计时，单击Picture属性的按钮，选择各种图形文件；在运行时调用LoadPicture函数来设置。例如：Picture1.Picture=LoadPicture(c:WindowsCiban.bmp),62,4.3.4 图像框和图片框,2.图片框的Align属性Align属性用于设置图片框在窗体中的显示方式：0（默认）为无特殊显示；1为与窗体一样宽，位于窗体顶端；2为与窗体一样宽，位于窗体底端；3 与窗体一样高，位于窗体左端；4为与窗体一样高，位于窗体右端。,3.图片框的AutoSize属性 图片框PictureBox的AutoSize属性用于确定图片框如何与图像相适应：Fals

39、e（默认）为保持原始尺寸，当图形比图片框大时，超出的部分被截去。True为图片框根据图形大小自动调整。,63,4.3.4 图像框和图片框,4.图像框的Stretch属性 图像框Image的Stretch属性用于确定图像框如何与图像相适应：False（默认）为图像框将适应图像的大小。True为图像将适应图像框的大小，可能使图像变形；如图是Image控件的Stretch属性不同时的显示，设计时左右的图像框大小相同。左边的图像框Stretch属性为False，图像框随图像大小发生变化；右边的图像框Stretch属性为True，图像大小随图像框发生变化。,64,4.3.5 滚动条和定时器,1滚动条 滚

40、动条控件包括水平滚动条（HscrollBar）和垂直滚动条（VscrollBar），水平滚动条和垂直滚动条都是用于滚动内容，方向不同但动作相同。滚动条一般是放置在窗体的边缘，用来提供滚动窗口的功能。滚动条也是一种很好的“模糊”输入装置，当用户不需要输入精确数据时，使用滚动条控件可以给出一个大概的范围，而且还可以清楚地看到当前显示内容占总内容的比例。,65,4.3.5 滚动条和定时器,（1）常用属性 垂直滚动条的值从上向下递增，最上端代表最小值（Min），最下端代表最大值（Max）。水平滚动条的值从左向右递增，最左端代表最小值，最右端代表最大值。,66,4.3.5 滚动条和定时器,(2)事件Sc

41、roll：拖动滚动框时触发，用于跟踪滚动条的动态变化。Change：单击滚动条或滚动箭头以及释放滚动框时触发。可以用来得到滚动条的最终位置。【例4-9】使用滚动条来改变文本框的背景色。（P108）,67,4.3.5 滚动条和定时器,2、定时器定时器用于间隔一定时间触发事件，运行时它不可见。可以实现简单的动画。（1）常用属性定时器最重要的属性是Interval，用于设置定时器事件之间的时间间隔，单位为毫秒，取值在065767之间。如果设置为0，则表示定时器无效。（2）事件 定时器只支持Timer事件，当达到Interval属性规定的时间间隔就触发该事件。,68,4.3.5 滚动条和定时器,【例4

42、-10】使用定时器实现标签文字的动画显示。功能要求：使用一个标签（Label1）显示文字，使用一个定时器Timer1，每隔0.1秒右移标签产生动画效果。属性设置如表所示。,69,4.3.5 滚动条和定时器,程序代码如下：Private Sub Command1_Click()单击按钮开始显示动画文字 Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()移动标签 If(Form1.Width-Label1.Left)100 Then 当超过窗体屏幕时Label1.Move Label1.Left+100 Else Label1.Move 0 E

43、nd IfEnd Sub,运行界面如图所示。,程序分析：定时器Timer1的Interval设置为100毫秒即0.1秒。定时器运行时不可见。,70,4.3.6 文件系统控件,文件系统控件包括驱动器列表框、目录列表框和文件列表框。文件系统控件可以单独使用，也可以组合使用。,(1)驱动器列表框（DriveListBox）驱动器列表框用于选择一个驱动器，是一个下拉列表框。,(2)目录列表框（DirListBox）目录列表框显示一个磁盘的目录结构。显示从根目录起所有子目录，子目录相对上一级被缩进。默认为当前VB所在的目录。(3)文件列表框（FileListBox）,（自学）,71,4.3.6 文件系统

44、控件,1常用属性(1)DriveListBox控件的Drive属性 DriveListBox控件的Drive属性用于指定出现在驱动器列表框顶端的驱动器，可以通过单击驱动器列表框，也可以在程序代码中通过改变Drive属性来设置驱动器。(2)Path属性 DirListBox控件和FileListBox控件都有Path属性，只能在程序代码中设置。语法：对象.Path=路径 DirListBox的Path属性用来设置当前目录路径，FileListBox的Path属性用来设置文件的路径。(3)FileListBox控件Pattern属性 FileListBox控件的Pattern属性用来设置FileL

45、istBox中要显示的文件种类。,72,4.3.6 文件系统控件,（4）ListIndex属性 这三种文件系统控件都有ListIndex属性，用来设置或返回当前控件上所选择项目的索引值。驱动器列表框和文件列表框中当前的第一项索引值为0，下拉列表的第二项索引值为1，依此类推，文件列表框中如果没有文件显示则ListIndex属性为-1。,73,4.3.6 文件系统控件,目录列表框当前指定的目录为打开的子目录，则索引值为-1，紧邻其上的目录索引值为-2，依此类推到最高层目录，相应的当前目录的第一级子目录的索引值为0,74,4.3.6 文件系统控件,2常用的事件（1）Change事件 DriveLis

46、tBox和DirListBox控件都有Change事件，DriveListBox的Change事件是当选择驱动器或修改Drive属性时触发的。DirListBox控件的Change事件是当双击目录列表框选择目录或修改Path属性时触发的。,通过DriveListBox 和DirListBox控件的Change事件来实现关联：Private Sub Drive1_Change()改变驱动器 Dir1.Path=Drive1.DriveEnd SubPrivate Sub Dir1_Change()改变目录 File1.Path=Dir1.PathEnd Sub,75,4.3.6 文件系统控件,（

47、2）FileListBox控件的PathChange事件 FileListBox控件的PathChange事件是当设置文件名或修改Path属性时触发的。,3常用语句（1）ChDrive语句用于设置当前驱动器。语法：ChDrive 驱动器 例如，自动实现当前驱动器的同步：Private Sub Drive1_Change()改变当前驱动器 ChDrive Drive1.Drive End Sub（2）ChDir语句设置当前工作目录。语法：ChDir 路径,【例4-11】用DriveListBox、DirListBox和FileListBox控件组合起来组成文件管理系统，并在图片框中显示所选择的图

48、形文件。,76,4.3.6 文件系统控件,界面设计：在窗体界面中使用三个文件系统控件（Drive1、Dir1、File1）；使用一个框架（Frame1）和一个图片框Picture1）显示图形文件。运行界面如图所示。,功能要求：三个文件系统控件（Drive1、Dir1、File1）进行关联实现文件管理；,程序代码如下：Private Sub Dir1_Change()改变目录 File1.Path=Dir1.Path File1.Pattern=*.bmp;*.wmf;*.ico 设置显示的文件类型End Sub,77,4.3.6 文件系统控件,Private Sub Drive1_Change

49、()改变驱动器 Dir1.Path=Drive1.DriveEnd Sub,Private Sub File1_Click()Frame1.Caption=File1.FileName 显示文件名 装载图片框的图形文件 Picture1.Picture=LoadPicture(File1.Path&File1.FileName)End Sub,程序分析：文件列表框File1的Pattern属性为图片框可显示的图形文件类型“*.bmp”、“*.wmf”和“*.ico”，文件类型用分号（;）间隔。文件路径和文件名中应加“”。,78,4.4 控件数组,控件数组是一组具有相同名称、类型和事件过程的控件

50、。一个控件数组至少应有一个元素，元素的个数最多可达32767。同一控件数组中的元素可以设置不同的属性值。,1在设计时创建控件数组在设计时有三种方法可以创建控件数组：（1）将相同名字赋予多个控件。在属性窗口中将相同名字赋予多个控件。例如，创建含有两个文本框的控件数组，使用相同的名称Text1。创建控件数组的步骤如下：先创建第一个文本框Text1；然后创建第二个，系统自动将第二个文本框名称设置为Text2。,（自学）,79,4.4 控件数组,在属性窗口中将Text2改为Text1，出现图434对话框，单击按钮“是”，系统自动设置第一个文本框的Index属性值为0，第二个文本框的Index属性值为1