第9章 对话与菜单程序设计.pptVIP

第9章 对话框与菜单程序设计 创建用户自定义对话框,有两种方法： 由普通窗体创建自定义对话框： 在一个普通窗体上，使用标签、文本框、命令按钮等控件，通过编写代码来实现人机交互功能。 使用对话框模板窗体创建对话框： 使用VB系统提供的“对话框”模版，通过简单的修改便可以创建一个自定义对话框。 例程1：由普通窗体创建登陆对话框（图9-3） BorderStyle为3， 标签、文本框、 命令按钮设置 如图所示，注意 设置快捷键 如教材中的登陆对话框的使用。 选择“登陆对话框”，然后在代码上进行修改以满足自身需要。 程序中只是验证密码，并未验证用户名，实际使用中，应先验证用户名，再验证密码的。 例程9-2 第一个为一个闪动界面，用计时器来控制使得标签的字体慢慢变大，变大到计时器停止工作关闭此窗口，打开登录窗口。 Option Explicit Dim i As Integer Private Sub Form_Load() i = 10 Label1.FontSize = i Timer1.Enabled = True Timer1.Interval = 1000 End Sub 使用对话框模板创建的对话框——登陆对话框 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() set the global var to false to denote a failed login LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() check for correct password If txtUserName = zxq Then If txtPassword = 123 Then place code to here to pass the success to the calling sub setting a global var is the easiest Form2.Show frmLogin.Hide LoginSucceeded = True Me.Hide Else MsgBox 无效密码,请重试!, , 登录 txtPassword.SetFocus SendKeys {Home}+{End} End If Else MsgBox 无效的用户名,请重试!, , 登录 txtUserName.SetFocus SendKeys {Home}+{End} End If End Sub 9.2 通用对话框 9.2 通用对话框 说明： 1. Action属性：返回或设置被显示的对话框的类型。此属性不能在属性窗口内设置，只能在程序中设置或引用。 Object.Action[=Value] 2. DialogTiltle属性：通用对话框的标题。 3. Show方法： Object.ShowX 其中X为open,save,color, font,printer,help，对应数值为1、2、3、4、5、6 9.2.1 “打开”/“另存为”对话框 属性 1. FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2. FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 9.2 通用对话框 9.2 通用对话框 9.2 通用对话框 9.2.3 “字体”对话框 字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max等. 9.2 通用对话框 9.2 通用对话框 例程9-3 通用对话框应用 Option Explicit Private Sub Command1_Click() Dim str As String Text1.Text = CommonDialog1.Fil