数组元素-欢迎进入吉林敦化职业教育中心.ppt

* 三、 弹出式菜单 弹出菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。显示位置取决于单击鼠标键时指针的位置。设计与普通菜单相同（如果不希望菜单出现在窗口的顶部，该菜单名Visible属性设置为False ）。菜单弹出的方法： [对象.]PopupMenu 菜单名[, 标志, x, y] 标志：表示弹出的位置和触发的键 Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign End Sub * 4.4　对话框 VB中有三种对话框： 1.预定义的对话框：系统定义的。 用InputBox、MsgBox调用。 2.通用对话框：标准对话框。 　　有六种（打开、另存为、颜色、字体、打印和帮助） 　　调用方法：“工程”－“部件”－Microsoft Common Dialog Control 6.0 3.用户自定义对话框：用户自定义的含有控件的窗体。 * 一、通用对话框(CommonDialog) 主要共同属性： Action：打开通用对话框。 DialogTiltle：通用对话框标题。 CancelError：True：选择“取消”按钮，出现错误警告，自动将错误对象 Err.Number置为32755(cdlCancel)以便供程序判断。 　　 False(缺省)：选择“取消”按钮，没有错误警告。　 打开通用对话框： 　　在设计状态，CommonDialog控件以图标的形式显示在窗体上，其大小不能改变，在运行时，控件本身被隐藏。要在程序中显示通用对话框，必须对控件的Action属性赋值，或者使用说明性的Show方法。 * 1.“文件”对话框（打开、保存） 需设置的属性: Filter FileName InitDir FilterIndex=1 * 属性 FileName：设置和得到用户所选的文件名（包含路径） FileTitle：不包含路径 Filter：过滤文件类型，使文件列表框中只显示指定类型的文件。其格式为：文件说明｜文件类型。例如， Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 InitDir：初始化路径。若缺省，表示当前目录。 “打开”文件对话框属性页 DialogTiltle FileName InitDir Filter FilterIndex DefaultExt * 例1 用命令按钮的Click事件显示文件打开对话框 CommonDialog1.InitDir=“C:\Windows” 设置初始目录 CommonDialog1.Filter = 文本文件 | *.Txt 过滤文件类型 CommonDialog1.CancelError = True 控制取消按钮 CommonDialog1. ShowOpen 打开对话框 2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。 属性 基本和“打开”对话框相同，另外还有一个 DefaultExt：所存文件的缺省扩展名 3. “颜色”对话框 属性 Color：返回或设置选定的颜色。 例2 “颜色”对话框的使用。在上例中增加一个命令按钮，用于打开“颜色”对话框，通过“颜色”对话框设置标签前景颜色。 * 4. “字体”对话框：在使用之前，必须设置Flags属性值 Flags属性：指示所显示的字体类型，必须设置。 cdlCFScreenFonts H1 屏幕字体 cdlCFPrinterFonts H2 打印机字体 cdlCFBoth 　　　　　H3 打印机字体和屏幕字体。 cdlCFEffects H100 显示删除线和下划线检查框以及颜色组合框 FontUnderline FontName FontBold、FontItalic FontSize FontStrikethru Color Min、Max * 5. “打印”对话框 属性 FromPage：起始页号 ToPage：终止页号 Copies：打印份