鼠标。键盘。对话框。菜单.pptVIP

“打开”对话框 Filter属性 用于指定过滤文件的类型，只有指定的文件类型，才出现在“文件类型”列表框中， 设计阶段：说明1| 文件类型1| 说明2| 文件类型2…… 运行阶段： 对话框名.Filter=“说明1| 文件类型1| 说明2| 文件类型2……” 用于返回打开文件的文件名 在设计时无效，在运行时只读 与FileName属性不同之处是该属性不返回路径 FileTitle属性 “打开”对话框 FilterIndex属性 用来指定缺省的过滤器，用Filter属性设置多个过滤器后，每个过滤器自动获得一个值，第一个过滤器的值是1，第二个过滤器的值是2，…… InitDir属性 用于指定“打开”对话框中的初始目录，缺省显示当前目录 “另存为”对话框 是Windows存储文件时的一个标准界面，可供用户选择和输入保存文件的路径和文件名 具有通用对话框的通用属性 具有“打开”对话框的属性 DefaultExt属性 表示保存文件的缺省扩展名 当保存的文件没有扩展名时，自动给该文件添加由DefaultExt属性指定的扩展名 “打开”和“保存”对话框 –例 图片浏览和保存功能 对象 属性 值 image1 Stretch True CommonDialog1 Filter jpg文件| *.jpg |gif文件| *.gif Private Sub Command1_Click() CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Private Sub Command2_Click() CommonDialog1.ShowSave SavePicture Image1.Picture, CommonDialog1.FileName End Sub “颜色”对话框 是Windows环境下设置颜色的一个标准界面 具有通用对话框的通用属性 Color属性 用于设置初始颜色，并可返回用户所选择的颜色 Flags属性 用于设置“颜色”对话框的类型，有四种取值1、2、4、8 1：使Color属性定义的颜色在首次显示对话框时显示出来 2：打开完整的“颜色”对话框 4：只有基本颜色窗口，禁止打开自定义颜色窗口 8：显示一个“帮助”按钮 “字体”对话框 设置并返回所用字体的名字、字形、大小、效果和颜色 具有通用对话框的通用属性 Flags属性 设置通用对话框是否显示屏幕字体、打印机字体或两者皆有，是必须设置的属性，Flags属性必须是下列常数之一与其他选项之和： cdlCFScreenFonts或1：屏幕字体 cdklCFPrinterFonts或2：打印机字体 cdlCFBoth或3：两种字体都有 “字体”对话框 Flag属性设为259（3+256）是3与常数cdlcFEffects（256，允许中划线、下划线和颜色选项）之和，“字体”对话框中出现颜色、效果选项 Font属性集 包括六个属性，设置字体名称、大小、是否加粗、是否倾斜等 FontName FontSize FontBold FontItalic FontStrikethru FontUnderline Color属性 返回用户设置的字体颜色，在使用Color属性之前，必须确保Flags属性中含有cdlcFEffects值。 “颜色”和“字体”对话框-例 使用“颜色”对话框和“字体”对话框设置文本框的背景色、前景色和字体。“字体”对话框中要求出现效果和颜色选项 对象 属性 属性值 text1 Multiline True CommonDialog1 Flags 259 Command1 Caption 背景色 Command2 Caption 前景色 Command3 Caption 字体 “颜色”和“字体”对话框-例 Private Sub Command1_Click() CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color End Sub Private Sub Command2_Click() CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub Private Sub Command3_Click() CommonDialog1.ShowFont Text1.FontName