Dialog 属性参考

📋 属性列表

属性	类型	说明
DialogTitle	String	对话框标题
InitialDir	String	初始目录
DefaultExt	String	默认扩展名
FileName	String	默认/选中的文件名
Filter	String	文件过滤器
MultiSelect	Boolean	是否允许多选
OverwritePrompt	Boolean	保存时是否提示覆盖
PathMustExist	Boolean	路径必须存在
FileMustExist	Boolean	文件必须存在
HideReadOnly	Boolean	隐藏只读复选框
NewDialogStyle	Boolean	使用新对话框样式

---

🏷️ DialogTitle 属性

说明

设置或获取对话框标题栏显示的文本。

语法

Public Property Let DialogTitle(ByVal vValue As String)
Public Property Get DialogTitle() As String

使用示例

Dim dlg As New cDialog
dlg.DialogTitle = "请选择要打开的文件"
Dim file As String
file = dlg.ShowOpen

---

📁 InitialDir 属性

说明

设置或获取对话框打开时的初始目录。

语法

Public Property Let InitialDir(ByVal vValue As String)
Public Property Get InitialDir() As String

使用示例

dlg.InitialDir = "C:\Users\Documents"

---

📎 DefaultExt 属性

说明

设置或获取默认的文件扩展名（不带点号）。

语法

Public Property Let DefaultExt(ByVal vValue As String)
Public Property Get DefaultExt() As String

使用示例

dlg.DefaultExt = "txt"  ' 默认保存为 .txt 文件

---

📄 FileName 属性

说明

设置默认文件名或获取用户选择的文件名。

语法

Public Property Let FileName(ByVal vValue As String)
Public Property Get FileName() As String

使用示例

' 设置默认文件名
dlg.FileName = "新建文档.txt"

' 获取选择的文件名（ShowOpen/Save后）
Dim selected As String
selected = dlg.FileName

---

🔍 Filter 属性

说明

设置或获取文件过滤器字符串。格式：描述1|模式1|描述2|模式2

语法

Public Property Let Filter(ByVal vValue As String)
Public Property Get Filter() As String

使用示例

' 直接设置过滤器
dlg.Filter = "文本文件|*.txt|所有文件|*.*"

' 使用 AddFilter 方法添加
dlg.AddFilter "文本文件", "*.txt"
dlg.AddFilter "所有文件", "*.*"

---

☑️ MultiSelect 属性

说明

设置或获取是否允许多选文件。

语法

Public Property Let MultiSelect(ByVal vValue As Boolean)
Public Property Get MultiSelect() As Boolean

使用示例

dlg.MultiSelect = True
Dim files As Collection
Set files = dlg.SelectFiles  ' 返回 Collection

---

⚠️ OverwritePrompt 属性

说明

设置或获取保存文件时是否提示覆盖已存在的文件。

语法

Public Property Let OverwritePrompt(ByVal vValue As Boolean)
Public Property Get OverwritePrompt() As Boolean

使用示例

dlg.OverwritePrompt = True  ' 默认开启

---

✅ PathMustExist 属性

说明

设置或获取是否要求路径必须存在。

语法

Public Property Let PathMustExist(ByVal vValue As Boolean)
Public Property Get PathMustExist() As Boolean

使用示例

dlg.PathMustExist = True  ' 默认开启

---

📋 FileMustExist 属性

说明

设置或获取是否要求文件必须存在（仅打开对话框）。

语法

Public Property Let FileMustExist(ByVal vValue As Boolean)
Public Property Get FileMustExist() As Boolean

使用示例

dlg.FileMustExist = True  ' 默认开启

---

🎨 NewDialogStyle 属性

说明

设置或获取是否使用新的对话框样式（文件夹选择对话框）。

语法

Public Property Let NewDialogStyle(ByVal vValue As Boolean)
Public Property Get NewDialogStyle() As Boolean

使用示例

dlg.NewDialogStyle = True  ' 使用带编辑框的新样式

---

最后更新: 2026-05-17