第八章 通用对话框、菜单1.ppt

第八章 对话框和菜单（3学时） 第八章 对话框和菜单设计 本章要点： 了解自定义对话框的创建 掌握通用对话框控件的使用 掌握菜单设计 第八章 对话框 Vb中，对话框是一种特殊的窗体。 预定义对话框：输入框、消息框 自定义对话框，根据自己需求设计和定义。 通用对话框，它是vb提供的一种控件。 8.1 自定义对话框 由普通窗体创建 使用对话框模板创建 显示与关闭 8.1.1由普通窗体创建 例 8-1：设计简单的登录对话框 8.1.1由普通窗体创建 例 8-1：设计简单的登录对话框 8.1.2使用对话框模板创（p153） 8.1.2 显示与关闭“自定义”对话框 8.2 通用对话框(CommonDialog) 通用对话框控件添加到工具箱 8.2 通用对话框 打开通用对话框 8.2 通用对话框 属性设置 属性页 8.2.1打开、另存为对话框的属性 例8.2 图片浏览 “打开”、“另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。 装载图片按钮： 保存图片按钮： 8.2.2 “颜色”对话框 属性 Color：返回或设置选定的颜色。 8.2.2 “颜色”对话框 改变颜色按钮： 8.2.3 “字体”对话框 8.2.3 “字体”对话框 改变字体按钮： 改变字体按钮： 8.3 菜单的设计 一、菜单编辑器的使用 工具—菜单编辑器(CTRL+E) 一、菜单编辑器的使用 常用属性： 标题：热键：前面加 名称：分隔符也应有名称。 快捷键： 菜单名没有快捷键 复选(Checked)： TRUE 有? 有效(Enabled) 可见(Visible) p180：2 8.3.4 弹出式菜单（快捷菜单） 建立 1、在菜单编辑器中建立 2、顶层菜单项Visible属性设置为False 3、在窗体或控件的mouseup或mousedown事件中调用popupmenu方法显示 8.3.4 弹出式菜单（快捷菜单） 例8.7 弹出菜单 8.3.4 弹出式菜单（快捷菜单） 8.3.4 弹出式菜单（快捷菜单） Private Sub Copy_Click() 单击复制菜单项 Clipboard.Clear Clipboard.SetText Text1.SelText Paste.Enabled = True 粘贴可用 End Sub Private Sub Cut_Click() 单击剪切菜单项 Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = Paste.Enabled = True End Sub Private Sub Font_Click() 单击字体菜单项 CommonDialog1.Flags = 1 CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End Sub 8.3.4 弹出式菜单（快捷菜单） Private Sub MColor_Click(Index As Integer) CommonDialog1.ShowColor Select Case Index Case 0 选中字体颜色 Text1.ForeColor = CommonDialog1.color Case 1 选中背景颜色 Text1.BackColor = CommonDialog1.color End Select End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 And Text1.SelText = Then 松开左键并选中文本 Copy.Enabled = False Cut.Enabled = False Else Copy.Enabled = True Cut.Enabled = True End If End Sub 例：使用菜单编辑器设计一个下拉菜单，控制图片框