搜索
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通用对话框添加到工具箱通用对话框的类型Action方法打开(Open)1ShowOpen另存为(SaveAs)2ShowSave颜色(Color)3ShowColor字体(Font)4ShowFont打印机(Printer)5ShowPrinter和帮助(Help)6ShowHelp确定打开通用对话框：属性FileName：包含路径FileTitle：不包含路径Filter：例如，Documents(*.DOC)|*.DOC|TextFiles(*.TXT)|*.txt|AllFiles|*.*FilterIndex：决定在文件类型列表框中显示第几组类型的文件。InitDir：初始化路径1.“打开”文件对话框DialogTiltleFileNameInitDirFilterFilterIndexDefaultExt例8.1简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按钮，显示有关信息。OpenCommonDialog1.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属性：指示所显示的字体类型，必须设置。cdlCFScreenFonts&H1屏幕字体cdlCFPrinterFonts&H2打印机字体cdlCFBoth&H3打印机字体和屏幕字体。cdlCFEffects&H100显示删除线和下划线检查框以及颜色组合框FontNameFontBold、FontItalicFontSizeFontStrikethruFontUnderlineColorMin、Max例8.1中“字体...”按钮的事件过程5.“打印”对话框属性FromPage：起始页号ToPage：终止页号Copies：打印份数如果打印驱动程序不支持多份打印，该属性有可能始终返回1。例8.1中“打印...”按钮的事件过程6.“帮助”对话框帮助文件需要用其它的工具制作，如MicrosoftWindowsHelpCompiler。例8.5属性HelpCommand：在线Help帮助类型HelpFile：Help文件的路径及其名称HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。8.2菜单的设计菜单形式：主菜单名快捷键热键子菜单标记主菜单条分隔线菜单项子菜单名菜单列表框一、菜单编辑器的使用工具／菜单编辑器(CTRL+E)窗体上快显菜单／菜单编辑器菜单项属性常用属性：1.标题(Caption)热键：前面加&2.名称(Name)文本框分隔符也应有名称。3.快捷键(Shortcut)菜单名没有快捷键4.复选(Checked)检查框TRUE有5.有效(Enabled)检查框6.可见(Visible)检查框操作按钮示例8.6建立一个有菜单功能的文本编辑器。二、菜单项增减在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。这同控件数组一样，使用菜单数组。步骤：1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）,Visual为False。2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。例8.7在8.6中的文件菜单中保留最近打开的文件清单。同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。三、弹出菜单(快捷菜单)显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。形式：[对象.]PopupMenu菜单名,标志,x,y标志，表示弹出的位置和触发的键位置性能0：X位置确定弹出菜单的左边界0只能用鼠标左键触发弹出菜单；4：弹出菜单以X为中心2：能用鼠标左、右键键触发弹出菜单；8：X位置确定弹出菜单的右边界位置与性能是加的关系。弹出菜单示例SubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuEditMenu,vbPopupMenuCenterAlignEndSub8.3多重窗体和多文档窗体一、多重窗体1.添加窗体“工程|添加窗体”新建现存添加“现存”窗体时要注意：防止多个窗体的name相同而不能添加；添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体；通过“另存为”命令以不同的窗体文件名保存，断开共享。2.保存窗体一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文件中记录了该工程的所有窗体文件名。3.设置启动窗体设置启动对象4.窗体语句(1)Load语句：装入窗体到内存但没有显示窗体形式：Load窗体名称(2)Unload语句：从内存删除窗体形式：Unload窗体名称“工程/属性”“启动对象”5.窗体方法(1)Show方法：显示一个窗体（当窗体没有Load，自动Load）[窗体名称].Show[模式]0－Modal：关闭才能对其它窗体进行操作。1－Modeless，可以对其它窗体进行操作。(2)Hide方法：隐藏窗体，没有Unload删除[窗体名称.]Hide6.不同窗体间数据的存取(1)存取控件的属性另一窗体名.控件名.属性(2)存取变量的值另一窗体名.全局变量名例输入和计算学习成绩。模块：PublicMATHAsSinglePublicPHYSICSAsSinglePublicCHEMISTRYAsSinglePublicCHINESEAsSinglePublicENGLISHAsSingle二、多文档界面(MDI)引例8.81.创建和设计MDI窗体及其子窗体(1)创建和设计MDI窗体创建：“工程/添加MDI窗体”命令标准窗体MDI窗体MDI子窗体(v6b8-1)设计：一般有菜单栏、工具栏、状态栏(2)创建和设计MDI子窗体创建：MDI子窗体是一个MDIChild属性为True的普通窗体。要创建多个子窗体，通过窗体类来实现：PublicSubFileNewProc()DimNewDocAsNewfrmMDIChildNo=No+1NewDoc.Caption=no&NoNewDoc.ShowEndSub设计：可有菜单栏，但必须有文本框。MDI子窗体的Name2.MDI窗体与子窗体的交互(1)活动子窗体和活动控件MDI窗体的两个属性：ActiveForm和ActiveControl例将子窗体的文本框中所选文本复制到剪贴板上：ClipBoard.SetTextfrmMDI.ActiveForm.ActiveControl.SelText(2)显示MDI窗体及其子窗体显示任何窗体的方法为show,还有有关规则：（1）加载子窗体时，其父窗体会自动加载并显示；反之则无。（2）MDI窗体有AutoShowChildren属性，决定是否自动显示子窗体(3)维护子窗体的状态信息(4)用QueryUnload卸载MDI窗体3.多文档界面应用程序中的“窗口”菜单(1)显示打开的多个文档窗口要在某个菜单上显示所有打开的子窗体标题，只需利用菜单编辑器将该菜单的WindowList属性设置为True。(2)排列窗口利用Arrange方法进行层叠、平铺和排列图标。形式：MDI窗体对象.Arrange排列方式排列方式常数值描述vbCascade0层叠所有非最小化vbTileHorizontal1水平平铺所有非最小化vbTileVertical2垂直平铺所有非最小化vbArrangeIcons3重排最小化8.4工具栏和状态栏“MicrosoftWindowsCommonControls6.0”将控件添加到工具箱，通过ToolBar、ImageList组合使用建立工具栏，步骤：1.在ImageList控件中添加所需的图象2.在ToolBar控件中创建Button对象。3.在ButtonClick事件中用SelectCase语句对各按钮进行相应的编程。一、在ImageList控件中添加图象ImageList控件不单独使用，专门为其它控件提供图像库.索引（Index）、关键字（Key）在ToolBar中引用图象文件的扩展名为：.ico、.bmp、.gif、.jpg等二、在ToolBar控件中添加按钮1.为工具栏连接图象ToolBar与ImageList的连接工具栏样式2.为工具栏增加按钮索引（Index）、关键字（Key）每个按钮的编号、标识,ButtonClick事件中引用；图象(Image)ImageList对象中的图象，值可以是Key或Index样式(Style)，共6种Style=0Style=3Style=4Style=1Style=2除菜单按钮(5)外的5种样式三、响应ToolBar控件事件ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮(2)用关键字Key确定按钮PrivateSubToolbar1_ButtonClick(ByvalButtonAsComctlLib.Button)SelectCaseButton.IndexCase1FileNewProcCase2FileOpenProc……EndSelectEndSub注意：第1个按钮的Index值为1。用Index还是用Key比较，Key可读性好，可维护性好。SelectCaseButton.KeyCaseTNewFileNewProcCaseTOpenFileOpenProc.....四、状态栏状态栏显示系统信息和对用户的提示，如：系统日期、软件版本、光标的当前位置、键盘的状态等。一般在窗口的底部。1．建立状态栏可插入图象显示的文本样式8.5RichTextBox控件RichTextBox控件可以输入和编辑文本，还可以实现多种文字格式、段落等的设置，还可以插入图形的功能，可真正构成一个象Word一样的字处理软件。选择“MicrosoftRichTextBoxControls6.0”将控件添加到工具箱。1.文件操作方法（1）LoadFile方法LoadFile方法能够将RTF文件或文本文件装入控件，其形式如下：对象.LoadFile文件标识符[，文件类型]文件类型：0或rtfRTF为RTF文件（缺省）；1或rtfTEXT为文本文件（2）SaveFile方法SaveFile方法将控件中的文档保存为RTF文件或文本文件，其形式：对象.SaveFile（文件标识符[，文件类型]）2．常用格式化属性格式化属性，可对该控件中选中的任何部分的文本使用不同的格式。分类属性值类型说明选中文本SelTextSelStartSelLength意义同Text控件对应属性字体、字号SelFontNameSelFontSize同上字型SelBoldSelItalicSelUnderlineSelStrikethru逻辑量粗体斜体下