第三讲 对话框与菜单程序设计.pptVIP

第8章　用户界面设计 8.1.1　添加通用对话框 ShowX方法设置被显示的对话框的类型，其语法格式为： 　　 其中CommonDialogName为通用对话框控件的名字。ShowX方法参考表8.1。 文件对话框具有两种模式，即Open和Save (Save As)，其中Open模式可以使用户指定打开的文件，Save模式可以使用户指定保存的文件。 常用属性： FileName该属性为字符串，用于设置和得到用户所选定的文件名（包括路径名）。 FileTitle该属性设置时无效，在程序中为只读，用于返回文件名（不包含路径）。 Filter该属性用于过滤文件类型，使文件列表框中只显示指定类型的文件。指定的属性值将被加载在“打开”文件对话框的“文件类型”列表框中。可以在设计时设置该属性，也可以在代码中设置该属性。其格式为: CommonDialogName.Filter = [描述符1|过滤器1|描述符2|过滤器2…] 例如： CommonDialog1.Filter = word 文件|*.doc|文本文档|*.txt|图形文件|*.jpg;*.gif FilterIndex 该属性决定在文件类型列表框中默认显示第几组类型的文件。当FilterIndex=1，表示显示第一组类型的文件。即上例如中的Office Word类型文件。对于上例中的“*.doc”,“*.txt”,“*.jpeg;*.gif”的FilterIndex依次为1，2，3。如果FilterIndex3或为0（不能小于0，否则出错）都是显示第一组类型的文件即*.doc类型文件。 InitDir 该属性用来指定打开对话框中的初始目录（表现在打开对话框的查找范围）。若显示当前目录不需设置。 【例8.1】“打开”文件对话框示例。在窗体上添加一个通用对话框控件、一个命令按钮和一个图片框。设置通用对话框控件的初始目录为“C:\”，过滤文件类型为各种图片类型。单击命令按钮时，显示“打开”文件对话框，选择某一个图片后，在图片框中显示出来。 Private Sub Command1_Click() With CommonDialog1 .Filter = JPG文件|*.jpg|GIF文件|*.gif|其他图片文件|*.bmp;*.ico| .FilterIndex = 1 .InitDir = c:\ .Action = 1 Picture1.Picture = LoadPicture(.FileName) End With End Sub 8.1.3 “另存为”对话框 在程序运行时，当通用对话框控件的Action属性为2或者调用ShowSave方法时，系统就会弹出“另存为”文件对话框 常用属性： DefaultExt?设置对话框默认文件类型即缺省扩展名。 【例8.2】“打开”文件对话框和“另存为”对话框示例。在窗体上添加一个通用对话框控件、一个命令按钮和两个标签。设置通用对话框控件的初始目录为“C:\”，过滤文件类型为文本文档、演示文稿和word文档。单击命令按钮时，交替显示“打开”文件对话框和“另存为”对话框。如果用户选择了某个文件，则在标签中分别显示文件的路径和文件名。如果用户点击“取消”按钮，则在标签中显示“放弃操作”。 Dim opti% Private Sub Command1_Click() On Error GoTo nofile 设置错误陷阱，转移到指定的位置执行 With CommonDialog1 .InitDir = C:\ .Filter = 文本文件|*.txt|演示文稿|*.ppt|Word文档|*.doc .FilterIndex = 3 .CancelError = True End With If opti = 0 Then CommonDialog1.ShowOpen opti = 1 Command1.Caption = 另存为对话框 Else CommonDialog1.ShowSave opti = 0 Command1.Caption = 打开文件对话框 End If Label1.Caption = CommonDialog1.FileName Label2.Caption = CommonDialog1.FileTitle Exit S