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

了解自定义对话框的使用。 掌握通用对话框的建立和常用属性、常用方法； 掌握利用菜单设计器来建立、修改菜单项的方法；,本章要求：,第9章 对话框与菜单程序设计,本章重点：,通用对话框的使用、菜单的建立与使用,第9章 对话框与菜单程序设计,“对话框”可以被看作一种特殊的窗体，它的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。 VB提供了三种解决方案： 系统预定义的对话框（InputBox和MsgBox）(已学习) 用户自定义对话框 通用对话框控件。,创建用户自定义对话框,有两种方法： 由普通窗体创建自定义对话框： 在一个普通窗体上，使用标签、文本框、命令按钮等控件，通过编写代码来实现人机交互功能。 使用对话框模板窗体创建对话框： 使用VB系统提供的“对话框”模版，通过简单的修改便可以创建一个自定义对话框。,9.1 自定义对话框,9.1.1 由普通窗体创建自定义对话框,使用标签、命令按钮、文本框等控件，进行适当的编码实现人机交互功能。对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。,窗体的BorderStyle属性值设置为3（VbFixedDoubleialog），此时窗体包含控制菜单框和标题栏，不包含最大化和最小化按钮。等价与 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 使用对话框模板窗体创建对话框,Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框等。,9.1 自定义对话框,如教材中的登陆对话框的使用。 选择“登陆对话框”，然后在代码上进行修改以满足自身需要。 程序中只是验证密码，并未验证用户名，实际使用中，应先验证用户名，再验证密码的。,例程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 Timer1_Timer() If (i = 20) Then i = i + 2 Label1.FontSize = i Else Timer1.Enabled = False frmLogin.Show Form1.Hide End If 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,在登录窗口中完成用户名和密码的检验，“zxq”“123”。如不正确则用msgbox对话框给予提升，如果正确则打开form2窗口,9.1.3显示与关闭自定义对话框,1、显示自定义对话框 （1）模式对话框 模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按钮、“取消”按钮或者直接单击“关闭”按钮。 其显示方法为： 窗体名. Show vbModal 其中vbModal是系统常数，值为1） （2）无模式对话框 默认的， 无模式对话框的焦点可以自由切换到其它窗体或对话框，而无需用户关闭当前对话框，其显示方法为： 窗体名. Show,9.1 自定义对话框,2、关闭自定义对话框,可使用Hide方法或UnLoad语句来关闭自定义对话框，其格式为： Me.Hide 或 .Hide UnLoad 。 这里的Me是一个关键字，这个关键字适用于类模块中的每个过程。当类有多个实例时，Me 在代码正在执行的地方提供引用具体实例的方法。一般指当前窗体。,9.1 自定义对话框,9.2 通用对话框,内置控件CommonDilalog为通用对话框，用户可以在应用程序中通过通用对话框选择文件名、字体、颜色以及设置打印机等。工具栏中通常不出现通用对话控件的图标，添加的方法是：,通用对话框图标,9.2 通用对话框,通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表：,表9.1 打开通用对话框的方法与Action属性设置,说明： 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（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径）,9.2.1 “打开”/“另存为”对话框,使用通用对话框控件的ShowOpen方法，或将Action属性赋值为1，可以在运行时显示“打开”对话框。 使用通用对话框控件的ShowSave方法，或将Action属性赋值为2，可以在运行时显示“另存为”对话框。,9.2 通用对话框,3. Filter（过滤器）属性：确定文件列表框中所显示文件的类型，该属性的值显示在“文件类型”列表框中。如设置其值为： Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|(*.*) 则在“文件类型”列表框显示下列三种文件类型以供用户选择 Cocuments(*.DOC) 扩展名为DOC的Word文件 Text Files(*.TXT) 扩展名为TXT的文本文件 All Files|(*.*) 所有文件,9.2 通用对话框,4. FilterIndex（过滤器索引）属性：为整型值，表示用户在文件类型列表框选定了第几组文件类型。 5. InitDir（初始化路径）属性：该属性用来指定打开对话框中的初始目录，若不设置，系统则默认为“C:My Documents”。,6DefaultExt属性：字符型，用于确定保存文件的缺省扩展名。 7CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。,9.2 通用对话框,9.2.2“颜色”对话框 颜色对话框是当Action值为3时的通用对话框，如右图。 重要属性 Color：用来返回或设置选定的颜色。,9.2 通用对话框,9.2.3 “字体”对话框 字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max等.,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Min、Max,9.2 通用对话框,Flags属性：设置所显示的字体类型，数据类型为Long。 注意 在显示“字体”对话框前，必须先将 Flags 属性设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。 Flages属性应取下列值（见P270. 表9-2)： cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCFBoth &H3 打印机字体和屏幕字体。 cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框,9.2 通用对话框,9.2.4 其他对话框 通用对话框除以上介绍的4种通用对话框外，还提供了“打印”和“帮助”对话框。 “打印”对话框可以设置打印输出的方法，如打印范围、打印份数以及当前安装的打印机信息等。“帮助”对话框则通过使用ShowHelp方法调用Windows系统的帮助引擎。这两种对话框的使用方法与前面介绍的类似，读者可以参考VB有关资料，得到进一步的说明。,9.2 通用对话框,例程9-3 通用对话框应用,Option Explicit Private Sub Command1_Click() Dim str As String Text1.Text = “ CommonDialog1.FileName = “*.txt“ CommonDialog1.Filter = “*.txt“ CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, str Text1.Text = Text1.Text + str + vbCrLf Loop Close #1 End Sub,Private Sub Command2_Click() CommonDialog1.Filter = “*.txt“ CommonDialog1.FileName = “*.txt“ CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #2 Print #2, Text1.Text Close #2 End Sub,Private Sub Command3_Click() CommonDialog1.ShowColor CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color 设置文本框的前景色 End Sub,Private Sub Command4_Click() CommonDialog1.Flags = cdlCFScreenFonts CommonDialog1.Min = 1 CommonDialog1.Max = 100 CommonDialog1.ShowFont CommonDialog1=4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold End Sub,Private Sub Command5_Click() Dim i As Integer CommonDialog1.ShowPrinter CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Printer.EndDoc 结束打印 End Sub Private Sub Command6_Click() CommonDialog1.ShowHelp End Sub,9.3 菜单设计,9.3.1 菜单的类型,Windows环境下的应用程序一般为用户提供三种菜单：窗体控制菜单、下拉菜单与快捷菜单。,启动菜单编辑器： 有三种方法 1 单击工具栏菜单图标 2 工具/菜单编辑器 (CTRL+E) 3 窗体上快捷菜单 菜单编辑器 菜单编辑器操作界面如右所示。,9.3.2 菜单编辑器,9.3 菜单设计,菜单编辑器的使用技巧,1. 标题(Caption)： 2. 名称(Name)： 3. 快捷键(Shortcut)： 4. 下一个(Next)： 5. 和按钮 6. 插入(Insert)按钮： 7. 删除(Delete)按钮： 8 和按钮： 10. 复选(Checked)检查框： 10. 有效(Enabled)检查框： 11. 显示窗口列表(Window List)检查框：,根据设计要求，依次输入或选择所有项目，即可完成。例：,菜单的主要属性 1. 标题(Caption)：在窗口上显示，例如：输入&File，显示为： File，热键：Alt+F 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框 4 下一个(Next)： 设置下一个菜单项。 5. 和按钮：“” 下一级菜单项；“”上一级菜单项。 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. 和按钮： 改变菜单项位置。 10. 复选(Checked)检查框：菜单项为选定项。 10. 有效(Enabled)检查框：True：菜单项可选；False：不可选。 11. 显示窗口列表(Window List)检查框：,菜单编辑器的使用技巧,1设计下拉菜单 2设计子菜单或改变子菜单级别 3为菜单项分组 菜单名用减号“-” 4为菜单项指定访问键和快捷键 与命令按钮设置访问键相同。 5为菜单项加上复选标记 6禁止使用菜单项 在程序代码中可以通过程序代码： 菜单名.Enabled=False 7菜单项的增减,菜单设计的几项操作