码农手册 对话框与菜单程序设计

《码农手册 对话框与菜单程序设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、10.1.1由普通窗体创建自定义对话框对话框是应用程序在执行过程中与用户进行交流的窗口。在VB中，可以利用系统提供的通用对话框，也可以根据需要自己设计对话框。由普通窗体创建自定义对话框：设计步骤：1、窗体：工程→添加窗体。2、窗体定义成对话框风格。例如：不能移动、改变尺寸、最大或最小化例如：BorderStyle设置为1—单边框，不能改变大小；　　　ControlBox设置为False—删除控制菜单框；　　　MaxButton设置为False—删除最大化按钮；　　　MinButton设置为False—删除最小化按钮。3、在

2、对话框上添加按钮，如“确定”与“取消”按钮。4、在对话框上添加其它控件。5、在适当的位置编写显示对话框的代码。两种显示方式：模式对话框与无模式对话框。◆显示模式对话框模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按钮、“取消”按钮或者直接单击“关闭”按钮。其显示方法为：窗体名.ShowvbModal或：窗体名.Show1◆显示无模式对话框无模式对话框的焦点可以自由切换到其它窗体或对话框，而无需用户关闭当前对话框，其显示方法为：窗体名.ShowvbModeless或：窗体名.S

3、how0或：窗体名.Show例如：Form2.ShowvbModalForm2.ShowvbModeless为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。例如：PrivateSubCommand1_Click（）　　Form2.ShowvbModeless,Form1EndSub6、编写从对话框退出的代码可使用Hide方法或UnLoad语句来关闭自定义对话框，其格式为：Me.Hide或：<窗体名>.Hide或：UnLoad<窗体名>例如：UnloadForm2或：　Fo

4、rm2.Hide例如：设计对话框Form2如图10-1所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框。图10-1对话框Form2代码如下：PrivateSubCommand1_Click（）OnErrorGoToErrorHandler　　'设置错误陷阱FName=Trim（Text1.Text）IfOption1.Value=TrueThena=Shell（FName,1）IfOption

5、2.Value=TrueThena=Shell（FName,3）IfOption3.Value=TrueThena=Shell（FName,2）ExitSubErrorHandler：MsgBox"不能运行该程序",,"注意"ResumeNext　　　　　　　　'从产生错误的语句之后开始运行EndSubPrivateSubCommand2_Click（）UnloadMeEndSub10.1.2使用对话框模板创建对话框VisualBasic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，

6、即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等，如图10-2所示：图10-2当用户选择“登录对话框”，即可创建一个如图10-3所示的登录对话框。图10-3在该窗体的模块中，系统已有一段程序代码：PublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_

7、Click()'检查正确的密码IftxtPassword="password"Then'将代码放在这里传递'成功到calling函数'设置全局变量时最容易的LoginSucceeded=TrueMe.HideElseMsgBox"无效的密码，请重试!",,"登录"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub用户可以通过对以上代码的修改，来将此窗体作为自己的登陆对话框。10.2.1“打开”／“另存为”对话框VB提供了一组基于Windows的常用的标准对话框界面，用

8、户可以充分利用通用对话框（CommonDialog）控件在窗体上创建6种标准对话框，它们分别为打开（Open）、另存为（SaveAs）、颜色（Color）、字体（Font）、打印机（Printer）和帮助（Help）对话框。程序设计中如果所有的对话框都由设计人员来完成，将会耗费大量的时间，而利用系统提供