VB教程 全套课件 vb-8

《VB教程 全套课件 vb-8》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、8.1通用对话框8.2菜单设计8.3多重窗体和多文档界面8.4工具栏和状态栏8.5RichTextBox控件8.6应用程序向导第八章界面设计（3学时）8.1通用对话框(CommonDialog)属性Action：打开通用对话框。DialogTiltle：对通用话框标题。CancelErrorTrue：选择“取消”按钮，出现错误警告；Err.Number置为32755(cdCancel)。False(缺省)：选择“取消”按钮，没有错误警告。工程/部件选定部件标签选定MicrosoftCommDialogControl6.0通用对话框添加到工具箱确

2、定打开通用对话框：属性FileName：包含路径FileTitle：不包含路径Filter：例如，Documents(*.DOC)

3、*.DOC

4、TextFiles(*.TXT)

5、*.txt

6、AllFiles

7、*.*FilterIndex：决定在文件类型列表框中显示第几组类型的文件。InitDir：初始化路径1.“打开”文件对话框DialogTiltleFileNameInitDirFilterFilterIndexDefaultExt例8.1简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按钮，显示有关信息。OpenCommon

8、Dialog1.filenameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdatatxtNoteEdit.Text=txtNoteEdit.Text+inputdata+_Chr(13)+Chr(10)LoopClose#12.“另存为”对话框没有提供真正的存储文件操作，仍需要编程完成储存操作。属性DefaultExt：缺省扩展名例8.1中“另存为...”按钮的事件过程3.“颜色”对话框属性Color：返回或设置选定的颜色。例8.1中“颜色...”按钮的事件过程4.“字体”对话框Flags属性：指

9、示所显示的字体类型，必须设置。cdlCFScreenFonts&H1屏幕字体cdlCFPrinterFonts&H2打印机字体cdlCFBoth&H3打印机字体和屏幕字体。cdlCFEffects&H100显示删除线和下划线检查框以及颜色组合框FontNameFontBold、FontItalicFontSizeFontStrikethruFontUnderlineColorMin、Max例8.1中“字体...”按钮的事件过程5.“打印”对话框属性FromPage：起始页号ToPage：终止页号Copies：打印份数如果打印驱动程序不支持多份打

10、印，该属性有可能始终返回1。例8.1中“打印...”按钮的事件过程6.“帮助”对话框帮助文件需要用其它的工具制作，如MicrosoftWindowsHelpCompiler。例8.5属性HelpCommand：在线Help帮助类型HelpFile：Help文件的路径及其名称HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。8.2菜单的设计菜单形式：主菜单名快捷键热键子菜单标记主菜单条分隔线菜单项子菜单名菜单列表框一、菜单编辑器的使用工具／菜单编辑器(CTRL+E)窗体上快显菜单／菜单编辑器菜单项属性常用属性：1.标题(Caption)

11、热键：前面加&2.名称(Name)文本框分隔符也应有名称。3.快捷键(Shortcut)菜单名没有快捷键4.复选(Checked)检查框TRUE有5.有效(Enabled)检查框6.可见(Visible)检查框操作按钮示例8.6建立一个有菜单功能的文本编辑器。二、菜单项增减在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。这同控件数组一样，使用菜单数组。步骤：1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）,Visual为False。2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。例8.7在8.6中的

12、文件菜单中保留最近打开的文件清单。同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。三、弹出菜单(快捷菜单)显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。形式：[对象.]PopupMenu菜单名,标志,x,y标志，表示弹出的位置和触发的键位置性能0：X位置确定弹出菜单的左边界0只能用鼠标左键触发弹出菜单；4：弹出菜单以X为中心2：能用鼠标左、右键键触发弹出菜单；8：X位置确定弹出菜单的右边界位置与性能是加的关系。弹出菜单示例SubTe

13、xt1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2