第9章菜单对话框及多重窗体.pptVIP

第9章 菜单、对话框及多重窗体 9.1 菜单 9.2 对话框 9.3 多重窗体程序 9.4 Visual Basic 工程结构 9.5 综合应用程序举例 9.1 菜单 9.1.1 下拉式菜单 菜单命令的主要属性 分隔线：在标题栏中填入“-”，则在菜单中显示一条分隔线。 键盘选择：在菜单项标题某字母前加“”字符，可使该字符成为访问键（按Alt+该字符，可以选择相应的菜单项）。 例[9-1] 标签的显示和隐藏 Private Sub Hide_Click() Label1.Visible = False End Sub Private Sub Show_Click() Label1.Visible = True End Sub 例[9-2] 设计一个应用程序，通过菜单完成两个整数的加减运算。 Private Sub Add_Click() Label1.Caption ＝ ″＋″ Label3.Caption ＝ Val(Text1.Text) ＋ Val(Text2.Text) End Sub Private Sub Sub_Click() Label1.Caption ＝ ″－″ Label3.Caption ＝ Val(Text1.Text) － Val(Text2.Text) End Sub Private Sub Exit_Click() End End Sub 菜单的增减 Load 菜单项控件数组(Index):从菜单控件数组中添加一个新的菜单项。 UnLoad菜单项控件数组(Index):从菜单控件数组中删除一个菜单项。 参见例9-3 例[9-3] 在例9-2的代码基础上添加如下代码 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 （待续） （接上页） 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 9.1.2 弹出式菜单 弹出式菜单：是一种独立于菜单栏而显示在窗体上的浮动菜单。 创建弹出式菜单：与下拉式菜单方法一样，只是一般将其最高一级的“可见”设置为False。 弹出式菜单的一般调用： [对象名.]PopupMenu 菜单名, [Flags] ,[x] ,[y], [DefaultMenu] 例[9-4] 在例[9-3]的代码基础上再添加如下代码 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Cal, 2 End If End Sub 9.2 对话框 Comm