《菜单与对话框》PPT课件.ppt

第9章 菜单与对话框,本章主要内容,菜单的设计 工具栏和状态栏 对话框,9.1 菜单设计,9.1.1 菜单编辑器(Menu Editor) 9.1.2 下拉式菜单 9.1.3 运行时动态改变菜单属性 9.1.4 弹出式菜单,进入菜单编辑器,打开【菜单编辑器】窗口有三种方法： （1）从【工具】菜单上，单击【菜单编辑器】。 （2）在工具栏上单击【菜单编辑器】快捷按钮。 （3）用鼠标选中窗体后，单击鼠标右键，在弹出菜单中选择【菜单编辑器】选项并单击。,菜单编辑器简介,【名称】（Caption）,Name（名称）,Checked（复选）,Enabled（有效）,Visible（可见,索引（Index),菜单项的控制,菜单项标记 Checked（复选）：设置是否选中标志。 Enabled（有效）：决定菜单项是否对事件作出响应。 （正常显示或灰色） Visible（可见）：决定菜单项是否可见。,键盘的选择,快捷键,快捷键,访问键,标题输入： &File,下拉式菜单,下拉菜单例题【例9.1】,菜单的属性如表下表 所示,启动【菜单编辑器】，进行菜单设计，菜单的属性如表9.2 所示：,运行时动态改变菜单属性,在Windows应用程序中，往往随着用户不同的操作，菜单项也会有相应的变化，常见的有【复选菜单】、【失效菜单】和【不可见菜单】等变化。 我们以例9.1为例来做一个动态的菜单项，其代码段如下：,具体【显示隐藏动态菜单】、【增加菜单项】和【删除菜单项】等的Click事件代码如下： Private Sub MnuShowHide_Click() If MnuShowHide.Checked = True Then MnuShowHide.Checked = False 隐藏复选标记 MnuDyna.Visible = False 隐藏“动态菜单”项 Else MnuShowHide.Checked = True 显示复选标记 MnuDyna.Visible = True 显示“动态菜单”项 End If End Sub Private Sub MnuAdd_Click() Dim Dm As Integer Dm = MnuD.Count + 1 计算索引值 Load MnuD.Item(Dm) 增加索引为Dm的新菜单项 MnuD.Item(Dm).Caption = “新增的菜单项“ + Str(Dm) 为新菜单项设置标题 MnuD.Item(Dm).Visible = True 显示新增菜单项 MsgBox “新增菜单项“ + Str(MnuD.Count) MnuDel.Enabled = True 使删除菜单可有用 End Sub Private Sub MnuDel_Click() If MnuD.Count 1 Then MsgBox “删除新增菜单项“ + Str(MnuD.Count) Unload MnuD.Item(MnuD.Count) 删除菜单项 If MnuD.Count = 1 Then MnuDel.Enabled = False 使删除菜单不可用 End If End If End Sub,弹出式菜单,激活弹出式菜单使用PopupMenu方法：,PopupMenu ，flags，x ，y，boldcommand 其中： l 对象名默认为当前窗体。 l flags参数用于设定弹出菜单的性能。 l x，y参数为坐标值。 l boldcommand参数用于在弹出式菜单中显示一个菜单控制。 l flags参数可以定义弹出式菜单的位置与性能。取值分两组：位置常量和行为常量。Flags各常量取值如下： -位置常量取值： 0(默认)：弹出菜单的左边定位于X坐标。 4：弹出菜单以X点坐标为中心线。 8：弹出菜单的右边定位于X坐标。 -行为常量取值： 0(默认)：菜单命令只接收右键单击。 2：菜单命令可以接收左、右键单击。,【例9.1】弹出式菜单代码如下,Private Sub myText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then 判断是否右击了鼠标 myText.Enabled = False PopupMenu MnuColor 调用MnuColor菜单项 myText.Enabled = True End If End Sub,9.2 工具栏和状态栏,工具栏(ToolBar)是Windows窗口的组成部分 状态栏(StatusBar)是Windows应用程序窗口中用来显示各种状态信息,工具栏,状态栏,工具栏(ToolBar),在标准工具箱中插入制作工作具栏所需要的控件。 (1)选择“工程”菜单项中的“部件”选项。 (2)选择“部件“对话框中的“控件”选项卡。 (3)单击“”Microsoft Windows Common Controls6.0”左边的小方框. (4)单击“确认”按钮，这时可看到工具箱中增加了一些控件，ToolBar(工具栏)控件和StatusBar控件(状态栏)也在其中.,Toolbar,ImageList,ToolBar“按钮”选项对话框中的主要属性：,l 索引(Index)：表示每个按钮的索引序列号即数字编号。 l 关键字(Key)：:表示每个按钮的标识名。 l 图像(Image)：:在做图形按钮时，每个按钮对应的ImageList对象中的图像，它的值可以是图像控件中图形的Key或Index值。 l 值(Value)：表示按钮的状态。其取值有两种：按下(tbrPressed)和未按下(tbUnpressed)，当样式值取1或2时有用。 l 样式：表示按钮的样式，共五种。,【例9.2】工具栏按钮制作,用索引值(Index)来确定工具栏按钮,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index 利用索引值来判断选择了哪个按钮 Case 1 单击“新建“按钮时 MsgBox “选择新建“ Case 2 单击“打开“按钮时 MsgBox “选择打开“ Case 3 单击“保存“按钮时 MsgBox “选择保存“ Case 4 单击“复制“按钮时 MsgBox “选择复制“ Case 5 单击“退出“按钮 MsgBox “选择退出“ End Select End Sub,图像工具栏按钮的制作过程,在工具栏上制作图像按钮需要分两步，首先需要将按钮所需图像集中放在图像列表中，就是对图像列表进行初始化。二是将利用工具栏按钮的图像(Image)与所需图像连接起来,工具栏按钮的图像是通过ToolBar控件从ImageList的图像库中获得的。ImageList控件y就是一个图像的集合，这些图像可以被W1ndows公共控件使用。ImageList控件不能独立使用，它需要TooLBar控件等来显示所存储的图像。具体步骤如下： 1)在工具箱里中单击ImageList控件将它拖到窗体中的任何位置。(位置不重要，因为它运行时是不可见的)。 2) 在ImageList控件图标图上右击，选择快捷菜单中“属性”命令，打开ImageList属性页窗口 设置ImageList控件属性窗口中“通用”标签中的单选按钮16l 6，确定图像的大小。选择“图像”标签，ImageList控件“图像”选项卡。 3) 单击“插入图片”按钮，将所需图形的图形文件打开，则选中的图形将自动的添加到图形对话框中。如图9-13添加了五个图形 “new”、“open”、”save”、”copy”、”exit”，设置它们的索引值分别为1,2,3,4,5. 4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”. .将“图像列表”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。,单击“插入图片”按钮，将所需图形的图形文件打开，则选中的图形将自动的添加到图形对话框中。如图9-13添加了五个图形 “new”、“open”、”save”、”copy”、”exit”，设置它们的索引值分别为1,2,3,4,5. 4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”. .将“图像列表”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。,4)选中ToolBar1控件单击右键，在快捷菜单中选择最后一项“属性”. 将“图像列表”选项设置为Imagelist1表是ToolBar1控件的图形来自于Imagelist1控件。,ImageList控件的主要属性：,索引(Index)：个表示每个图像的编号，对应于工具栏个每个按钮属性页中的图像属性选项。 关键字(Key)：表示每个图像的标识名，也可以为工具栏每个按钮属性页的图像属性引用。 图像数：表示已经插入的图像数目 “插入图片”按钮：可以插入.ico、.bmp 、.jpg等 图像文件。 “删除图片”按钮：用来删除选中的图。 1) 设置ImageList控件属性窗口中“通用”标签中的单选按钮16l 6，确定图像的大小。选择“图像”标签，图9-13所示为ImageList控件“图像”选项卡。 4) 单击“插入图片”按钮，将所需图形的图形文件打开，则选中的图形将自动的添加到图形对话框中。如图9-13添加了五个图形 “new”、“open”、”save”、”copy”、”exit”，设置它们的索引值分别为1,2,3,4,5.,图像按钮实例,例9-2-2,9.3 自定义对话框,9.3.1 由普通窗体创建自定义对话框,对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。,窗体的BorderStyle属性值设置为3（VbFixedDoubleialog）,1BorderStyle属性,2ControlBox属性 属性值为True时窗体显示控制菜单框，为False时不显示。,10.1.2 使用对话框模板窗体创建对话框,Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等，,1显示自定义对话框,可使用窗体对象的Show方法显示自定义对话框,（1）模式对话框 模式对话框在焦点可以切换到其它窗体或对话框之前要求用户必须作出响应以关闭对话框，如单击“确定”按钮、“取消”按钮或者直接单击“关闭”按钮。 其显示方法为： 窗体名. Show vbModal （其中vbModal是系统常数，值为1） （2）无模式对话框 无模式对话框的焦点可以自由切换到其它窗体或对话框，而无需用户关闭当前对话框，其显示方法为：窗体名. Show。,可使用Hide方法或UnLoad语句来关闭自定义对话框，其格式为： Me.Hide 或 .Hide UnLoad 。,9.3 通用对话框,工程/部件,选定部件标签,选定Microsoft CommDialog Control 6.0,通用对话框添加到工具箱,确定,一、通用对话框的基本属性和方法 通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表：,1 属性 Action属性：数值型，决定打开何种类型的对话框（见上表） DialogTiltle属性：对通用话框标题。 CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。 True：选择“取消”按钮，出现错误警告； Err置为32755 (cdlCancel) 。 False(缺省)：选择“取消”按钮，没有错误警告。 2 通用对话框的方法 除了Acton属性，VB还提供了一组方法用来打开不同类型对话框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp,9.3.1 “打开”/“另存为”对话框,DialogTiltle,FileName,InitDir,Filter,FilterIndex,DefaultExt,属性 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”。,6DefaultExt属性：字符型，用于确定保存文件的缺省扩展名。 7CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按下“取消”按钮时是否产生出错信息。,例：使用对话框打开文本,9.3.2 “字体”对话框,字体对话框是Action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 属性： 字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max, mint等，见下图。,FontName,FontBold、FontItalic,FontSize,FontUnderline,Color,Min、Max,FontStrikethru,Flags属性：设置所显示的字体类型，数据类型为Long。 注意 在显示“字体”对话框前，必须先将 Flags 属性设置为 cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否则，会发生字体不存在的错误。 Flages属性应取下列值（见P267. 表10.3)： cdlCFScreenFonts &H1 屏幕字体 cdlCFPrinterFonts &H2 打印机字体 cdlCF