visual basic基础与案例开发详解其他

便同时能避免由于误操作而带来的严重。框是用户和应用程序交互的掌握输入框的应掌握消息框的应公用框——“打开”框的应公用框——“另存为”框的应公用框——“颜色”框的应公用框——“字体”框的应公用框——“打印”框的应第8章菜单和框的应 VisualBasic的菜单设计功能来设计自己的程序菜单。菜单是Windows系统用户界面中重要并具有特色的元一，它将各种程序功能命令通常简单应用程序只由一个窗体和几个控件组成，但通过增加菜单可以增强Visual8.1说明：— —说明：— —VisualBasic窗体设计状态下，启动菜单编辑器的方式有以下三种：在常用上单击【菜单编辑器】按钮Ctrl+E所示。8.3名称属性只是程序代码中用来菜单项的标识，它相当于控件中的Name属性，注自动生成的菜单单击代码标识区内，可以看出该菜单项的名称。

8.4菜单项用户要删除快捷键赋值，则应当选取列表顶部的None选项，如图8.5所示。键，即提供了一种快速键盘单步的方法，而不同于按住ALT键、再按菜单标题字Ctrl+N用户要删除快捷键赋值，则应当选取列表顶部的None选项，如图8.5所示。

8.5查找相同的帮助，并使用适当的办法将其显示出来。0-None1-Left2-Middle3-Right

8.6有效属性决定是否允许菜单项对作出响应即菜单的有效状态默认状态为有效MDIMDI 按钮。单击便将选定的菜单项向左移一个等级，从级跳至高等级 按钮。单击便将选定的菜单项在同一级菜单内向上移动一个显示位置 按钮。单击便将选定的菜单项在同一级菜单内向下移动一个显示位置 按钮。单击便将光标由选定的菜单项移动到下一个菜单项 按钮。单击便在选定的菜单项上方插入一新菜单项 按钮。单击便将选定的菜单项删除1步果希望某一字符成为该菜单项的键，也可以在该字符前面加上一个(&)字符。在菜单第4步在“名称”文本框中，输入将用来在代码中该菜单控件的名字5步7步8.1】在窗体上设计一个两级菜单(8.7所示)8.71步EXE 步8.8所示。其中(&F)是为了方便用户使用键盘操作菜单，当程序运行时，(&)FAltF键，8.83步景颜色(&C)”，在“名称”文本框中输入“mnuEditColor8.9所示。步8.10所示。图8.9设置“背景颜色”菜单 图8.10设置红色菜单键”下拉列表上选择“Ctrl+G8.11所示。下拉列表上选择“Ctrl+B8.12所示。8.13图8.11设置绿色菜单 图8.12设置蓝色菜单键”下拉列表上选择“Ctrl+Q8.14所示。图8.13设置分隔 图8.14设置退出菜8.15所示。8.1510步为菜单项添加程序代码，首先对窗体上的菜单进行初始化设置，将各个颜色的选择标志“√”去除，即进入代码编辑窗口，在Form的Load中输入如下代码： PrivateSub mnuRed.Checked=FalsemnuGreen.CheckedmnuRed.Checked=FalsemnuGreen.Checked=FalsemnuBlue.Checked=FalseEnd11步为“退出”菜单项添加代码，即选择【文件】→【退出】命令，进入代码编辑窗口的退出菜单项单击内，在自动生成的PrivateSubExit_Click()和EndSub之 第12步用类似的方法分别进入红色、绿色和蓝色的菜单项单击中，在其中分别PrivateSubmnuBlue_Click()mnuRed.Checked=FalsemnuGreen.CheckedPrivateSubmnuBlue_Click()mnuRed.Checked=FalsemnuGreen.Checked=FalsemnuBlue.Checked=TrueForm1.BackColor=vbBlueEndPrivateSubmnuGreen_Click()mnuRed.Checked=FalsemnuGreen.Checked=TruemnuBlue.Checked=FalseForm1.BackColor=vbGreenEndPrivateSubmnuRed_Click()mnuRed.Checked=-TruemnuGreen.Checked=FalsemnuBlue.Checked=FalseForm1.BackColor=vbRedEnd红色选定标志无效绿色选定标志无效步→【背景颜色】→8.17图8.16选择红 图8.17选择绿PopupWindows系统中，不仅可以通过右击来激活弹出式菜单，还能通过其他上下文菜单，这取决于在何种中调用Popup方法。在Windows系统中，常常使用弹出式菜单来那些在菜单栏中不常用的选项，因此在程序中使用弹出式菜单，可以增强程序的易用性。接下来介绍如何使用 方法可以在MDIForm或Form对象 name,Flags,X, ObjectObject，则带有焦点的窗体OFlags式菜单的位置和行为。Flag8-1所示。8-1Flag值描0弹出式菜单的左边定位于 4弹出式菜单的于x8弹出式菜单的右边定位于0仅当使用鼠标左按钮时，弹出式菜单中的项目才响应鼠标单击，为系统默认值2不论使用鼠标右按钮还是左按钮，弹出式菜单中的项目都响【例8.2】在【例8.1】的基础上，使用Popup 第1步在代码编辑窗口内，选择Form的MouseUp，通过获取Button参数值判断是否右键单击而Popup PrivatePrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2EndIfEndmnuFile,LeftAlign2步8.18所示的图8.18右击空白 图8.19选择绿色命3步 mnuFile,LeftAlign,,, 步8.20所示。8.20PopupPopup方法均 VisualBaisc 在基于Windows的应用程序中，框被用于提示用户提供应用程序继续执行所需要8.21所示。图8.21“打开工程” 图8.22关于VisualBasic中的“关于”框也是一个使用框来显示信息的案例，即在菜单” VisualBasic的软件信息。” ，。一般来说框就是个窗口，也被分为模式框和非模式框两种框不是框进行交互。通常所见的框大多数为模态框，非模式框不用户的输入。，。其他操作则要求用户应当先关上框或对它的消息作出响应如图8.23所示“字体图8.23“字体”模式的框允许在框与其他窗体之间转移焦点而不用关闭框。非模式框用于显示频繁使用令与信息。比如VisualBasic中的“查找”框就是一个无模式8.24所示。图8.24“查找”vbModal，例如：Form1.ShowForm1.Show若用户要将窗体作为无模式框显示，则可以使用不带Style参数的Show方法，若窗体显示为模式框则只有当框关闭之后在Show方法后的代码才能执行。当窗体被显示为无模式框时，在该窗体显示出来以后，Show方法后面的代码将立即执 框是通过InputBox函数来实现基本的输入功能，消 框则是通过MsgBox 框是通过InputBox函数来实现基本的输入功能，消 框则是通过MsgBox函框来实现基本的输出功能 框，但这不仅耗时而且还损耗系统资源。为此，VisualBasic提供了公用 (CommonDialog控件)来调用Windows的常 “颜色”和“打印” 框，来快速实现对常 框的调用 框的输入和输出功能增强了系统人际交互功能，因此在VisualBasic中经常会使用到它们由于前面章节已经介绍了输入 8.3】使用输入和输出框创建一个登录系统，当且仅当输入框上的用户名和符合预设定的要求时，显示恭喜输出框，否则用输出框提示错误。其具体操1步EXELoad事PrivateSubForm_Load()和EndSub之间输入如下代码：DimDimstrAAsString,strBAsstrAInputBox("请输入您的用户名登录系统IfstrA="Visual"strB=InputBox("请输入 ","登录系统")IfstrB="Basic"ThenMsgBox"您是合法的用户 ！",vbOKOnly,"恭喜MsgBox"您的 错误！",vbCritical,"错误"EndIfMsgBox您的用户名错误vbCritical错误End提 您是合法的用户 是通过InputBox函数语句产生，输出信 框则是通过MsgBox函数语句产生图8.25提示输入用户 图8.26提示用户名错第3步当输入正确的用户名“Visual”时，单击【确定】按钮，进入环节，即弹出提示输入的框，如图8.27所示。8.27，第4步若在文本框中输入非“Basic”，则弹出提示框，提示错误，单，图8.28错误提 图8.29正确公用框的综合应公用框的应用是通过CommonDialog控件来实现的。CommonDialog控件提供一组运行Windows帮助引擎时，控件还能够显示帮助。CommonDialog使用指定的方法，CommonDialog控件能够调用下列框使用ShowOpen方法，调用“打开”框使用ShowSave方法，调用“另存为”框使用ShowColor方法，调用“颜色”框使用ShowFont方法，调用“字体”框ShowHelpWindows工具箱，在弹出菜单上选择“部件”命令，屏幕上弹出“部件”框。第2步进入“部件”框的“控件”选项卡下，在列表框中单击选定CommonDialogControl6.08.30第3步单击【确定】按钮，返回控件工具箱，此 CommonDialog6.08.31图8.30选择“CommonDialogControl6.0”复选 图8.31CommonDialog控控件一样，CommonDialog“打开”框主要用于指定用户要使用的驱动器 、文件扩展名和文件名提示框，提示所选择的文件的路径和文件名。其具体操作步骤如下：第1步新建标准EXE工程，将 CommonDialogControl6.0控件添加至控件工具箱中，然后将该控件添加至窗体上，显示如图8.32所示。第2步设置窗体加载时便启动“打开”框，则需要在窗体的Load中添加代PrivateSubForm_Load()PrivateSubForm_Load()DimstrAAsStringstrA=CommonDialog1.FileNameMsgBox你打开的文件路径是：&strAEndShowOpen 框的FileName属性，FileName属性的功能是返”第3步运行程序屏幕弹“打开框“查找范围下拉列表上选择文件夹，8.33所示。”图8.32添加CommonDialog控 图8.33选择需要打开的文8.348.34””“另存为框在外观上与“打开框相同，只是框的标题和文件名相比要””第1步与【例8.4】一样，设置窗体加载时便启动“另存为”框，则需要在窗体的Load中添加代码，即进入代码编辑窗口，在其中输入如下代码：PrivatePrivateSubForm_Load()DimstrAAsStringCommonDialog1.Filter="Textfiles(*.txt)|*.txt|BatchFilesCommonDialog1.FilterIndex strACommonDialog1.FileNamePrint"你保存的文件路径是："PrintstrAEnd是返回或设置 Description1|Filter1|Description2|Filter2...。其中，Description1Description2等是列表框(|Filter设置间必须用管道符号“|8.35所示。图8.35“另存为”】第3步单击【保存框，返回窗体中，在窗体上已同步输出保存的文件路径及文件名，如图8.36所示的文件的后缀名便是在“另存为”框中所设置的保存类型选项】8.36””ColorFontBoldFontItalicFontStrikethruFontStrikethruFontNameFontSize在使用ColorFontStrikethru属性和FontStrikethruFlagscdlCFEffects第1步与【例8.5】不同的是，程序代码需要在窗体的Click中执行，即在代码PrivatePrivateSubCommonDialog1.Flags=cdlCFBothOr '设 性Print"VisualBasic"Form1.Font.Name='显示字 框中的各项属性赋值给窗体的相对应属Form1.Font.Size=CommonDialog1.FontSizeForm1.Font.Bold=CommonDialog1.FontBoldForm1.Font.ItalicForm1.Font.Size=CommonDialog1.FontSizeForm1.Font.Bold=CommonDialog1.FontBoldForm1.Font.Italic=CommonDialog1.FontItalicPrint"VisualBasic"End步8.37步8.388.39图8.38输出效果 图8.39输出效果CommonDialog控件的FlagsVisualBasic常数cdlCCRGBInitCommonDialog控件的FlagsVisualBasic常数cdlCCRGBInit”回窗体时窗体的背景颜色显示“颜色框上选定颜色该示例的具体操作过程如下第1步在窗体的DblClick代码编辑窗口中，输入如下代码PrivateSubForm_DblClick()CommonDialog1.Flags=cdlCCRGBInitPrivateSubForm_DblClick()