VB界面设计().pptVIP

Private Sub Mul_Click() ‘ 乘法菜单事件过程 Text3 = Val(Text1) * Val(Text2) Label1 = × Label2 = ＝ Label3 = 乘法运算 End Sub 　 Private Sub Div_Click() If Val(Text2) = 0 Then MsgBox 除数不能为零，请重新输入！, 16, 警告框 Text2 = Text2.SetFocus Else Text3 = Val(Text1) / Val(Text2) Label1 = ÷ Label2 = ＝ Label3 = 除法运算 End If End Sub 　 Private Sub quit_Click() End End Sub ④单击“启动”按钮运行应用程序。在Text1文本框中输入：25 ，在Text2文本框中输入：4 ，单击“×”菜单，屏幕显示如图所示。 　 二、 弹出菜单设计 1. 弹出菜单的特点 　弹出菜单是独立于窗体菜单而显示在窗体上的菜单，其显示的位置取决于单击鼠标时指针的位置。 2. 创建弹出菜单分为两步： ①建立弹出菜单 建立弹出菜单与建立一般菜单相同，也使用菜单编辑器。需要注意的是可以设置弹出菜单的顶层菜单（主菜单项）为可见或不可见。 ②设置弹出菜单显示方式 VB提供了PopupMenu方法来显示弹出菜单。PopupMenu方法的使用形式： [对象.] PopupMenu 菜单名，标志，x，y 其中： 标志：当标志为0时，弹出菜单的顶只能对鼠标左键起反应；当标志为1时，弹出菜单的顶只能对鼠标左键和右键都起反应；当标志为2时PopupMenu方法只能用在MouseDown事件过程。 【例6－7】设置示例6-6中的“运算”子菜单为弹出菜单 设计步骤： ①编写设置“运算”弹出菜单的事件过程代码。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Calc, vbPopupMenuLeftAlign End If End Sub ②单击“启动”按钮运行应用程序。在Text1文本框中输入:25，在Text2文本框中输入4。 ③右单击计算器窗体，出现弹出菜单，如图所示。单击“×”菜单，观察运算结果。 【例6－2】编写例6-1应用程序中“背景颜色”按钮程序代码。程序功能要求为：改变文本框的背景颜色。 设计步骤： ①在例6-1代码窗口中添加“背景颜色”按钮程序代码 Private Sub CmdColor_Click() CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub ②运行该应用程序，单击“背景颜色”命令按钮，出现如上图所示“颜色”对话框，选择一种颜色，按“确定”按钮，文本框背景颜色即发生改变。 五、“字体”对话框 1. 特点 　　当在程序中把Action属性值设置为4时或调用了ShowFont方法，就可以打开通用对话框的“字体”对话框。在“字体”对话框中，拥有可供用户选择的字体。 　　需要注意的是，在使用“字体”对话框之前，必须设置Flags属性。假如没有设置Flags属性值，则使用“字体”对话框时会显示错误提示。 2. Flags属性 属性 值 说明 CdlCFScreenFonts 1 屏幕字体 CdlCFPrinterFonts 2 打印机字体 CdlCFBoth 3 两者皆有 cdlCFEffects 100 出现删除线、下划线、颜色元素 【例6－3】编写例6-1应用程序中“修改字体”按钮程序代码。程序功能要求为：改变文本框的字体、字号。 设计步骤： ①在例6-1代码窗口中添加“修改字体”按钮程序代码。 Private Sub CmdFont_