×

commondialog c log

commondialog（commondialogcommondialog如何加载多个文件）

admin admin 发表于2022-09-01 19:36:14 浏览158 评论0

抢沙发发表评论

本文目录

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中commondialog在哪为啥控件中没有呢


菜单[工程]--[部件]————在对话框中勾选 microsoft common dialog control 6.0 ,确定。控件就出现在工具栏。
如果没有microsoft common dialog control 6.0的话，需要下载comdlg32.ocx 这个文件，下载后，复制到C盘C:\windows\system32目录下，然后进行注册。
ocx注册方法：右键选择打开方式，选择WINDOWS\system32下面regsvr32.exe打开，然后就注册成功了。或者直接在开始----运行里输入 regsvr32 comdlg32.ocx ，回车，也可以注册

求CommonDialog的详细用法


CommonDialog控件画好后，共有6种方法：ShowColor ’显示颜色对话框
ShowFont ’显示字体对话框
ShowHelp ’显示帮助
ShowOpen ’显示打开文件对话框
ShowPrinter ’显示打印机对话框
ShowSave ’显示保存对话框
你可以逐一试试它们的作用。给你个例子：
Private Sub Command1_Click()
Dim R As String
CommonDialog1.Filter = “文本文件(*.txt)|*.txt|所有文件(*.*)|*.*“
CommonDialog1.ShowSave ’显示打开文件对话框
R = CommonDialog1.FileName
Open R For Output As #1
Print #1, 122345
Close
End Sub
-log

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


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

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

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

扩展资料

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

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

cdlCFScreenFonts（屏幕字体） 

cdlCFPrinterFonts（打印机字体） 

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

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


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 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。
注意 无法指定对话框显示在什么地方。
-c

vb中commondialog的问题


CommonDialog1.ShowSave ’显示保存对话框
If CommonDialog1.FileName 《》 ““ Then ’这个是为了避免点击取消还继续执行下面语句用的,先判断下有没选择保存路径
If Dir(CommonDialog1.FileName) 《》 ““ Then ’搜索所保存的文件路径,判断文件是否已经存在
If MsgBox(“文件已存在,是否覆盖?“, vbQuestion + vbYesNo, “保存提示“) = vbYes Then
’save file
Else ’如果点击了不覆盖文件则把保存对话框在显示出来
CommonDialog1.InitDir = CommonDialog1.FileName
CommonDialog1.ShowSave
End If
End If
End If
-log

VB中CommonDialog控件如何使用


CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。
CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在 Microsoft Windows \System 目录下。
为了在应用程序中使用 CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。
CommonDialog 控件可以显示如下常用对话框：
“打开”
“另存为”
“颜色”
“字体”
“打印”
要使用 CommonDialog 控件
1. 若未添加 CommonDialog 控件，则应从“工程”菜单中选定“部件”，将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件，然后单击“确定”按钮。
2. 单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。在窗体上绘制 CommonDialog 控件时，控件将自动调整大小。象 Timer控件一样，CommonDialog 控件在运行时不可见。
3. 运行时，请适当使用下表所列方法显示需要的对话。
显示“打开”和“另存为”对话框
有了“打开”对话框就可指定驱动器、目录、文件扩展名和文件名。“另存为”对话框在外观上与“打开”对话框相同，只是对话框的标题和文件名是暗淡的。运行时选定文件并关闭对话框后，可用 FileName 属性获取选定的文件名。
要显示“打开”对话框
1. 指定在“文件类型”列表框中显示的文件过滤器列表。
可用下列格式设置 Filter 属性：
description1 | filter1 | description2 | filter2...
Description 是列表框中显示的字符串——例如，“Text Files (*.txt)“。Filter 是实际的文件过滤器——例如，“*.txt“。每个description | filter 设置间必须用管道符号分隔 (|)。
2. 用 ShowOpen 方法显示对话框。
选定文件后可用 FileName 属性获取选定文件的名称。
对所有公共对话框，当 CancelError 属性为 True，而且用户单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误，以此检测是否按了“取消”按钮。
下列代码显示“打开”对话框并以选定的文件名为打开文件过程的参数：
Private Sub mnuFileOpen_Click ()
’CancelError 为 True。
On Error GoTo ErrHandler
’设置过滤器。
CommonDialog1.Filter = “All Files (*.*)|*.*|Text _
Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat“
’指定缺省过滤器。
CommonDialog1.FilterIndex = 2
’显示“打开”对话框。
CommonDialog1.ShowOpen
’调用打开文件的过程。
OpenFile (CommonDialog1.FileName)
Exit Sub
ErrHandler:
’用户按“取消”按钮。
Exit Sub
End Sub
使用“颜色”对话框
可用“颜色”对话框在调色板中选择颜色，或者创建并选定自定义颜色。运行时，选定颜色并关闭对话框后可用 Color 属性获取选定的颜色。
要显示“颜色”对话框
1. 将CommonDialog控件的Flags属性设置成Visual Basic常数cdlCCRGBInit。
2. 用 ShowColor 方法显示对话框。
可用 Color 属性获取选定颜色的 RGB 值。单击“Command1”命令按钮时，下列代码将显示“颜色”对话框：
Private Sub Command1_Click ()
’将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
’设置 Flags 属性。
CommonDialog1.Flags = cdlCCRGBInit
’显示“颜色”对话框。
CommonDialog1.ShowColor
’将窗体的背景颜色设置成选定的’颜色。
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
’用户按了“取消”按钮。
Exit Sub
End Sub
使用“字体”对话框
“字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后，下列属性就会包含有关用户选项的信息。
要显示“字体”对话框
1. 将 Flags 属性设置为下述 Visual Basic 常数之一：
cdlCFScreenFonts（屏幕字体）
cdlCFPrinterFonts（打印机字体）
cdlCFBoth（既可以是屏幕字体又可以是打印机字体）
警告 在显示“字体”对话框之前必须将 Flags 属性设置为这些数值之一，否则将发生字体不存在错误。
2. 用 ShowFont 方法显示对话框。
下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性：
Private Sub Command1_Click ()
’将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
’设置 Flags 属性。
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
’显示“字体”对话框。
CommonDialog1.ShowFont
’根据用户的选择来设置文本属性。
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
’用户按了“取消”按钮。
Exit Sub
End Sub
-c

VB 如何设置CommonDialog控件弹出的框的位置


要想解决这个问题，首先要找出CommonDialog是如何设置其对话框位置。首先在一个Form中放置一个CommonDialog控件，然后不断移动Form在屏幕的位置，并激活CommonDialog。你会发现CommonDialog总是出现在Form的左上角，当Form出现在屏幕的左侧或上部时，这一点非常明显。但当Form出现在屏幕下方或右侧时，CommonDialog会稍微做调整，以确保整个对话框都能显示在屏幕范围内。如果你的Form比较靠近屏幕中心，那么CommonDialog自然也会出现在屏幕中心。利用这一特点，我们可以建立一个空窗体，称为MyCDForm，然后在其上放置一个CommonDialog控件。这个MyCDForm只用来放置CommonDialog控件，没有其他用途。然后输入下面这个函数。
Private Function ChooseFile(argLeft As Single, argTop As Single) As Boolean
’ 设置为没有文件被选择
ChooseFile = False
’ 移动MyCDForm位置
MyCDForm.Left = argLeft
MyCDForm.Top = argTop
’ 设置CommonDialog控件
MyCDForm.CommonDialog1.CancelError = True
On Error GoTo OpenError
’ 显示CommonDialog
MyCDForm.CommonDialog1.ShowOpen
’ 卸载MyCDForm
Unload MyCDForm
ChooseFile = True
Exit Function
OpenError:
’ 用户按下Cancel键
Unload MyCDForm
Exit Function
End Function
当你的程序需要调用Open对话框时，使用ChooseFile就可以了。argLeft和argTop是Open对话框在屏幕上出现的位置的左上角的坐标。从这个函数可以看出，实际上我们是将MyCDForm的位置该为argLeft和argTop，而利用Open对话框的位置总是出现在其父窗口的左上角这一特性来改变Open对话框的屏幕位置。类似地，你也可以显示其他的对话框。如果你想让对话框出现在屏幕中央，则argLeft = (Screen.Width - 对话框宽度) \ 2，argTop = (Screen.Height - 对话框高度) \ 2。对于屏幕大小为800*600个像素，显示Open对话框的情况，这两个值大致均为1500。
-log

CommonDialog控件可以显示哪五种常用对话框


为了在应用程序中使用 CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。
CommonDialog 控件可以显示如下常用对话框：
“打开”
“另存为”
“颜色”
“字体”
“打印”
-c

在vb中如何添加commondialog控件


在工具箱中右键--》部件，在弹出的窗口中找到microsoft common dialog control 6.0 选中。确定
另附:
常用方法：
showopen---打开
showsave--保存
showcolor--颜色
属性：
filename--返回选中的文件路径
filter--文件过滤
简单实例：按钮一个，commondialog控件一个
Private Sub Command1_Click()
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
If Dir(FileName) = ““ Then
’填写的路径不存在就退出
Exit Sub
End If
MsgBox “您选的路径是：“ & vbCrLf & FileName
End Sub
Private Sub Form_Load()
CommonDialog1.Filter = “文本文件|*.txt|“
End Sub
-log