(接上页) Private Sub AppendCal Click(Index As Integer) If Index 1 Then Label1.Caption="Xw 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
（接上页） 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。 弹出式菜单的一般调用： I对象名.]PopupMenu菜单名，[Flags】,x灯，[y,[DefaultMenu)
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-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对话框 CommonDialog控件提供一组标准的操作对话框， 进行诸如打开和保存文件，设置打印选项，以及选择 颜色和字体等操作。通过运行Vindows帮助引擎控件 还能显示帮助。 在应用程序中要使用CommonDialog控件，可将 其添加到窗体中并设置其属性。控件所显示的对话框 由控件的方法确定。在运行时，当相应的方法被调用 时，将显示一个对话框或是执行帮助引擎；在设计时， CommonDialog控件是以图标的形式显示在窗体中。 该图标的大小不能改变
9.2 对话框 CommonDialog 控件提供一组标准的操作对话框， 进行诸如打开和保存文件，设置打印选项，以及选择 颜色和字体等操作。通过运行 Windows 帮助引擎控件 还能显示帮助。 在应用程序中要使用 CommonDialog 控件，可将 其添加到窗体中并设置其属性。控件所显示的对话框 由控件的方法确定。在运行时，当相应的方法被调用 时，将显示一个对话框或是执行帮助引擎；在设计时， CommonDialog 控件是以图标的形式显示在窗体中。 该图标的大小不能改变
Visual Basic6.0为用户提供了3种对话框： ①预定义对话框：即由InputBox0或MsgBox()函 数创建的对话框。 ②通用对话框：使用CommonDialog控件创建， 如“打开”对话框、“字体”对话框等。 ③用户自定义对话框：用户根据自己的需要在窗体上 添加各种控件来构成自己需要的对话框
Visual Basic 6.0为用户提供了3种对话框： ① 预定义对话框：即由InputBox()或MsgBox()函 数创建的对话框。 ② 通用对话框：使用CommonDialog控件创建， 如“打开”对话框、“字体”对话框等。 ③ 用户自定义对话框：用户根据自己的需要在窗体上 添加各种控件来构成自己需要的对话框