CofficeDialog 文件对话框

CreateObject("WWSCommon.FileDialogEx")

该自动化组件实现了类似Office系列文件打开/关闭样式的对话框，可以在95、98、2000系统下运行。

属性

属性	说明
DisplayMode	对话框显示模式，TRUE 为文件打开对话框，FALSE为保存对话框 该属性必须在DoModal()函数调用之前被设置才能启效
PreView	如果为TRUE,那么将出现图片预览栏 该属性必须在DoModal()函数调用之前被设置才能启效
Resized	如果为TRUE,那么对话框将允许用户调整大小 该属性必须在DoModal()函数调用之前被设置才能启效
Filter	过滤器字符串，用于判断文件名类型及文件列表框中哪些可被显示。 双字符串的第一个字符串描述过滤器，第二个串表明使用的文件扩展名，多重扩展可用“；”来指定。字符串由两个“|”字符结尾，具体可以参考MSDN上的说明。 示例： Filter = "所有股票文件(.zip;.txt)|.zip;.txt|全部文件(.) |.||"; 这个字符串在被显示后，将在对话框上的过滤组合框上显示两个过滤选项 该属性必须在DoModal()函数调用之前被设置才能启效
ReturnState	如果你用AddMenuItem在按钮处添加了菜单，那么在返回后，可以通过该属性来得到用户是按下的那个菜单，状态返回值为菜单的资源id 该属性必须在DoModal()函数调用之前被设置才能启效
FilterIndex	最初显示的过滤器组合框索引 该属性必须在DoModal()函数调用之前被设置才能启效
Title	对话框上的标题 该属性必须在DoModal()函数调用之前被设置才能启效
DefExt	对话框显示时默认的文件扩展名 该属性必须在DoModal()函数调用之前被设置才能启效
FileName	在对话框被显示之前设置时，显示后的对话框上将出现此默认的文件名，用户单击打开/保存按钮后，该属性为用户输入/选择的文件名称

方法

方法	说明
AddMenuItem;	AddMenuItem(MenuID, Menu) 参数：  MenuID: 菜单命令ID,如果id为0，那么将显示一个分割线  Menu:菜单字符，该字符不得超过50 调用这个函数可以为按钮添加菜单，菜单命令ID必须按照34220 至 34250 来取，这就意味着菜单不能超过30项，超过的将不能正确得到相应，你可以在调用该函数的类中定义该ID，也可以包含 该属性必须在DoModal()函数调用之前被设置才能启效
DoModal	调用本函数可以显示出模态的文件对话框，如果在此之前调用了AddMenuItem函数添加了菜单，那么可以在函数返回IDOK后调用ReturnState属性来取的用户选择的菜单命令id 返回值： 如果用户按下打开&保存按钮，那么返回1，否则返回2
GetPathName	返回值：选定文件的完整路径
GetFileExt	返回值：选定文件的扩展文件名
GetFileTitle	返回值：选定文件的标题

示例

Sub Test()
    Set openfile = CreateObject("WWSCommon.FileDialogEx")
    openfile.Title = "文件框测试"
    openfile.DisplayMode = TRUE
    openfile.Filter = "全部文件(*.*) |*.*||"

    if openfile.DoModal() <> 1 Then
        Exit Sub
    End If 

    strPath = openfile.GetPathName()
    MsgBox strPath

End Sub