用VB60设计用户界面

第七章用VB6.0设计用户界面,窗体对话框菜单工具栏状态栏,窗体,在win的应用程序中，窗体是最基本的对象。,窗体的属性：略。,窗体的方法：Cls、Show、Print、Hide、Move方法等。,窗体的事件：Load、Unload、Click、Dblclick、Mousedown、Mousemove、Mouseup、Keydown、KeyUp、Active等。,对话框,对话框是一种用于实现用户和应用程序进行交互的特殊窗体。,对话框的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。,对话框分为模式和无模式两种类型。无模式用于显示频繁使用的命令与信息。,VB提供了三种解决方案：,系统预定义的对话框即：InputBox和MsgBox用户自定义对话框通用对话框控件,自定义对话框,由普通窗体创建自定义对话框，在窗体上放置常用控件，如命令按钮、单/复选按钮、文本框等。,对话框窗体与一般窗体在外观上是有区别的，需要设置窗体及控件的属性值来自定义窗体外观。,自定义对话框的制作步骤：,创建标题；设置对话框属性：如BorderStyle属性、ControlBox属性等；设置命令按钮及其属性：如Default属性、Cancel属性等；显示自定义对话框。关闭自定义对话框,使用对话框模板窗体创建对话框,VisualBasic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等。,通用对话框,通用对话框控件添加到工具箱的操作步骤如下：1单击“工程”菜单，选择“部件”命令；2在“部件”对话框的“控件”选项中找到并选择“MicrosoftCommonDialogControl6.0”控件部件；3单击“确定”，公共对话框控件被添加到工具箱。,通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。,通用对话框的方法：VB还提供了一组方法用来打开不同类型对话框:,ShowOpenShowSaveShowColorShowFontShowPrinterShowHelp,1.FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径）2.FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径）,“打开”/“另存为”对话框,3.Filter（过滤器）属性：确定文件列表框中所显示文件的类型，该属性的值显示在“文件类型”列表框中。如设置其值为：Cocuments(*.DOC)|*.DOC|TextFiles(*.TXT)|*.txt|AllFiles|(*.*)则在“文件类型”列表框显示下列三种文件类型以供用户选择Cocuments(*.DOC)扩展名为DOC的Word文件TextFiles(*.TXT)扩展名为TXT的文本文件AllFiles|(*.*)所有文件,4.FilterIndex（过滤器索引）属性：为整型值，表示用户在文件类型列表框选定了第几组文件类型。5.InitDir（初始化路径）属性：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为“C:MyDocuments”。,6.DefaultExt属性：字符型，用于确定保存文件的缺省扩展名。7.CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。,PrivateSubCommand1_Click()CommonDialog1.Filter=位图文件|*.bmp|Gif文件|*.gifCommonDialog1.ShowOpen或用Action=1Picture1=LoadPicture(CommonDialog1.FileName)EndSub,例如：用打开对话框选择图形文件并显示。,颜色对话框是当Action值为3时的通用对话框。重要属性Color：用来返回或设置选定的颜色。,“颜色”对话框,例如：PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSub,字体对话框是Action为4时的通用对话框,提供用户选择字体、字号及字体样式等。重要的属性有：Color,FontName,FontSize,FontBoldFontItalic,FontStrikethru,FontUnderline等。,“字体”对话框,Flags属性：设置所显示的字体类型，数据类型为Long。注意:在显示“字体”对话框前，必须先将Flags属性设置为cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。,打印对话框是当Action为5时的通用对话框，是一个标准打印对话窗口界面。属性FromPage：整型，起始页号Topage：整型，终止页号Copies：整型，打印份数;如果打印驱动程序不支持多份打印，该属性有可能始终返回1。,注意：打印对话框本身不能处理打印工作，仅仅是一个供用户选择打印参数的界面，所选参数存于各属性中，再通过编程来处理打印操作。,“打印”对话框,“帮助”对话框,帮助对话框是当Action为6时的对话框，是一个标准的对话窗口用于制作应用程序的在线帮助。它不能制作应用程序的帮助文件，只能将已制作好的帮助文件从磁盘中读出，并与界面连接起来，达到显示并检索帮助信息的目的。帮助文件需要用其它的工具制作，如MicrosoftWindowsHelpCompiler。,1.HelpCommand（帮助命令）属性：用于返回或设置需要的在线Help帮助类型。2.HelpFile（帮助文件）属性：用于指定已制作好的帮助文件的路径及文件名3.HelpKey（帮助关键字）属性：用于指定帮助信息的内容，帮助窗口中显示由该帮助关键字指定的帮助信息。4.HelpContext（帮助上下文）属性：,PrivateSubCommand1_Click()CommonDialog1.HelpCommand=3CommonDialog1.HelpFile=c:windowshelpnotepad.hlpCommonDialog1.HelpKey=复制文件CommonDialog1.ShowHelpEndSub,例如：在程序中显示笔记本的帮助信息。,设计一个窗体，包含1个文本框（RichTextBox1）和6个分别为“打开”、“另存为”、“颜色”、“字体”、“打印”和“帮助”命令按钮。,PrivateSubcommand1_Click()CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txt|Doc(*.doc)|*.doc|all(*.*)|*.*RichTextBox1.LoadFile(CommonDialog1.FileName)EndSubPrivateSubCommand2_Click()CommonDialog1.ShowSave没有提供真正的存储文件操作，仍需要编程完成储存操作。EndSub,PrivateSubCommand3_Click()CommonDialog1.Flags=1+256即&H1+&H100CommonDialog1.ShowFontRichTextBox1.SelFontName=CommonDialog1.FontNameRichTextBox1.SelFontName=CommonDialog1.FontSizeRichTextBox1.SelItalic=CommonDialog1.FontItalicRichTextBox1.SelBold=CommonDialog1.FontBoldRichTextBox1.SelStrikeThru=CommonDialog1.FontStrikethruRichTextBox1.SelUnderline=CommonDialog1.FontUnderlineRichTextBox1.SelColor=CommonDialog1.ColorEndSub,PrivateSubCommand4_Click()CommonDialog1.ShowColorRichTextBox1.BackColor=CommonDialog1.ColorEndSubPrivateSubCommand5_Click()EndEndSub,菜单,菜单是图形化界面一个必不可少的组成元素，通过菜单对各种命令按功能进行分组，使用户能够更加方便、直观地访问这些命令。Windows环境下的应用程序一般为用户提供三种菜单：窗体控制菜单、下拉菜单与快捷菜单。,有三种方法启动菜单编辑器：1.单击工具栏菜单图标2.工具/菜单编辑器3.窗体上快捷菜单菜单编辑器,菜单编辑器,属性区,编辑区,菜单列表区,菜单的主要属性1.标题(Caption)：在窗口上显示。例如：输入&File，显示为：File，热键：Alt+F2.名称(Name)：菜单项的名称，分界符也应有名称。3.快捷键(Shortcut)：下拉列表框4.下一个(Next)：设置下一个菜单项。5.和按钮：“”下一级菜单项；“”上一级菜单项。,6.插入(Insert)按钮：插入菜单项7.删除(Delete)按钮：删除菜单项8.和按钮：改变菜单项位置。9.复选(Checked)检查框：菜单项为选定项。10.有效(Enabled)检查框：True：菜单项可选；False：不可选。11.显示窗口列表(WindowList)检查框：决定是否显示所有打开的子窗体标题，用于多文档应用程序。,1设计下拉菜单2设计子菜单或改变子菜单级别3为菜单项分组:菜单名用减号“-”4.为菜单项指定访问键和快捷键:与命令按钮设置访问键相同。5为菜单项加上复选标记6禁止使用菜单项:在程序代码中可以通过程序代码：菜单名.Enabled=False7菜单项的增减,菜单设计的几项操作：,例如：编写一个菜单程序。,PrivateSubmenu11_Click()Text1.Text=清除文本框中的内容EndSubPrivateSubmenu21_Click()Text1.FontSize=12设置字体大小EndSubPrivateSubmenu22_Click()Text1.FontSize=16设置字体大小EndSub,PrivateSubmenu23_Click()menu23.Checked=Notmenu23.Checked控制标记显示与否Text1.FontBold=menu23.Checked粗体EndSubPrivateSubmenu24_Click()menu24.Checked=Notmenu24.CheckedText1.FontItalic=NotText1.FontItalic斜体，与粗体控制功能类似EndSubPrivaeSubText1_Change()menu2.Visible=(Text1)EndSub,弹出式（快捷）菜单,弹出式菜单又称为快捷菜单。用VB菜单编辑器设计,用PopupMenu方法弹出，其格式为：对象名.PopupMenu菜单名,标志,x,y,boldcommand标志：0：菜单项只对鼠标左键有反应。2：菜单项对鼠标左键和右键都有反应，,说明：PopupMenu方法只能用在MouseDown事件过程。,PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2EndSub,PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2,menu24EndSub,动态菜单,动态增减则是在运行阶段根据用户的选择来增加或减少菜单项。1.修改菜单的标题（Caption属性）2.使菜单命令有效或无效（Enable属性）3.显示菜单项上的复选标志（Checked属性）4.使菜单控件不可见（Visible属性）,将控件MicrosoftWindowsCommonControls6.0添加到工具箱，通过ToolBar、ImageList组合使用建立工具栏。,创建工具栏：步骤：1.在ImageList控件中添加所需的图象；2.在ToolBar控件中创建Button对象；3.设置ToolBar控件的“属性页”；4.在ButtonClick事件中用SelectCase语句对各按钮进行相应的编程。,工具栏（ToolBar）,在ImageList控件中添加图象：ImageList控件不单独使用，专门为其它控件提供图像库。,索引（Index）、关键字（Key）：在ToolBar中引用图象文件的扩展名为：.ico、.bmp、.gif、.jpg等,在ToolBar控件中添加按钮1.为工具栏连接图象,ToolBar与ImageList的连接,工具栏样式,2.为工具栏增加按钮,索引（Index）、关键字（Key）每个按钮的编号、标识,ButtonClick事件中引用；,图象(Image)ImageList对