二章节创建用户界面.ppt

《二章节创建用户界面.ppt》由会员分享，可在线阅读，更多相关《二章节创建用户界面.ppt（67页珍藏版）》请在三一文库上搜索。

1、第二章 创建用户界面,2,掌握窗体的常用属性、事件和方法以及多窗体和 MDI窗体的概念； 掌握常用控件：文本框、标签、命令按钮、列表框、组合框、图片框、单选按钮和复选框的常用属性、事件和方法 ； 掌握菜单的制作和使用方法 。,教学要求,3,2.1 创建窗体 2.2 Visual Basic 的常用控件 2.3 制作菜单,教学内容,4,窗体： 窗体是VB应用程序的基本构造模块，用于创建VB应用程序用户界面或对话框，是包容各种控件对象的容器。 由标题栏、边框以及客户区组成。,2.1 创建窗体,5,2.1.1 窗体的属性、方法与事件 Name（名称）：窗体名称,在程序代码中，被作为对象的标识名，以识

2、别不同的窗体对象，自行命名窗体时，必须以一个字母开头，可包含数字和下划线，不能包含空格和标点符号，长度小于40个字符。 Caption：窗体标题，是出现在窗体标题栏上的文本，缺省使用窗体名。 BackColor与ForeColor：窗体的背景色与前景色 BorderStyle：窗体边框风格。设定值及相关的VB内部常量及不同风格详见下表：,1、常用属性,6,常数 设置值 描述 vbBSNone 0 无（没有边框或与边框相关的元素） vbFixedSingle 1 固定单边框。可以包含控制菜单框， 标题栏和关闭按钮，不能改变尺寸。 vbSizable 2 可调整的边框。可以改变窗体大小。 （缺省值

3、） vbFixedDouble 3 对话框风格的窗体。大小不能改变。 vbFixedToolWindow 4 工具栏风格窗体。大小不能改变。vbSizableToolWindow 5 工具栏风格窗体。大小可变。,BorderStyle属性的六种设置值,7,Enabled：活动属性。缺省值为”True”,当设置为”False”时，窗口及其上控件将不能被访问。 Left、Top、Height和Width：决定窗体位置与大小。Left和Top是窗体左上角的坐标（屏幕左上角为坐标零点）；Height和Width是窗体的高度和宽度，单位均为特维； Font：字体属性，设置窗体上正文字体、字型、字号等；

4、Visible:可见属性。缺省为“ True”;当设置为“False”时，窗体隐藏，注意：此属性只在运行时生效。 Picture:背景图片属性。 Moveable：可移动属性，缺省为True,窗体在运行时可拖动，False时，不能拖动；,窗体常用属性,8,在VB中，有两种设置窗体（或其他对象）属性值的方法。 在设计时，通过属性窗口为其设定各种属性值； 在程序执行过程中改变属性值，即通过程序代码改变属性值 在程序代码中则使用如下格式的代码行来改变属性值： Object . Property = Expression 式中，Object是对象名； Property是属于该对象的某个属性名； Exp

5、ression是为该属性赋予的值,必须和属性类型一致，即属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应是逻辑型。 例： Labe11.Caption =“欢迎学习VB!“ Form1.Enable = False Form1.Caption = Label1.Caption,2.1.2 定制窗体属性,9,窗体的常用方法 Show： 显示方法。 如：form2.Show Hide： 隐藏方法； 如：form2. Hide Move： 移动方法；如：form1.Move left,top,width,height Print： 打印方法； Cls： 清除方法,清除窗体上所有打印的文本或

6、图形 Refresh： 刷新方法；通常窗体的刷新是自动进行的。,方法可使对象执行一个动作或任务。 使用方法的格式是： 对象名.方法 或 对象名.方法Arg1,Arg2,. 后一种方法是带有参数的方法。,窗体的常用方法,10,Private Sub Command1_Click() Dim inchw, inchh inchw = Form1.Width inchh = Form1.Height MsgBox “将窗体移动到屏幕的左上角, 同时尺寸缩小为原来的一半“ Form1.Move 0, 0, inchw / 2, inchh / 2 End Sub,例: 使用Move方法移动一个窗体，重

7、新定位在屏幕左上角，尺 寸缩小一倍。,举例：,11,事件：能够被对象所识别的动作; 当某事件发生了，系统会自动执行其事件过程内的代码 事件过程的一般格式： Private Sub 对象名_事件名（参数表） （程序代码） End Sub 例如：,窗体的常用事件 Click： 单击事件； DblClick： 双击事件； Load： 装载事件； Resize： 在窗体被改变大小时，会触发本事件； Activate： 激活事件，当窗体变为当前窗口时，引发本事件； Deactivate： 失去激活事件，当窗体失去激活状态，即另一个 窗体成为当前窗口时，引发本事件。,Private Sub Form_Cl

8、ick() vb语句 End Sub,窗体常用事件,12,2.1.3 窗体的显示、隐藏、装载和卸载 1、窗体的显示与隐藏 2、装载窗体和Load事件 3、卸载窗体与Unload事件 4、 End 语 句,13,（1） 显示窗体，可在程序中加入以下代码： Formname.Show Style 其中：Formname是要显示的窗体名。 Show方法的Style参数决定窗体是有模式的（vbModel）还是无模式的（vbModeless）。 有模式窗体不允许用户同时与应用程序的其他窗体交互，如Windows程序中的命令执行确认窗口； 无模式窗体则允许用户与一个程序的其他窗口自由交互，如VB环境中的工

9、程、属性和代码窗口等，缺省值是无模式,1、窗体的显示与隐藏,（2）隐藏窗体，可在程序中加入以下代码： Formname.Hide 其中：Formname是要隐藏的窗体名。,14,（1）编写事件过程时，建议不要自行输入程序框架，而应选定对象和事件过程，由系统自动产生框架。 （2）命令按钮1的单击事件名为Command1_Click，命令按钮2的单击事件名为Command2_Click，但对于一个窗体，单击事件过程名为Form_Click，而不是Form1_Click，即窗体的事件过程中的对象名是FORM，而非具体的name属性值。,例：单击窗体1，显示窗体2。 Private Sub Form_

10、Click（） Form2.Show End Sub,注意：,15,2、装载窗体和Load事件 使用装载语句可把窗体（或其他对象）载入内存，但并不显示它。 装载语句的格式是： Load Object 其中：Object是窗体名（对象名） 由于VB应用程序在执行时，会自动装载启动窗体，所以没有必要对启动窗体使用Load语句。 当系统装载窗体时，将引发窗体的Load事件； 在使用Show方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发该窗体的Load事件。,16,3、卸载窗体与Unload事件 使用卸载语句可把窗体（或其他对象）从内存卸载。 卸载语句的格式是： Unload Objec

11、t 其中：Object是窗体名（对象名） 卸载将使该对象的所有属性重新恢复为设计态时设定的初始值；卸载还将引发对象的Unload事件。 如果卸载的对象是程序唯一的窗体，则将终止程序的运行。,一起来看个例子吧！,17,4.End 语句 在程序代码中可使用End语句结束程序运行，形式是： End 执行该语句将终止应用程序的执行，并从内存卸载所有窗体。,18,格式：Object.Print 功能：将输出项显示在窗体或图片框上。 说明：（1）对象名缺省，则输出到窗体上； （2）输出项之间用逗号或分号间隔，若用逗号间隔，则为标准输出；若用分号间隔，则为紧凑输出。,2.1.4 Print方法,Privat

12、e Sub command1_Click() Print 1, 2, 3 Print 1; 2; 3 Print Print “ab“, “cd“ Print “ab;“; “cd;“ End Sub,观察下列Print语句的执行结果。,19,多窗体程序设计 当应用程序中有多个窗体界面时，设计时，同样先新建一个工程，其中有一个窗体form1，然后通过下列步骤，设计多窗体： 1、添加并设计窗体 “工程” “添加窗体”，再依次设计每一个窗体的界面元素以及相应的事件过程； 2、设置启动窗体 “工程” “工程属性”，在“通用”选项卡上，设置“启动对象”。 注意：（1）在启动窗体中，必须要有对其他窗体的

13、引用接口，可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。 （2）多窗体应用程序保存时，先将每一个窗体以一个独立的窗体文件保存，扩展名为.frm，再保存工程文件。 （3）多窗体应用程序打开时，直接打开工程文件，将会把该程序中所有的窗体文件都装载。,20,MDI（多文档界面）窗体 在多窗体应用程序中，一般有一个MDI窗体（框架，父窗体）构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。 创建MDI应用程序的步骤： 1、“工程” “添加MDI窗体”； 2、将应用程序中其它窗体的 MDIchild 属性设置为“True”. 3、将 MDI窗体设置为启动窗体。 注意： 1、一个应用程序中，

14、只有一个MDI窗体； 2、在MDI窗体上，除PictureBox和Timer外，一般不能直接放置其他控件， 3、关闭 MDI窗体，将自动关闭所有打开的子窗体。 4、运行时，子窗体只能在MDI窗体内移动。,举例,21,2.2 Visual Basic的常用控件,2.2.1 概述 2.2.2 常用控件,22,控件名 功能 Pointer指针 用于改变控件大小和位置等 PictureBox图片框 显示图形或图象 Label标签 用于文字说明，显示提示性信息 TextBox文本框 用于字符输入 Frame框架 用于组合控件，将控件分组 CommandButton命令按钮 单击执行命令 CheckBox

15、复选框 用于多项选择 OptionButton选项按钮 用于从多个选项中单选其一 ComboBox组合框 列表框与文本框的组合 ListBox列表框 列出多个选项供选择 H.ScrollBar水平滚动条 产生水平滚动条 V.ScrollBar垂直滚动条 产生垂直滚动条 Timer计时器 用于定时 DriveListBox驱动器列表框 DirListBox文件夹列表框 FileListBox文件列表框 Shape图形 Line线条 Image图象 Data数据控件 OLE控件,基本控件,23,VB通过控件箱提供了这些和用户进行交互的可视化部件，即 控件。,文本框（Text Box） 标签（Lab

16、el） 命令按钮（Command Button） 列表框（ListBox） 组合框（ComboBox） 图象控件（Image）和图片框（PictureBox） 选项按钮（Option Button）、复选框 CheckBox）与框架控件（Frame） 滚动条控件（ HScrollBar和VScrollBar ） 定时器控件(Timer),常用控件,24,1.文本框（Text Box） 功能：用于接收用户在框内输入的字符信息，或显示由程序代码产生的信息。 属性： Name(名称)：文本框的名称， Text：文本属性，该属性值就是用户在文本框输入的内容。(注意：TextBox无Caption属性）

17、 PasswordChar：口令属性。本属性缺省值为空字符串，表示用户由键盘输入的字符，直接在文本框中显示出来；如果该属性值为某个字符，则文本框中输入的内容均显示为该字符，用户看不见实际输入的字符，一般可用于口令输入。（如属性值设为*）,25,MaxLength：最大长度属性。缺省为0，表示本文本框可以接收任意个字符。 MultiLine：多行属性。本属性值若为“真”，则可输入多行文本；否则只能输入一行文本。该属性不能在程序中改变 Scrollbars:在文本框中添加水平和垂直滚动条。 0无 1仅水平滚动条 2仅垂直滚动条 3均有 Alignment:对齐属性，有三种选择 0（缺省值）文本左对

18、齐。 1文本右对齐 2文本居中 Left、 top、 Width、 Height :相对于用户区的左上角位置。,文本框,前提是MultiLine为True,属性：,26,方法： SetFocus：设置焦点，通过本方法可使光标指向指定的文本框。 事件： Change：在文本框的Text属性,即文本的内容发生变 化时，就触发本事件； LostFocus：当光标离开文本框时，引发本事件。 KeyPress:当焦点在文本框，并按下任何标准字符集的按键时会引发本事件。,例：文本框,文本框,例：在窗体1中的文本框中输入口令，单击“判断”按纽，如口令正确，显示窗体2，否则，弹出提示错误窗口，单击“清空”按纽

19、，清除文本框中的口令，并将焦点设置在其中以便下次录入。,28,Private Sub Command1_Click() If Text1.Text = “cpu“ Then form2_2.Show Else MsgBox “sorry! you cant enter the form2!“ End If End Sub,密码设置,清空文本框，设置焦点,Private Sub Command2_Click() Text1.Text = “ Text1.SetFocus End Sub,程序代码,29,Private Sub Text1_KeyPress(KeyAscii As Integer)

20、 If KeyAscii = 13 Then If Text1.Text = “cpu“ Then Form2_2.Show Else MsgBox “sorry! you cant enter the form2!“, , “文本框“ End If End If End Sub,另外一种触发方式：,30,2、标签（Label） 功能：用于在窗体上增加文字说明。如用作窗体的状态栏，或为文本框、列表框等添加注释文字说明等。 (1) 属性 Name：标签名称； Caption：标题属性。本属性值即为标签所显示的文本内容； Alignment：对齐属性。缺省值为0，将Caption文本左对齐；若设为

21、1，为右对齐；设为2，则为居中； AutoSize:大小自适应属性，当取值为“True”时，标签大小会随实际显示的内容（Caption）而变化，缺省为“False”。 WordWrap:字折行属性。取值为“True”时，标签大小垂直扩展，即标题文字换行，为“False”时，则水平拓展，缺省“False”，该属性只有在AutoSize属性为“True”时才有效。,31,(2) 方法 Refresh：刷新； Move：移动。 (3)事件 Click（单击）、DblClick（双击）（很少用及）,注意： 标签得不到焦点，所以无SetFocus方法,例 Label,32,Private Sub Com

22、mand1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = Command1.Left Label1.Top = Command1.Top + Command1.Height Label1.WordWrap = False Label1.AutoSize = True Label1.BackColor = vbYellow Label1.Visible = True Label1.Caption = “关闭窗体，结束应用程序“ End Sub,设置颜色,使标签可见,文本

23、不换行,例：窗体FORM1上有一个命令按纽“Close”，当鼠标光标移动动到该按钮上时，在按纽下方显示由LABEL1提供的提示行：背景色为“淡黄色”，文字为“关闭窗体，结束应用程序”。,33,Private Sub Command1_Click() Unload Me End Sub,除命令按钮外，鼠标在窗体其他位置移动时，并不出现标签提示,Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Visible = False End Sub,34,3、命令

24、按钮（Command Button） 功能： 用户用鼠标单击命令按钮，就表示要执行一条命令，命令的具体功能则是由触发的单击事件过程中的程序代码决定。 (1)属性 Caption：标题属性。就是显示在按钮上的提示文字； Default：确定属性。当该属性为“True”时，按“回车键”等同于单击此按钮。在一个窗体中，也只能有一个命令按钮的该属性值为“True”.缺省值为“False”。 Cancel：取消属性。当本属性值设为“True”（真）时，按“Esc”键即等同于单击本按钮；在一个窗体中，只能有一个命令按钮的该属性设置为“True”，缺省值为“False”； Enable:有效属性，当该属性为

25、“False”时，命令按钮无效， 不能响应用户事件，缺省为“True”。,35,(2)方法 SetFocus：设置焦点。 设置为焦点的按钮，标题周围将有一个边框，用户直接按“回车键”时，将会触发执行该按钮的单击事件。 (3)事件 Click，即鼠标单击。这是命令按钮最基本、最重要的事件。,书P23 例 2-2,36,例2-2一个使用命令按钮的程序示例,Private Sub Command1_Click() Label1.Caption = “报效祖国“ Command2.Enabled = True Command2.SetFocus Command1.Enabled = False End

26、 Sub,使按钮2变为活动状态,Private Sub Command2_Click() Label1.Caption = “努力学习“ Command1.Enabled = True Command1.SetFocus Command2.Enabled = False End Sub,使按钮1变为非活动状态,使按钮2具有焦点,38,4、列表框（ListBox） 用途：列出可供用户选择的项目列表。 属性： List：表属性。用于保存列表内容。程序代码中，可通过表属性以及列表项序号实现对某具体列表项的访问： 对象名.List(列表项序号) 其中的对象名即为列表框的Name属性值；列表项的序号从0

27、开始，由上到下依次为0、1、2、3. 列表框中的列表项的添加方法：一是设计时在属性窗口的LIST属性值中直接添加，二是在程序运行时，在代码中通过additem方法添加。 ListCount：列表项数目。,39,ListIndex：列表项索引。其值为当前选中的列表项的序号，第一个列表项的序号为0，如果未选任何项目，则其值为-1； Text：列表项正文。其值为当前选中的列表项的文本，它与List (ListIndex)相同； 即List1.Text=List1.List(ListIndex) Columns：列属性。设置列表框中显示的列表项的列数。该属性缺省为，只显示一列文本。逐行显示列表项，可能

28、有垂直滚动条，取值为大于0的值时，列表项可占多列显示； Sorted：排序属性。取值为“True”时，各列表项将按字母表排序，取值为“False”时，将不排序。,属性,40,方法： AddItem ：添加列表项。使用下面的格式来添加： 对象名.AddItem ,插入位置序号 若不指定插入位置，则插入到列表末尾； Clear ：删除列表中所有列表项。 RemoveItem ：删除指定列表项。用法如下： 对象名.RemoveItem 删除项序号 事件： 虽然列表框可以响应单击Click和双击DblClick事件。但很少使用。,例：列表框,41,界面如图所示，在文本框中输入内容，再单击“增加”命令按

29、纽，可以将文本框中的内容添加至列表框中；对指定的列表框选项，单击“删除”可将其删除，同时及时更新列表项的总数。,属性,举例,42,Private Sub Command1_Click() List1.AddItem Text1.Text Label3.Caption = List1.ListCount End Sub,Private Sub Command2_Click() List1.RemoveItem List1.ListIndex Label3.Caption = List1.ListCount Text1.Text = “ Text1.SetFocus End Sub,将文本框的内容

30、添加至列表框中,将列表框指定的选项进行删除,列表数目显示在标签上,43,Private Sub Command3_Click() List1.Clear Label3.Caption = List1.ListCount Text1.Text = “ Text1.SetFocus End Sub,Private Sub Command4_Click() Unload Me End Sub,全部清除,44,5、组合框（ComboBox） 功能： 将文本框和列表框结合在一起，在列表框中所选项目的文本会自动填入文本框。 属性： Style：外观属性。组合框的类型和功能由本属性设定值决定，各设置值的功能

31、为(见下一页)： Text：文本属性。其取值就是用户从列表框中选定的文本内容或直接输入文本框中的内容。 注意：组合框并不会自动地把用户在文本框中输入地内容作为一个新列表项添加到列表框中，须使用如下语句： ComoBoxname.AddItem ComoBoxname.Text 方法：同列表框。 事件：0和2风格的组合框可响应Click（单击）事件；风格1的组合框可响应DblClick（双击）事件；带有文本框的0和1风格的组合框在编辑文本时可引发Change事件。,45,ComboBox,组合框Style属性的三种选择,常数 值 描述 vbComboDropDown 0 （缺省值）下拉式组合框。

32、包括一个下 拉式列表和一个文本框。可以从列表选 择或在文本框中输入。 vbComboSimple 1 简单组合框。文本框和列表框部分一直显 示在窗体上。可以从列表中选择或直接文 本框中输入。应根据实际列表项数目，调 整控件大小。 vbComboDrop-DownList 2 下拉式列表。这种样式无文本框，不允许 用户直接输入，仅允许从下拉式列表中选择。,46,组合框的外观,47,界面如下，单击列表框中的选项，将之添加到组合框中，同时在组合框的文本框中输入内容，按回车也能添加至列表中。,组合框,列表框,举例,Private Sub Command1_Click() Combo1.AddItem

33、List1.Text End Sub,Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text Combo1.Text = “ End If End Sub,将输入的内容添加至组合框,将列表框指定选项移动至组合框,Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub,Private Sub Command3_Click() Combo1.Clear End Sub,Pr

34、ivate Sub Command4_Click() Unload Me End Sub,49,6、图象控件（Image）和图片框（PictureBox） 图像控件（Image） 用途：显示来自图形文件的图像。 属性： Strech缩放属性：为True时，当图像的原始大小与控件大小不同时，会缩放图像来填充整个控件；为False时，自动控件大小来完整显示图片。 BorderStyle边框属性：0时无边框，1时有边框。 Picture:图片属性，为要显示的图片的来源。可在设计时通过属性窗口设置，也可在代码中通过VB内部函数设置： imagename.Picture=LoadPicture(“c:p

35、ict1.bmp”) 方法： Move：移动 事件：Click dbclick,50,用途：显示图形和文本，还可用于创建动画图形。 属性： BorderStyle：边框属性。 Align:对齐属性，指图片框在窗体上的位置。有无、上、下、左和右五种选择。 Picture:图片属性。设置同IMAGE控件 AutoSize：为True时，当图片大小与控件大小不同时，会自动改变控件大小来与图像一致，为False时，则不会。 方法： Move：移动； Print:打印 Cls：清空图片框 事件：Click、 dbclick 注意： PictureBox控件可作为控件容器，在其中放置如命令按纽、文本框等其

36、它控件。,举例,图片框控件（PictureBox）,51,7.选项按钮（Option Button）、复选框（CheckBox）与框架控件（Frame） 单选按钮（OptionButton） 用途：从一组互斥的选项中选择一个。 属性： Caption:标题属性。 Value:取值属性。单选按钮选中时，该属性值为“True”，否则为“False” 方法： Move、Refresh、Setfocus等 事件： Click 注意： 一般情况下，在一组单选按钮中可设置一个按钮为“缺省”按钮，即它的Value属性初始状态为“True”，根据这个设定设置整个应用程序的初始状态。,52,复选框（CheckB

37、ox） 用途：从一组选项中选择一个或多个。 属性： Caption:标题属性。 Value:取值属性，表示复选框的状态，有三个选择 （0未选中、1选中、2当前不能访问），注意与单选按纽不同。 Alignment:对齐属性。 方法事件：同单选按纽。,53,在窗体上可以容纳若干个选项组。可利用框架控件或前已述及的图片框控件，作为选项组的“包容器”，把各个选项组区分开来 用途：作为控件容器，将控件分组。 属性： Caption:标题属性。 方法：Move:移动 事件：Click：单击 注意：若窗体上有互不相干的多组单选按钮，未防止选择时，他们之间相互干扰，必须将他们分组，分别放置在不同的框架（Fra

38、me）中。步骤： 1 先在窗体上拖放一个框架控件，并选定该框架为当前对象； 2 在框架中直接绘制该组中的各个按纽控件； 3 若分组成功，则拖动框架时，包括其内部的控件一起移动。,复选框,框架（Frame）,54,界面如图所示，在窗体上使用框架分别建立一组复 选按钮和二组单选按钮，用户在进行选择时，文字的字体字号和风格也能发生相应的变化。,例2-4：,55,Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontItalic = True ElseIf Check1.Value = 0 Then Text1.FontItalic

39、 = False End If End Sub,斜体,粗体,Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontBold = True ElseIf Check2.Value = 0 Then Text1.FontBold = False End If End Sub,56,程序说明： 因为复选框的单击结果有两种，所以在程序中使用了判断结构。而单选按钮则不存在这种情况，单击就是选定。,Private Sub Option1_Click() Text1.FontSize = 12 End Sub Private Sub Op

40、tion2_Click() Text1.FontSize = 14 End Sub Private Sub Option3_Click() Text1.FontSize = 16 End Sub Private Sub Option4_Click() Text1.FontName = “宋体“ End Sub Private Sub Option5_Click() Text1.FontName = “隶书“ End Sub Private Sub Option6_Click() Text1.FontName = “黑体“ End Sub,57,8、滚动条控件（ HScrollBar和VScro

41、llBar ） 用途： 滚动条主要用于列有较长项目或者大量信息的地方。使用户在较小的区域中浏览较长的项目和信息。(用于需要浏览信息，但又不支持滚动功能的控件。） (1) 属性 Value:对应于滚动框在滚动条中的相对位置。最小：水平：左；垂直：上 Max和Min：设定滚动条Value 属性的取值范围；（缺省：032767） LargeChange:在滚动条的空白区域单击鼠标，Value的变化量 SmallChange:鼠标单击滚动条两端箭头时， Value的变化量 (2) 方法 Move (3)事件 Change：滚动条不支持单击事件，当Value值发生变化时，触发本事件。,举例,58,例：通

42、过红，绿，蓝三基色合成各种颜色,59,Private Sub changecolor() Text1.BackColor = RGB(HSbred.Value, HSbgreen.Value, HSbblue.Value) End Sub,定义通用过程,调用过程Changecolor,在标签上显示此时红绿蓝三色的初值,均为0,Private Sub Form_Load( ) changecolor Label1.Caption = “红“ & HSbred.Value Label2.Caption = “绿“ & HSbgreen.Value Label3.Caption = “兰“ & HS

43、bblue.Value End Sub,60,Private Sub HSbblue_Change() Label3.Caption = “兰“ & HSbblue.Value changecolor End Sub,改变文本框颜色显示,Private Sub HSbgreen_Change() Label2.Caption = “绿“ & HSbgreen.Value changecolor End Sub,Private Sub HSbred_Change() Label1.Caption = “红“ & HSbred.Value changecolor End Sub,61,9、定时器控

44、件（Timer）,用途：通过设置时间间隔，当经过设定的时间后，自动触发该控件的Timer事件，执行其中的代码程序。 属性： Interval：以毫秒为单位的时间间隔。取值为0-65535。 0表示不起作用。 Enable：为True时，打开计时器，开始计时，根据Interval值，触发Timer事件；为False时，关闭计时器。 事件： Timer：计时器唯一支持的事件，当设定时间间隔到达后，触发。 注意：窗体上的计时器，在运行时是不可见。,Timer,62,例： 窗体上有一标签，单击“开始”按纽后，该标签在窗体上水平滚动。,Private Sub Timer1_Timer() If Labe

45、l1.Left + Label1.Width Form1.Width Then Label1.Move 0 Else Label1.Move Label1.Left + 50 End If End Sub,Private Sub Command2_Click() Timer1.Enabled = False End Sub,Private Sub Command1_Click() Timer1.Enabled = True End Sub,64,2.3 制作菜单,2.3.1 菜单概述 2.3.2 使用菜单编辑器 2.3.2 界面设计程序示例 2.3.4 使用帮助,65,菜单概述 菜单条/菜单栏

46、：位于窗体的标题栏下，包括菜单的标题； 菜单/下拉式菜单：单击菜单标题，出现的命令列表； 菜单项：菜单命令； 子菜单：从一个菜单项分支出来的菜单； 弹出式菜单：右键快捷菜单。,66,打开菜单编辑器对话框：“工具” “菜单编辑器” 标题： 菜单标题，直接显示在菜单中；若为菜单分隔 线，则标题为“-”，如要设置菜单访问键，在 菜单标题中加上“&”+字母，运行时，显示为字母， 按Alt+字母可打开该菜单。 名称： 菜单标识，不可省略 快捷键： 一般为Ctrl+字母，指直接执行该菜单项的键盘快 捷键。 复选属性： 指定可切换的菜单项的开关状态 有效属性： 缺省为“True”，若为“False”则该菜单

47、项变为 灰色，不能响应事件 可见属性: 缺省为“True”，若为“False”则该菜单项包括 其子菜单在菜单栏上均不可见 箭头： 菜单项的升降级和次序的调整 VB将菜单也视为控件对象，若要单击菜单执行某命令，则须在代码窗口编辑该菜单对象的Click事件中的。,菜单编辑器,67,弹出式菜单 弹出式菜单的建立和下拉菜单一样，都是通过菜单编辑器来完成的，但弹出式菜单要将菜单的Visible属性设置为“False”，并需要通过增加程序代码来实现。,例：设置窗体的弹出式菜单。,程序代码： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu hh End Sub,