VB课件 第9章.ppt

第九章  菜单、对话框及多重窗体 本章主要内容 9.1 菜单 9.2 对话框 9.3 多重窗体程序 9.4 Visual Basic工程结构 9.5 综合应用程序举例 9.1 菜单 下拉式菜单 下拉式菜单系统的组成结构 ： 示例9-2：设计一个下拉式菜单，实现加减计算。运行结果如图所示。 1 在集成开发环境下，打开“工具| 菜单编辑器”，设计菜单； 2 编写“加法”、“减法”和“退出”的单击事件过程 菜单项的增减(选讲) 例9-3 （P222）在例9-2的“运算”菜单中添加乘法和除法操作。单击窗体，增加两个菜单命令“乘法”和“除法”；双击窗体，删除这两个菜单命令(代码见下页)。 Dim AppendCalNo As Integer ‘定义窗体变量 Private Sub Add_Click() Label1.Caption = + Label3.Caption = Val(Text1) + Val(Text2) 显示两数相加 End Sub Private Sub Sub_Click() Label1.Caption = - Label3.Caption = Val(Text1) - Val(Text2) 显示两数相减 End Sub Private Sub Exit_Click() End End Sub Private Sub Form_Click() ‘单击窗体，添加乘法、除法命令 If AppendCalNo = 0 Then AppendCalNo = AppendCalNo + 1 Load appendcal(AppendCalNo) appendcal(AppendCalNo).Caption = 乘法 appendcal(AppendCalNo).Visible = True AppendCalNo = AppendCalNo + 1 Load appendcal(AppendCalNo) appendcal(AppendCalNo).Caption = 除法 appendcal(AppendCalNo).Visible = True End If End Sub （待续） Private Sub Form_DblClick() ‘双击窗体，删除乘法、除法命令 Dim i As Integer Do While AppendCalNo 0 Unload appendcal(AppendCalNo) AppendCalNo = AppendCalNo - 1 Loop End Sub ‘对菜单数组AppendCal()编程，计算乘、除法。 Private Sub AppendCal_Click(Index As Integer) If Index = 1 Then Label1.Caption = × Label3.Caption = Val(Text1.Text) * Val(Text2.Text) End If If Index = 2 Then Label1.Caption = ÷ Label3.Caption = Val(Text1.Text) / Val(Text2.Text) End If End Sub （结束） 弹出式菜单（快捷菜单） 弹出式菜单：是一种独立于菜单栏而显示在窗体上的浮动菜单。显示位置取决于单击鼠标键时指针的位置。 创建弹出式菜单：与下拉式菜单方法一样， 如果不希望菜单出现在窗口的顶部，该菜单的Visible属性设置为False。 弹出菜单的方法 (通常定义在MouseDown事件中)： Object.PopupMenu 菜单名 例如，弹出EditMenu菜单： 例9-4 在例9-2的基础上，把运算菜单(Cal)作为弹出菜单显示出来。将Cal菜单项的Visible设置为False，增加“乘法”、“除法”命令。程序运行后，再右击窗体，显示弹出菜单。如下图所示。 9.2 对话框 通用对话框的性质、添加方法及作用 通用对话框的Actiong属性 通用对话框的6个方法 9.2 对话框 9.2.