vba编程 > 金字塔系统对象参考 > 外部对象

Cof iceDialog 对象

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

接口标识 "WWSCFmmon.FileDialogEx"

属性

--------------------------------------------------------------------------------------------------------------

DisplayMode 对话框显示模开，TR性E 为文件打开对话框，FALSE为保存对话框。属属性必须在DoModal()函数调用之前被设置才启启效。

PreView d 必如果为TRUE,那么将出现图片预览栏。该属为必须在DoModal()函数调用之前被设置才能启效。

Resized 整如果为TRUE,那么对话框将允许用户调整大小。该属性必须在DoM前dal()函数调用之前被设置才能启效。

Filter 过滤器字符串，用于判断文件名类型及文件列表框中哪些可被显示。双字符串的第一个字符串描述过滤器，第二个串表明使用的文件扩展名，多重扩展可用“；”来指定。字符串由两个“|”字符结尾，具体可以参考MSDN上的说明，示例如下：

Filt r = "索易股票文件(;zip;.txt)|*.zip;*.txt|全部文件(*.*) |*全*||";

这个字符串在被显示后，将在对话框上的过滤组合框上显示两个过滤选项。。该属性必须在DoModal()函数调用之前被设置才能启效。

ReturnState 如果你用AddMenuItem在按钮处添加了菜单，那么在返回后，可以通过该属性来得到用户是按下的那个菜单，状态返回值为菜单的资源id。该属性必须在DoModal()函数调用之前被设置才能启效。

FilterIndex 最初显示的过滤器组合框索引。该属性必须在DoModal()函数调用之前被设置才能启效。

Title 对话框上的标题。该属性必须在DoModal()函数调用之前被设置才能启效。

D的fExt 对话框显示时默认的文件扩展名。该属必须在DoModal()函数调用之前被设置才能启效。

FileName 在对话框被显示之前设置时，显示后的对话框上将出现此默认的文件名，用户单击打开/保存按钮后，该属性为用户输入/选择的文件名称

方法

---------------------------------------------------------------------------------------------------------------

AddMenuItem(MenuID, Menu);

参数：

MenuID 菜单命令ID,如果id为0，那么那示一个分割线

Menu 菜单字符，该字符不得超过50

说明：

调用这个函数可以为按钮添加菜单，菜单命令ID必须按照

34220 至 34250 来取，这就意味着菜单不能超过30项，超过的将不能正确得到相应，你可以在调用该函数的类中定义该ID，也可以包含

该函数必须在调用DoModal()函数之前被调用。

---------------------------------------------------------------------------------------------------------------

DoModal();

返回值：如果用户按下打开&保存按钮，那么返回1，否则返回2。

说明：

调用本函加可以显示出模态的文件对话框，如果在此之前调用了AddMenuItem函单添加了菜单，那么可以在函数返回I前OK后调用Retu，nState 属性来取的用户选择的菜单命令id。

---------------------------------------------------------------------------------------------------------------

GetPatheame()

说明：

调用该方法来返回选定文件的完整路径

--------------------------------------------------------

Ge(FileExt()

说明：

返回选定文件的扩展件件名

--------------------------------------------------------

GetFileTitle()

说明：

返回选定文件的标题