对话框、文件管理控件和菜单设计13

1、对话框、文件管理控件和菜单设计内容简介对话框文件管理控件菜单对话框通用对话框控件CommonDialog工具栏添加对话框控件窗体上使用对话框控件运行时可通过调用通用对话框的方法或设置其Action属性打开通用对话框通用对话框控件CommonDialog如执行“CommonDialog1.ShowOpen”或“CommonDialog1.Action = 1”的效果是相同的类类 型Action属属性方法“打开开”对话对话框1ShowOpen“另存为为”对话对话框2ShowSave“颜颜色”对话对话框3ShowColor“字体”对话对话框4ShowFont“打印”对话对话框5ShowPrinter

2、“帮帮助”对话对话框6ShowHelp调用“打开”/“另存为”对话框步骤如下：步骤如下：建立CommonDialog1，2. 执行“CommonDialog1.ShowOpen”或“CommonDialog1.Action=1”可调用“打开”对话框通用对话框控件CommonDialog例：调用打开文件对话框选择图像文件，在图片框控件中显示打开”对话框与“另存为”对话框的区别界面显示不同“打开”对话框通常用于选择已存在的文件，后续的操作一般为打开文件 VS 后续的操作一般为保存文件对话的结果改变了通用对话框控件的FileName属性。通用对话框控件CommonDialog调用“颜色”对话框例例：

3、设计一个简单的画板程序，可以根据选择线型的粗细、颜色，用鼠标在图片框内绘制矩形。调用“字体”对话框FontName，选定字体的名称；FontBold，是否选定粗体；FontItalic，是否选定斜体；FontStrikethru，是否选定水平删除线；FontUnderline，是否选定了下划线；FontSize，选定字体的大小；Color，选定字体的颜色。CommonDialog1.FlagsFlags属性决定对话框将呈现哪些与字体相属性决定对话框将呈现哪些与字体相关的属性供选择。关的属性供选择。“字体字体”对话框的对话框的FlagsFlags属性见表属性见表7 7系统常数系统常数值值说明说明

4、CdlCFScreenFonts&H1 即 1使对话框只列出系统支持的屏幕字体CdlCFPrinterFonts&H2 即 2使对话框只列出打印机支持的字体CdlCFBoth&H3 即 3使对话框列出可用的打印机和屏幕字体CdlCFEffects&H100即256指定对话框允许删除线、下划线以及颜色效果CommonDialog1.Flags = 257”（257=256+1），因此对话框有是否允许删除线、下划线及颜色选项（256），也有系统支持的屏幕字体选项（1）例：“字体”对话框示例。在文本框上显示文字，利用“字体”对话框来设置所显示文字的字体、字型、大小、颜

5、色等通用对话框的其他重要属性Filter属性例如，为CommonDialog1.Filter赋值如下：Word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*“|”为管道符号，它将描述文件类型的字符串表达式（如“Word文档”）与指定文件扩展名的字符串表达式（如“*.doc”）分隔开。例句中设置文件类型列表为三项，可以仿照例句扩展为更多选项FilterIndex 注意：注意： FilterIndex FilterIndex （缺省为（缺省为1 1）例如，为CommonDialog1.Filter赋值如下： “Word文档(*.doc)|*.doc|

6、文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”执行“= 1”等同于单击文件类型列表框中的“WordCommonDialog1.FilterIndex文档(*.doc)”，文件列表区域只显示扩展名为.Doc的所有文件。执行“CommonDialog1.FilterIndex = 2”等同于单击文件类型列表框中的“文本文件(*.txt)”，文件列表区域只显示扩展名为.txt的所有文件。InitDir属性InitDir属性为字符型，用于指定刚打开“打开”或“另存为”时所文件列表区域所显示文件（夹）的盘符、路径。例如，希望刚打开“打开”或“另存为”对话框后，能够显示c:windows

7、下所有文件（夹），则可先执行语句“CommonDialog1.InitDir =c:windows。 如果指定的路径不存在，系统则默认为本程序文件所在的文件夹FileTitle属性FileTitle属性为字符型，用于返回或设置用户要打开或保存的文件名（不含路径），而FileName属性则是包含路径的文件全名。文件管理科空间驱动器列表框控件Drive属性 (字符串类型)赋值语句格式：.Drive=注意： Drive1.Drive=CDE和Drive1.Drive=c:作用相同原因在于“驱动器名”字符串的第一个字符是有效字符（不区别大小写）如单击驱动器列表框控件Drive1中D:盘图标，则Driv

8、e1.Drive的值为d:。用户只能通过列表框选择使用，没有添加/删除等方法驱动器列表框控件ListIndex属性（0 - ListCount-1）,返回被选中表项的索引值 List属性（字符串数组）ListCount属性（正整数）若系统有驱动器a:、c:、d:、e:、f:（光驱），则驱动器列表框控件Drive1的ListCount属性值为5，执行下列语句后在窗体上输出的结果为“a: c: d: e: f:”。For i=0 To Drive1.ListCount - 1 Print Drive1.List(i);Next i驱动器列表框控件驱动器列表框控件常用事件Change事件不管是运行时

9、单击驱动器列表框中某驱动器图标还是在代码中对驱动器列表框控件的Drive属性赋值，都会触发Change事件，但是所选的驱动器或所赋的值与驱动器列表框原来的Drive属性值相同，则不会触发Change事件例 在窗体上设计一个驱动器列表框控件Drive1、标签控件Label1。初始显示当前驱动器为C:盘；选择驱动器列表框中的盘符，在标签上显示相应的当前驱动器信息目录列表框控件目录列表框控件用于显示目录列表：下图所示是运行时的界面显示、Note：目录列表框一般应与驱动器列表框联合使用，否则只能访问系统当前目录下的各级目录目录列表框控件Path属性，返回或设置目录列表框的当前目录 “c:”下的子目录、

10、相应的Path属性为“c:”。 如果双击列表中的“DRIVERS”则“DRIVERS”被突出显示，同时显示其下一级子目录，且Path属性当前值为“c: DRIVERS”Path属性值最后一个字符是否为“”，取决于目录列表框的当前目录是否为根目录改变目录列表框的Path属性主要有下列两种方法两种方法： 双击目录列表框某一表项，其Path属性被设置为被该表项所对应的目录： 目录列表框的Path属性可以在运行时用赋值语句设置。 赋值语句格式：赋值语句格式： .Path=.Path= ListIndexListIndex属性属性,返回被选中表项的索引值双击目录列表框中某目录图标时,目录列表框中某目录图

11、标时单击目录列表框中某目录图标时，该目录被突出显示表示被选中、同时改变ListIndex属性，但并不改变Path属性(.Path=.List(.ListIndex)目录列表框表项的索引号遵循以下规则：当前目录所对应的索引号为-1，当前目录的父目录所对应的索引号为-2，当前目录父目录的父目录所对应的索引号为-3，依此类推；当前目录的第1个子目录所对应的索引号为0，第2个子目录所对应的索引号为1，当前目录的最后一个子目录所对应的索引号为ListCount-1List属性（字符串数组）ListCount属性目录列表框控件常用事件 Change事件，当目录列表框的Path属性值发生改变时，引发Chan

12、ge事件 Click事件，单击目录列表框控件Dir1的某一表项时，引发Click事件。被单击的表项被突出显示，ListIndex的值发生改变，但Dir1.Path属性没有改变。例：显示选定驱动器下的目录列表使目录列表框显示指定驱动器下的目录，应执行如下语句。 .Path=.Path=.Driver.Driver文件列表框控件文件列表框控件 文件列表框控件常用属性 文件列表框控件常用事件文件列表框控件常用属性Path属性: 文件列表框总是显示Path属性所指示的文件夹中的文件，该属性不能设计时通过属性窗口设置。Pattern属性: 该属性用以设置文件列表框中文件的显示模式，缺省值为“*.*”表示

13、显示所有类型的文件。例如：在Form_Load事件中写入语句 File1.Pattern=*.exe，使File1列表框中只显示所有扩展名为EXE的文件。写入语句File1.Pattern=*.dat;a*.*，使File1列表框只显示所有扩展名为DAT以及文件名首字符为a的文件FileName属性。用以设置或返回所选文件的文件名（不包含路径信息），不能在属性窗口中设置，运行时若在文件列表框中选择文件将自动设置FileName属性值。不同于通用对话框控件的FileName属性（它返回包含路径信息的文件全名），目录列表框的FileName属性只包含文件的主名和扩展名If Right(File1.

14、Path, 1) = Then fs = File1.Path + File1.FileNameElse fs = File1.Path + + File1.FileNameEnd If在Window xp之后的版本中运行，可直接写作“fs=File1.Path +File1.FileName”文件列表框控件常用事件 Click事件。当单击文件列表框中的表项时，引发Click事件 DblClick事件。当双击文件列表框中的表项时，引发DblClick事件。例：在窗体上建立驱动器、目录、文件列表框，统计所选目录下一级子目录数与文件数直接调用外部可执行文件的Shell函数 使用Shell函数可以调

15、用外部可执行文件（扩展名如.exe、.com、.bat等），缺省扩展名为.exe。不能执行操作系统内部命令及所有非执行文件（如.DOC文档），否则将显示出错信息格式：格式：Call Shell(,style)Call Shell(,style)或或 Shell Shell ,style,styleStyle属性值含义0窗口被隐藏，且焦点会移到隐藏窗口1窗口具有焦点，且会还原到它原来的大小和位置2窗口会以一个具有焦点的图标来显示3窗口是一个具有焦点的最大化窗口4窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。菜单设计菜单设计如果建立菜单数组，必须使用该属性菜单编辑器 （工具 - 菜单编辑器）下拉式菜单建立下拉式菜单，通过菜单来控制文本框中文字的字体、颜色等弹出式菜单实现弹出式菜单的步骤为：在菜单编辑器中建立菜单；在窗体或控件的MouseUp或MouseDown事件中调用PopupMenu方法显示该菜单。PopupMenu方法使用格式：Pop