第10讲 第9章 用户界面设计.pptVIP

内 容 9.1 菜单的设计 9.2 对话框 9.3 多重窗体和多文档界面 9.4 工具栏和状态栏 9.1 菜单的设计 9.1.1 下拉式菜单 查看代码 ： Private Sub kaiti_Click() Text1.FontName = 楷体_GB2312 End Sub Private Sub lanse_Click() Text1.ForeColor = vbBlue End Sub Private Sub lv_Click() Text1.ForeColor = vbGreen End Sub Private Sub songti_Click() Text1.FontName = 宋体 End Sub Private Sub cuti_Click() If cuti.Checked = True Then Text1.FontBold = False cuti.Checked = False Else Text1.FontBold = True cuti.Checked = True End If End Sub Private Sub xieti_Click() If xieti.Checked = True Then Text1.FontBold = False xieti.Checked = False Else Text1.FontBold = True xieti.Checked = True End If End Sub 弹出式菜单的标志设置值 如果要同时指定位置常数和行为常数，则用or操作符将两个参数值连接起来。 x , y：指定弹出式菜单的显示位置。省略时为鼠标的坐 标。 Boldcommand：指定弹出式菜单中想以粗体字体显示的 菜单控件的名称。省略时弹出式菜单中没有以粗体字出现的 菜单项。在弹出式菜单中只能有一个菜单控件被加粗。 因为弹出式菜单是单击鼠标右键时弹出来的，所以在程 序中应检测用户是否单击了鼠标右键。检测是否单击鼠标右 键可有鼠标事件MouseDown，该事件过程返回一个整型参 数，用来检测该事件的产生是按下鼠标的左键（1）、右键 （2）还是中间键（4）导致。 首先，在菜单编辑器中添加如表9-3所示的弹出式菜单项的属性设置。 Private Sub Command1_Click() If Option1.Value Then 打开选项按钮被选中 CommonDialog1.Filter = 文本文件（*.txt)|*.txt|所有文件(*.*)|*.* 设置文件过滤列表 CommonDialog1.ShowOpen 打开“打开”文件对话框 Text1.Text = CommonDialog1.FileName End If If Option2.Value Then 另存为选项按钮被选中 CommonDialog1.ShowSave Text1.Text = CommonDialog1.FileName 打开“另存为”文件对话框 End If If Option3.Value Then 字体选项按钮被选中 CommonDialog1.Flags = cdlCFBoth 使对话框列出可用的打印机和屏幕字体 CommonDialog1.ShowFont 打开“字体”对话框 根据“字体”对话框的内容改变文本框Text1的字体 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End If If Option4.Value Then 颜色选项按钮被选中 CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color 将文本框的背景颜色设置为“颜色”对话框所选定的颜色 End If If Option5.Value Then 打印选项按钮被选中 CommonDialog1.ShowPrinter