对话框与菜单程序设计

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

1、了解自定义对话框的使用。掌握通用对话框的建立和常用属性、常用方法；掌握利用菜单设计器来建立、修改菜单项的方法；本章要求：第9章对话框与菜单程序设计本章重点：通用对话框的使用、菜单的建立与使用第9章对话框与菜单程序设计“对话框”可以被看作一种特殊的窗体，它的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。VB提供了三种解决方案：系统预定义的对话框（InputBox和MsgBox）(已学习)用户自定义对话框通用对话框控件。创建用户自定义对话框,有两种方法：由普通窗体创建自定义对

2、话框：在一个普通窗体上，使用标签、文本框、命令按钮等控件，通过编写代码来实现人机交互功能。使用对话框模板窗体创建对话框：使用VB系统提供的“对话框”模版，通过简单的修改便可以创建一个自定义对话框。9.1自定义对话框9.1.1由普通窗体创建自定义对话框使用标签、命令按钮、文本框等控件，进行适当的编码实现人机交互功能。对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。窗体的BorderStyle属性值设置为3（VbFixedDoubleialog），此时窗体包含控制菜单框和标题栏，不包含最大化和最小化按钮

3、。等价与ControlBox为True、MaxButton和MinButton设置为False的情况。1．使用BorderStyle属性,返回或设置对象的边框样式。2．使用ControlBox、MaxButton和MinButton属性ControlBox为True时窗体显示控制菜单框，为False时不显示。MaxButton和MinButton设置为False则无最大化最小化按钮。例程1：由普通窗体创建登陆对话框（图9-3）BorderStyle为3，标签、文本框、命令按钮设置如图所示，注意设置快捷键9.1.2使用对话框模板窗体

4、创建对话框VisualBasic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框等。9.1自定义对话框如教材中的登陆对话框的使用。选择“登陆对话框”，然后在代码上进行修改以满足自身需要。程序中只是验证密码，并未验证用户名，实际使用中，应先验证用户名，再验证密码的。例程9-2第一个为一个闪动界面，用计时器来控制使得标签的字体慢慢变大，变大到计时器停止工作关闭此窗口，打开登录窗口

5、。OptionExplicitDimiAsIntegerPrivateSubForm_Load()i=10Label1.FontSize=iTimer1.Enabled=TrueTimer1.Interval=1000EndSubPrivateSubTimer1_Timer()If(i<=20)Theni=i+2Label1.FontSize=iElseTimer1.Enabled=FalsefrmLogin.ShowForm1.HideEndIfEndSub闪动界面代码段：使用对话框模板创建的对话框——登陆对话框OptionEx

6、plicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'settheglobalvartofalse'todenoteafailedloginLoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_Click()'checkforcorrectpasswordIftxtUserName="zxq"ThenIftxtPassword="123"Then'placecodetoheretopassthe'successtot

7、hecallingsub'settingaglobalvaristheeasiestForm2.ShowfrmLogin.HideLoginSucceeded=TrueMe.HideElseMsgBox"无效密码,请重试!",,"登录"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfElseMsgBox"无效的用户名,请重试!",,"登录"txtUserName.SetFocusSendKeys"{Home}+{End}"EndIfEndSub在登录窗口中完成用户名和密码的检验，“zx

8、q”“123”。如不正确则用msgbox对话框给予提升，如果正确则打开form2窗口9.1.3显示与关闭自定义对话框1、显示自定义对话框（1）模式对话框模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按