《VB语言第10章教案资料》由会员分享，可在线阅读，更多相关《VB语言第10章教案资料（19页珍藏版）》请在金锄头文库上搜索。
1、VBVB语言第语言第1010章教案资料章教案资料主页主页 第10章 菜单及对话框菜单设计菜单设计键盘与鼠标事件键盘与鼠标事件对话框对话框 通用通用/ /自定义自定义本章主要内容退出退出主页主页 窗体和大多数控件都能响应键盘和鼠标事件窗体和大多数控件都能响应键盘和鼠标事件 10.1.1 10.1.1 键盘事件键盘事件 有三种事件处理键盘操作有三种事件处理键盘操作 1. KeyPress1. KeyPress事件事件 2. KeyDown 2. KeyDown事件：事件：用户按下键盘上某个键时触发此事件用户按下键盘上某个键时触发此事件 3. KeyUp3. KeyUp事件：事件：用户按下键盘上某个
2、键后释放时触发此事件用户按下键盘上某个键后释放时触发此事件 10.1 键盘与鼠标事件主页主页 ClickClick、DblClickDblClick、MouseMoveMouseMove、MouseDownMouseDown和和MouseUpMouseUp事件事件 当移动鼠标时发生当移动鼠标时发生MouseMove事件事件 当按下鼠标任意键时发生当按下鼠标任意键时发生MouseDown事件，放开鼠标键时发生事件，放开鼠标键时发生MouseUp事件事件 后三种事件可以区分鼠标的左、右、中键与后三种事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键键 Private Sub 对象名对象
3、名_鼠标事件鼠标事件(Button As Integer, Shift As Integer, X As Single,Y As Single) 说明：说明：(1) Button参数参数表示哪个鼠标键被按下或释放。用表示哪个鼠标键被按下或释放。用0，1，2位分别表示鼠位分别表示鼠标的左、右、中键，用标的左、右、中键，用1或或0表示被按下或释放表示被按下或释放 (2) Shift参数参数表示当鼠标键被按下或释放时，表示当鼠标键被按下或释放时，Shift、Ctrl、Alt键的按下或释放状键的按下或释放状态。用态。用0、1、2位表示位表示Shift、Ctrl、Alt键键 (3) X,Y表示鼠标指针的
4、当前坐标位置表示鼠标指针的当前坐标位置 2 1 0 位位 左键左键右键右键中键中键 10.1.2 鼠标事件MouseMove、MouseDown或或MouseUp主页主页 当单击鼠标左键时把按钮的位置移动到鼠标指针的位置，单击鼠标当单击鼠标左键时把按钮的位置移动到鼠标指针的位置，单击鼠标右键时把按钮的位置移动到窗体的左上角位置（即坐标原点）。以下程右键时把按钮的位置移动到窗体的左上角位置（即坐标原点）。以下程序将序将MouseDownMouseDown事件与事件与MoveMove方法结合起来使用。方法结合起来使用。 Private Sub Form_MouseDown(Button As In
5、teger, _ Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Shift As Integer, X As Single, Y As Single) If Button = 1 Then If Button = 1 Then 单击鼠标左键时单击鼠标左键时 Command1.Move X, Y Command1.Move X, Y 移动到鼠标指针的位置移动到鼠标指针的位置 Else Else Command1.Move 0, 0 Command1.Move
6、0, 0 移动到窗体的左上角移动到窗体的左上角 End If End If End Sub End Sub 例10.1 实现命令按钮位置的移动例例10.1主页主页 10.2 菜单设计 应用程序通过菜单为用户提供一组命令应用程序通过菜单为用户提供一组命令 菜单一般分为两种：菜单一般分为两种：下拉式菜单下拉式菜单和和弹出式菜单弹出式菜单 10.2.1 下拉式菜单下拉式菜单 1.下拉式菜单的结构下拉式菜单的结构 下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单子菜单项子菜单项子菜单提示符子菜单提示符访问键访问键快捷键快捷键分隔线分隔线复选标记复选标记菜
7、单项菜单项顶层菜单顶层菜单例例10.1c主页主页 10.2.2 菜单编辑器 设计菜单的工具设计菜单的工具菜单编辑器菜单编辑器 菜单编辑器分为上、下两部分，菜单编辑器分为上、下两部分，上半部分上半部分用来用来设置属性设置属性，下半部分下半部分是是菜单显示区菜单显示区，用来显示用户输入的菜单内容。，用来显示用户输入的菜单内容。 10.2.3 10.2.3 菜单的菜单的ClickClick事件事件 除分隔线以外的所有菜单元素都能识别除分隔线以外的所有菜单元素都能识别Click事件事件主页主页例10.5 编一程序，进行两个操作数的算术运算练习 设计步骤如下：设计步骤如下： (1)创建应用程序的用户界面
8、和设置对象属性创建应用程序的用户界面和设置对象属性 菜单栏向用户提供菜单栏向用户提供功能选择，包括功能选择，包括运算数的位数，运算符类型运算数的位数，运算符类型(加、减、乘加、减、乘)和退出程序和退出程序 菜单设计菜单设计 各个菜单项名称各个菜单项名称例例10.5主页主页 (2)编写程序代码编写程序代码 Option Explicit 规定所有变量都要显式声明，见规定所有变量都要显式声明，见10.9.1节节 Dim sel1 As Integer, sel2 As String Dim r1 As Long Private Sub Form_Load() sel1 = 0 位数标记位数标记 s
9、el2 = 运算标记运算标记 Randomize End Sub Private Sub Mnu11_Click() 单击单击“一位数一位数”菜单项菜单项 sel1 = 1 设置位数标记设置位数标记 End Sub Private Sub Mnu12_Click() 单击单击“二位数二位数”菜单项菜单项 sel1 = 10 End Sub主页主页Private Sub Mnu13_Click() 单击单击“三位数三位数”菜单项菜单项 sel1 = 100End SubPrivate Sub Mnu21_Click() 单击单击“加法加法”菜单项菜单项 sel2 = + 设置运算标记设置运算标记
10、End SubPrivate Sub Mnu22_Click() 单击单击“减法减法”菜单项菜单项 sel2 = -End SubPrivate Sub Mnu23_Click() 单击单击“乘法乘法”菜单项菜单项 sel2 = *End Sub 主页主页Private Sub Command1_Click() 命题命题按钮单击事件按钮单击事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先选择运算数的位数和运算类型先选择运算数的位数和运算类型 Exit Sub End If a = sel1 + Int(9 * sel
11、1 * Rnd) 根据指定位数，随机生成操作数根据指定位数，随机生成操作数 b = sel1 + Int(9 * sel1 * Rnd) Text1.Text = Str(a) + sel2 + Str(b) + “=” 根据操作数及运算类型组成算式根据操作数及运算类型组成算式 Select Case sel2 根据运算类型，求运算结果根据运算类型，求运算结果r1 Case + r1 = a + b Case - r1 = a - b Case * r1 = a * b End Select Text2.Text = Text2.SetFocusEnd Sub菜单操作后菜单操作后Sel1 指定
12、位数指定位数 = 1 一位数一位数 = 10 二位数二位数 = 100 三位数三位数Sel2 指定运算类型指定运算类型 = “+” 加法加法 = “-” 减法减法 = “*” 乘法乘法主页主页Private Sub Command2_Click() 答题答题按钮单击事件按钮单击事件 Dim r2 As Long If Text2.Text = Then MsgBox 请输入答案请输入答案 Exit Sub End If r2 = Val(Text2.Text) 读取用户的答案读取用户的答案 If r1 = r2 Then 判断答案判断答案 MsgBox 正确正确 Else MsgBox 错误错
13、误 End IfEnd SubPrivate Sub Mnu30_Click() “退出退出”菜单命令菜单命令 EndEnd Sub主页主页 10.2.5 弹出式菜单 弹出式菜单又称为快捷菜单。可以根据右击鼠标时的位置弹出不同弹出式菜单又称为快捷菜单。可以根据右击鼠标时的位置弹出不同的菜单。的菜单。 使用使用VB提供的菜单编辑器，把某个菜单设置成隐藏。提供的菜单编辑器，把某个菜单设置成隐藏。 创建快捷菜单的步骤如下：创建快捷菜单的步骤如下： (1)使用菜单编辑器设计菜单使用菜单编辑器设计菜单 (2)设置顶层菜单项为不可见设置顶层菜单项为不可见，即不选中菜单编辑器里的，即不选中菜单编辑器里的“可
14、见可见”选项选项或在属性窗口中设定或在属性窗口中设定Visible属性为属性为False (3)编写与弹出式菜单相关联的编写与弹出式菜单相关联的MouseUp(释放鼠标释放鼠标)事件过程事件过程。格式。格式为：为： 对象对象 PopupMenu 菜单名菜单名 , 位置常数位置常数, 横坐标横坐标, 纵坐标纵坐标主页主页例10.6 在例10.5的基础上，把“位数”菜单改为快捷菜单 (1)打开例打开例10.8的应用程序，选定窗体，然后在菜单编辑器中将的应用程序，选定窗体，然后在菜单编辑器中将“位数位数”菜菜单标题的单标题的“可见可见”框中的框中的“”取消取消(即不选中即不选中) (2)增加以下的增
15、加以下的MouseUp事件过程代码：事件过程代码： Private Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)If Button = 2 Then 检查是否右击检查是否右击,击左键为击左键为1PopupMenu mnu10End If End Sub 程序运行时，右击窗体空白处，即会弹出快捷菜单，如图程序运行时，右击窗体空白处，即会弹出快捷菜单，如图10.12所示所示例例10.6例例10.5A主页主页 弹出式弹出式 菜单菜单主页主页10.3 对话框 对话框对话框(DialogB
16、ox)是应用程序与用户进行交互的主要途径。是应用程序与用户进行交互的主要途径。 三种对话框：三种对话框： (1)预定义对话框预定义对话框 使用函数使用函数InputBox和和MsgBox来实现。来实现。 (2)通用对话框通用对话框 通用对话框是一种通用对话框是一种ActiveX控件，在使用之前，应选择控件，在使用之前，应选择“工程工程”菜单中菜单中的的“部件部件”命令先将其添加到工具箱中命令先将其添加到工具箱中 (选中选中“Microsoft Common Dialog Control 6.0” ) 利用通用对话框能够创建下列六种标准对话框利用通用对话框能够创建下列六种标准对话框(指定相应的参
17、数，指定相应的参数，P233)： 打开打开(Open)，另存为，另存为(Save As)，颜色，颜色(Color) 字体字体(Font)，打印机，打印机(Printer)，帮助，帮助(Help) (3)用户自定义对话框用户自定义对话框 建立一个窗体，把窗体设置成对话框特性（没有控制菜单框、最大化建立一个窗体，把窗体设置成对话框特性（没有控制菜单框、最大化及最小化按钮，不能改变其大小，及最小化按钮，不能改变其大小，见表见表10.3） 在窗体上根据需要放置控件在窗体上根据需要放置控件主页主页附录 使用WebBrowser控件制作一个简易的Web浏览器 在在“部件部件”对话框的对话框的“控件控件”选
18、项卡中选上选项卡中选上“Microsoft Internet “Microsoft Internet Controls”Controls”，把该控件添加到，把该控件添加到VBVB工具栏中。工具栏中。 设计时，在窗体上添加设计时，在窗体上添加WebBrowseWebBrowse控件和框架控件和框架FrameFrame控件。在控件。在FrameFrame控件上添加一个标签控件上添加一个标签Label1Label1（显示文字（显示文字“地址地址”）、一个文本框）、一个文本框Text1Text1（用于输入（用于输入URLURL地址）和一个命令按钮地址）和一个命令按钮Command1Command1（“
19、转到转到”） WebBrowserWebBrowser控件控件框架上放置框架上放置3 3种控件种控件主页主页Web浏览程序 Private Sub Command1_Click() Private Sub Command1_Click() “转到转到”按钮按钮 If Text1.Text Then If Text1.Text Then WebBrowser1.Navigate Text1.Text WebBrowser1.Navigate Text1.Text End If End If End Sub End Sub Private Sub Form_Load() Private Sub F
20、orm_Load() WebBrowser1.GoHome WebBrowser1.GoHome End Sub End Sub Private Sub WebBrowser1_DownloadComplete() Private Sub WebBrowser1_DownloadComplete() Caption = WebBrowser1.LocationName & - & _ Caption = WebBrowser1.LocationName & - & _ WebBrowser1.LocationURL WebBrowser1.LocationURL End Sub End Sub 程序启动后，在程序启动后，在“地址地址”框中键入一个网址框中键入一个网址“http:/
