在vb中用CommonDialog控件，后保存工程，在下次打开中，为什么提示出MSComDlg.CommonDialog 不是已加载控

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

在工具箱中右键-->部件，在弹出的窗口中找到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

请从VBP后缀的工程打开，不要从后缀为Frm的窗体文件打开。

你的控件没有注册吧？得先注册~

---

元江哈尼族彝族傣族自治县13864716927： VB中CommonDialog控件如何使用? - ？
主雯扎冲： CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框.运行 Windows 帮助引擎时,控件还能够显示帮助. CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll ...

元江哈尼族彝族傣族自治县13864716927： 如何在VB 6.0中添加和使用CommonDialog 控件 - ？
主雯扎冲： 1 单击菜单“工程”下的“部件”命令,将弹出“部件”对话框,如下图所示.2 在“部件”对话框下的“控件”选项卡下选中Microsoft Common Dialog Control 6.0,单击确定既可以在左侧的控件工具箱中显示 Common Dialog控件.如下图所示3 在左侧的控件工具箱中拖拉刚才添加的Common Dialog控件到窗体中即可添加该控件.如下图所示4 再从左侧控件工具箱中拖拉一个命令按钮到窗体中,如下图所示

元江哈尼族彝族傣族自治县13864716927： 在vb中如何添加commondialog控件？
主雯扎冲： 在工具箱中右键-->部件,在弹出的窗口中找到microsoft common dialog control 6.0 选中.确定 另附: 常用方法: showopen---打开 showsave--保存 showcolor--颜色 属性: filename--返回选中的文件路径 filter--文件过滤 简单实例:按钮一个,...

元江哈尼族彝族傣族自治县13864716927： VB问个简单的问题CommonDialog如何使用?？
主雯扎冲： 1, Private Sub Command1_Click() CommonDialog1.ShowOpen Open ＂C:\1.ini＂ For Output As #1 Write #1, CommonDialog1.FileName Close #1 End Sub 2, Private Sub Command1_Click() CommonDialog1.Filter = ＂文本文件(*.txt)|*.txt＂ CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Write #1, Text1.Text Close #1 End Sub

元江哈尼族彝族傣族自治县13864716927： VB中commonDialog这个控件是什么用处啊?怎么用的啊? - ？
主雯扎冲： 1.打开一个文件(open)时,调用通用对话框得到文件的全路径和文件名. 打开方法:showopen.例: CommonDialog1.ShowOpen 2.将一个文件另存为(save as)时,调用它返回目标路径及文件名. 打开方法:showsave. 3.设置打印机...

元江哈尼族彝族傣族自治县13864716927： VB中如何使用CommonDialog控件获取当前的路径,不要包含文件名.？
主雯扎冲： With CommonDialog1 .ShowOpen 当前的路径 = Left(.FileName, InStrRev(.FileName, ＂\＂) - 1) End With

元江哈尼族彝族傣族自治县13864716927： VB 中 commondialog 在哪添加? - ？
主雯扎冲： 能找到,你按照字母顺序查找 microsoft common dialog control 6.0 拉动滚动条向下,拖动不到1厘米的地方,就能看到

元江哈尼族彝族傣族自治县13864716927： 请问:VB中如何使用CommonDialog控件将不想选择的文件类型过滤掉? - ？
主雯扎冲： 看看这个就行了.CommonDialog 控件 CommonDialog 控件提供一组标准的操作对话框,进行诸如打开和保存文件,设置打印选项,以及选择颜色和字体等操作.通过运行 Windows 帮助引擎控件还能显示帮助. 语法 CommonDialog 说明 ...

元江哈尼族彝族傣族自治县13864716927： vb中如何用CommonDialog打开文件只显示指定扩展名的文件? - ？
主雯扎冲： Private Sub Command1_Click() On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly '设置过滤器 CommonDialog1.Filter = ＂bmp files (*.bmp)|*.bmp＂ '设置缺省过滤器 CommonDialog1.FilterIndex = 1 '显示“选择”对话框 CommonDialog1.ShowOpen' Txtysjlwj.Text = CommonDialog1.FileName Exit Sub ErrHandler: Exit Sub End Sub

元江哈尼族彝族傣族自治县13864716927： VB 6.0中如何使用CommonDialog控件选择电脑中D盘的图片加载在picturebox控件中?? - ？
主雯扎冲： 示例代码如下:Private Sub Command1_Click() CommonDialog1.Filter = ＂图片文件(*.jpg;*.gif)|*.jpg;*.gif＂ '设置过滤器,可添加其它图片格式,但Picture控件不支持png图片 CommonDialog1.ShowOpen CommonDialog1.Flags = &H8 '强制将对话框打开时的目录置成当前目录 If CommonDialog1.FileName = ＂＂ Then Exit Sub Picture1.Picture = LoadPicture(CommonDialog1.FileName) End Sub