第九章对话框与菜单程序设计.ppt

了解自定义对话框的使用。 掌握通用对话框的建立和常用属性、常用方法； 掌握利用菜单设计器来建立、修改菜单项的方法； ;第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 “字体”对话框 字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, Font