第十1章 对话框和菜单.pptVIP

第11章 对话框与菜单程序设计 11.1.3 通用对话框 11.1.3 通用对话框 通用对话框的属性页 1、 “打开”/“另存为”对话框 属性: 1. FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2. FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 11.1.3 通用对话框 11.1.3 通用对话框 Private Sub Command1_Click() With CD1 .FileName = .Filter = 位图格式(*.bmp)|*.bmp | GIF格式(*.gif)|*.gif .FilterIndex = 2 .DialogTitle = 选择图片 .ShowOpen End With If CD1.FileName Then Label1.Caption = CD1.FileName Image1.Picture = LoadPicture(CD1.FileName) End If End Sub 例2:用文本框显示由用户任意指定的文本文件内容 例3:把文本框的内容保存为由用户任意指定的文件 例3:用颜色对话框控制文本框的背景色 11.1.3 通用对话框 3. “字体”对话框 字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。(ShowFont) 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline等. 11.1.3 通用对话框 11.1.3 通用对话框 11.1.3 通用对话框 菜单编辑器的使用技巧 1. 标题(Caption)：菜单标题 　　（１）输入File，显示为： File，热键： Alt+F 　　（２）输入减号表示菜单分隔线 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框 4 .下一个(Next)： 设置下一个菜单项。 5. ←和→按钮：“→” 下一级菜单项；“←”上一级菜单项。 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. ↓和↑按钮： 改变菜单项位置。 10. 复选(Checked)检查框：菜单项为选定项。 11. 有效(Enabled)检查框：True：菜单项可选；False：不可选。 12. 可见（Visible)检查框：True:菜单可见；False: 菜单不可见 1３. 显示窗口列表(Window List)检查框： Private Sub Form_Load() Text1.FontBold = False Text1.FontItalic = False Text1.FontUnderline = False Text1.FontName = Times new roman Text1.FontSize = 28 mnuFont = False End Sub Private Sub mnuFile_Input_Click() Text1.Text = InputBox(请输入：) If Text1.Text Then mnuFont = True Else mnuFont = False End If End Sub 例11_5 Dim indexId As Integer Private Sub mnuAdd_Click() Dim mnuCaption As String mnuCaption = InputBox(请输入菜单项的标题) indexId = indexId + 1 Load mnuDyn(indexId) mnuDyn(indexId).Caption = mnuCaption mnuDyn(indexId).Visible = True End Sub Private Sub mnuDel_Click() Dim i As Integer If indexId 1 Then MsgBox 菜单项已全部删除 Else Unload mnuDyn(indexId) indexId = indexId - 1 End If End Sub 11.2 弹出式菜