commondialog(CommonDialog1Filter)

commondialogcommondialog如何加载多个文件。

CommonDialog控件的Flags属性有一个标志cdlOFNAllowMultiselect。利用这个标志可以实现多选。如：

CommonDialog1.Flags = CommonDialog1.Flags + cdlOFNAllowMultiselect

无论是在 Windows NT 4.0 还是在 Windows 95 中，如果 cdlOFNAllowMultiselect 标志被单独使用，都不能支持长文件名。这是因为多重文件名要包括空格分隔符，而长文件名也可能包括空格符。在 Windows NT 3.5 中，无法避免这种情况。如果使用 cdlOFNAllowMultiselect，就不能看到长文件名。如果在 Windows 95 中添加 cdlOFNExplorer 标志，就可以既能文件多选，又能看到长文件名。但是，这些文件名是用空字符Chr(0)分隔符，而不是空格分隔符隔开。因此，cdlOFNAllowMultiselect 和 cdlOFNExplorer 一起使用时，在 Windows 95 和 Windows NT 3.5中需要不同的文件名所得结果的语法分析。

当使用 cdlOFNAllowMultiselect 标志时，可能希望增加 MaxFileSize 属性的尺寸以便对所选文件名有足够的内存。MaxFileSize 属性要分配内存以便存储所选的一个或多个文件的实际名称。该属性的范围是 1-32K。缺省值是 256。

下面是一个例子：

Private Sub Command1_Click()

Dim I As Integer

Dim Y As Integer

Dim Z As Integer

Dim FileNames$()

CommonDialog1.FileName = ""

CommonDialog1.Filter = "All Files|*.*"

CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer

CommonDialog1.Action = 1

CommonDialog1.FileName = CommonDialog1.FileName Chr(0)

Z = 1

For I = 1 To Len(CommonDialog1.FileName)

I = InStr(Z, CommonDialog1.FileName, Chr(0))

If I = 0 Then Exit For

ReDim Preserve FileNames(Y)

FileNames(Y) = Mid(CommonDialog1.FileName, Z, I - Z)

Z = I + 1

Y = Y + 1

Next

If Y = 1 Then

Text1.Text = FileNames(0)

Else

Text2.Text = ""

For I = 0 To Y - 1

If I = 0 Then

Text1.Text = FileNames(I)

Else

Text2.Text = Text2.Text UCase(FileNames(I)) _

Chr$(13) Chr$(10)

End If

Next

End If

End Sub

如何在VB 6.0中添加和使用CommonDialog 控件

添加到工具箱

执行菜单命令：工程 | 部件| 使Microsoft CommonDialog Contral 6.0复选框有效。

在工具箱中双击CommonDialog图标可将控件添加到窗体中去。

2.属性

因为CommonDialog控件用于创建“文件打开”、“文件保存”、“文件打印”、“颜色设置”、“字体设置”、“帮助”6种对话框，所以控件的属性可分为文件、颜色与字体三类。

（1）文件类属性

① FileName属性用于设置或返回要“打开”、“保存”、“打印”的文件名。

② Filter属性用于文件过滤器，属性格式为：

描述1| 过滤器1| 描述2 | 过滤器2 …。例如：

所有文件(*.*)|*.*| RTF格式(*.RTF)|*.rtf |文本文件(*.txt)|*.txt

打开文件的文件过滤器效果如图4.12下部的文件类型所示。

3. CommonDialog控件的方法

CommonDialog控件用于打开对话框的6种方法如下。

（1）ShowOpen方法用于显示打开文件对话框，打开指定目录中的文件。

调用该方法的格式为：CommonDialog.ShowOpen

调用打开文件对话框的效果如图4.12所示。

当用户在对话框中选择文件名（如：ex45.txt）后，应使用控件的CommonDialog.FileName属性返回所选文件名，然后再用RichTextBox控件的LoadFile方法打开指定文件。

语法格式为：RichTextBox.LoadFile CommonDialog.FileName

（2）ShowSave方法用于显示保存文件对话框，将文件保存到指定目录去。

调用该方法的格式为：CommonDialog. ShowSave

调用效果与图4.12类似。

当用户在对话框中选择文件名（如：ex45.txt）后，应使用控件的CommonDialog.FileName属性返回所选文件名，然后再用RichTextBox控件的SaveFile方法保存指定文件。

语法格式为：RichTextBox.SaveFile CommonDialog.FileName

（3）ShowPrinter方法用于显示打印对话框，打印输出文件。

调用该方法的格式为：CommonDialog. ShowPrinter。

（4）ShowColor方法用于显示字体颜色对话框，用户可设置字体颜色。

用户可用“颜色”对话框在调色板中选择颜色（如图4.13），并用Color属性返回选定的颜色。

VB中CommonDialog怎么用？

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行

Windows 帮助引擎控件还能显示帮助。

语法

CommonDialog

说明

CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll.

的例程之间提供了一个接口。为了用这个控件创建一个对话框，ommdlg.dll. 必须在 Microsoft Windows 的 SYSTEM 目录下。

在应用程序中要使用 CommonDialog 控件，可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog

控件是以图标的形式显示在窗体中。该图标的大小不能改变。

使用指定的方法，CommonDialog 控件能够显示下列对话。

方法

所显示的对话框

ShowOpen

显示“打开”对话框

ShowSave

显示“另存为”对话框

ShowColor

显示“颜色”对话框

ShowFont

显示“字体”对话框

ShowPrinter

显示“打印”或“打印选项”对话框

ShowHelp

调用 Windows 帮助引擎

在对话框接口上单击，CommonDialog 控件将自动提供与上下文有关的帮助：

单击标题栏中的“这是什么？”帮助按钮，然后单击想详细信息的项目。

将鼠标放在想进一步详细信息的项目上，单击右键，然后在所显示的上下文菜单中选择这是什么命令。

操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags 属性，在带有

CommonDialog 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。

注意 无法指定对话框显示在什么地方。

commondialog在win11系统使用无效

1、需要先进入win11系统安全模式。commondialog开机进入安全模式方法。

2、commondialog进入安全模式后进入设置，然后点击左侧的“应用”。

3、接着进入右侧的“应用和功能”。

4、然后将排序更改为安装日期，依次卸载上一次使用时安装的应用。

5、卸载完了后回到设置，搜索并打开“设备管理器”。

6、最后卸载上一次使用时安装的驱动程序即可。

VB控件commondialog 的具体作用与用法

CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。

CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在 Microsoft Windows \System 目录下。

为了在应用程序中使用 CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。

扩展资料

“字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后，下列属性就会包含有关用户选项的信息。 要显示“字体”对话框 。

将 Flags 属性设置为下述 Visual Basic 常数之一：

cdlCFScreenFonts（屏幕字体）

cdlCFPrinterFonts（打印机字体）

cdlCFBoth（既可以是屏幕字体又可以是打印机字体）

警告 在显示“字体”对话框之前必须将 Flags 属性设置为这些数值之一，否则将发生字体不存在错误。