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

了解自定义对话框的使用。 掌握通用对话框的建立和常用属性、常用方法； 掌握利用菜单设计器来建立、修改菜单项的方法； ;第9章 对话框与菜单程序设计;;;诊耳被赣飘橙燎熔猾稗元伎吐蛀箔颜荧避蝉反斡径汗瞧靳寥冯起念羔挤率第9章 对框与菜单程序设计第9章 对框与菜单程序设计;例程1：由普通窗体创建登陆对话框（图9-3） BorderStyle为3， 标签、文本框、 命令按钮设置 如图所示，注意 设置快捷键 ;9.1.2 使用对话框模板窗体创建对话框;;例程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;使用对话框模板创建的对话框——登陆对话框;;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.1.3显示与关闭自定义对话框;2、关闭自定义对话框;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; 属性 1. FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2. FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径）; 3. Filter（过滤器）属性：确定文件列表框中所显示文件的类型，该属性的值显示在“文件类型”列表框中。如设置其值为： Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*) 则在“文件类型”列表框显示下列三种文件类型以供用户选择 Cocuments(*.DOC) 扩展名为DOC的Word文件 Text Files(*.TXT) 扩展名为TXT的文本文件 All Files|(*.*) 所有文件; 4. FilterIndex（过滤器索引）属性：为整型值，表示用户在文件类型列表框选定了第几组文件类型。 5. InitDir（初始化路径）属性：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为“C:\My Documents\”。;9.2.2“颜色”对话框 颜色对话框是当Action值为3时的通用对话框，如右图。 重要属性 Color：用来返回或设置选定的颜色。 ;9.2.3 “字体”对话框 字体对话框是Acti