精华内容
下载资源
问答
  • commondialog控件 vb中commondialog控件的使用方法 vb中commondialog控件的使用方法
  • [转载]VB中CommonDialog控件的使用

    万次阅读 2011-09-01 16:52:40
    CommonDialog控件 1.添加到工具箱 执行菜单命令:工程 | 部件| 使Microsoft CommonDialog Contral 6.0复选框有效。 在工具箱双击CommonDialog图标可将控件添加到窗体去。 2.属性  因为CommonDial
      
    
    CommonDialog控件
    1.添加到工具箱

    执行菜单命令:工程 | 部件| 使Microsoft CommonDialog Contral 6.0复选框有效。
    在工具箱中双击CommonDialog图标可将控件添加到窗体中去。
    2.属性
      因为CommonDialog控件用于创建“文件打开”、“文件保存”、“文件打印”、“颜色设置”、“字体设置”、“帮助”6种对话框,所以控件的属性可分为文件、颜色与字体三类。
    (1)文件类属性
    ① FileName属性用于设置或返回要“打开”、“保存”、“打印”的文件名。
    ② Filter属性用于文件过滤器,属性格式为:
    描述1| 过滤器1| 描述2 | 过滤器2 …。例如:
    所有文件(*.*)|*.*| RTF格式(*.RTF)|*.rtf |文本文件(*.txt)|*.txt
     打开文件的文件过滤器效果如图4.12下部的文件类型所示。
        VB中CommonDialog控件的使用 - metrom -
       VB中CommonDialog控件的使用 - metrom -  
    图4.12 打开文件对话框
    ③ FilterIndex属性用于指定默认的文件过滤器。例如:FilterIndex=3;
    表示指定默认文件过滤器为*.txt,如图4.12中文件类型框首行:文本文件(*.txt)。
    (2)颜色类属性
    ① Flags属性用于设置颜色对话框中初始颜色,初值为cdlCCRGBInit;
    ② Color属性用于返回用户在颜色对话框中所选择的颜色。
    (3)字体类属性
    ① Flags属性用于设置初始字体,取值与含义如表4.6所示,常取值为:cdlCFBoth。
     

      VB中CommonDialog控件的使用 - metrom -

     
    表4.6 Flags取值与含义
    • FontSize属性用于返回字体大小;
    • FontBold属性用于返回是否选择“粗体”;
    • FontItalic属性用于返回是否选择“斜体”;
    • FontUnderline属性用于返回是否选择“下划线”;
    • FontStrikethru属性用于返回是否选择“删除线”。

    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控件的使用 - metrom -  
     图4.13 颜色对话框  

    调用对话框设置“颜色”的步骤如下:

    • 将通用对话框控件的Flags属性设置为cdlCCRGBInit。
    • 用ShowColor方法显示颜色对话框。
    • 用Color属性返回“颜色”对话框所选颜色。
    例如:
    CommonDialog.Flags = cdlCCRGBInit
    CommonDialog.ShowColor
    RichTextBox.SelColor = CommonDialog.Color
    (5)ShowFont方法用于打开字体对话框,用户可调用字体对话框选择字体的大小、颜色等。
    调用“字体”对话框的步骤如下:
    将Flags属性设置为表4.6三种值之一;
    用ShowFont方法打开字体对话框;
    用字体类属性返回字体的设置信息。
    (6)ShowHelp方法用于打开帮助对话框,用户可获得帮助信息。

     

    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
     
     
     
    楼上很详细,我不多说了,一般最经典的使用是
    commondialog1.showopen("")
    commondialog1.showsave("")
    .showcolor()
    .showfont()
    只不过它的属性可以用属性中的自定义来设置
    展开全文
  • 总结很详细 VB CommonDialog另存为文件用法
  • vbCommonDialog控件的使用

    千次阅读 2008-04-11 12:31:00
    使用CommonDialog控件CommonDialog控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时,控件还能够显示帮助。CommonDialog控件在Visual Basic和 Microsoft ...

    使用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

     

    使用“打印”对话框
    “打印”对话框允许用户指定打印输出的方法。用户可指定打印页数范围、打印质量、复制数目等等。此对话框还显示有当前安装的打印机信息,并允许用户进行配置或重新安装新的缺省打印机。
    注意此对话框并不真正地将数据送到打印机上。它允许用户指定如何打印数据。必须编写代码实现用选定格式打印数据。
    详细信息关于打印数据的信息,请参阅第十二章“使用文本和图形”。运行时,当用户在“打印”对话框作出选择后,下述属性将包含用户选项的信息。

     

    要显示“打印”对话框
    1. 通过设置相应的“打印”对话框属性,为对话框设置所需缺省设置值。例如,为在显示对话框时在“份数”框中显示 2,应将 Copies 属性设置为 2:
    CommonDialog1.Copies = 2
    2. 用ShowPrinter方法显示“打印”对话框。
    用户单击“Command1”命令按钮时,下列代码将显示“打印”对话框:
    Private Sub Command1_Click ()
       Dim BeginPage, EndPage, NumCopies, Orientation. i
       '将 Cancel 设置成 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
       '显示“打印”对话框。
       CommonDialog1.ShowPrinter
       '从对话框中获取用户选定数值。
       BeginPage= CommonDialog1.FromPage
       EndPage = CommonDialog1.ToPage
       NumCopies= CommonDialog1.Copies
       Orientation=CommonDialog1.Orientation
       For i = 1 to NumCopies
       '在此放置代码,将数据发送到打印机。
       Next
       Nxit Sub
    ErrHandler:
       '用户按下了“取消”按钮。
       Exit Sub
    End Sub
    注意 若将PrinterDefault属性设置为True,则可在Visual Basic Printer对象上打印。另外,当PrinterDefault 属性为True时,所有在“打印”对话框“设置”部分中作出的变更都将改变用户“打印机”设置中的打印机设置值。

    使用ShowHelp方法显示帮助文件
    可用CommonDialog控件的ShowHelp方法显示帮助文件。
    要使用 ShowHelp 方法显示帮助文件
    1. 设置HelpCommand和HelpFile属性。
    2. 用ShowHelp方法显示指定的帮助文件。
    在单击“Command1”命令按钮时,下列代码将显示指定的帮助文件:
    Private Sub Command1_Click()
       '将 Cancel 设置为 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
       '设置 HelpCommand 属性
       CommonDialog1.HelpCommand = cdlHelpForceFile
       '指定帮助文件。
       CommonDialog1.HelpFile = "c:/Windows/Cardfile.hlp"
       '显示 Windows 帮助引擎。
       CommonDialog1.ShowHelp
       Exit Sub
    ErrHandler:
       '用户按下了“取消”按钮。
       Exit Sub
    End Sub
    详细信息有关显示通用对话框控件的帮助文件的详细信息,请参阅《VisualBasic 6.0语言参考手册》“HelpCommand 属性”、“HelpFile 属性”和“ShowHelp 方法”。

    使用Data控件

    内在的Data控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问——与 Microsoft Access 所用的数据库引擎相同。这一技术使用户可以无缝地访问很多标准的数据库格式,而且使用户无需编写任何代码就可以创建数据识别应用程序。这种内在的 Data 控件最适合较小的(桌面)数据库,诸如 Access 和 ISAM 数据库。
    可以使用这种内在的Data控件创建应用程序来显示、编辑和更新来自多种已有的数据库的信息。这些数据库包括Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox。也可以使用这种控件如同访问真正的数据库一样来访问 Microsoft Excel、Lotus 1-2-3以及标准的 ASCII 文本文件。此外,Data控件也可以访问和操作远程的开放式数据库连接 (ODBC)数据库,诸如 Microsoft SQL Server 以及 Oracle。
    注意 Data控件和Remote Data控件两者都包含在Visual Basic中,以提供向后兼容。不过,由于ActiveX 数据对象(ADO) 的适应性更广,因此建议使用 ADO Data 控件来创建新的数据库应用程序。详细信息请参阅“使用 ADO Data 控件”。
    Data控件、Remote Data控件以及ADO Data控件在概念上很相似:三者都是将一个数据源连接到一个数据绑定控件的“数据控件”。三者也都共享相同的外观——一组共四个按扭,使用户可以直接到达记录集的开始、记录集的末尾以及在记录集中向前或向后翻卷。

    使用Data控件创建一个简单的数据库应用程序
    要使用Data控件创建一个简单的数据库应用程序
    1. 在窗体上放置一个Data控件。Data控件是一个内在的控件,因而总是可用的。
    2. 单击并选定这个Data控件,按 F4 键显示“属性”窗口。
    3. 在“属性”窗口中,将“连接”属性设置为想要使用的数据库类型。
    4. 在“属性”窗口中,将“DatabaseName”属性设置为想要连接的数据库的文件或目录名称。
    5. 在“属性”窗口中,将“记录源”属性设置为想要访问的数据库表的名称。
    6. 在该窗体上放置一个文本框控件。
    7. 单击并选定这个TextBox控件,并在其“属性”窗口中将“数据源”属性设置为该Data控件。
    8. 在这个“属性”窗口中,将“数据字段”属性设置为在该数据库中想要查看或修改的字段的名称。
    9. 对其它的每一个想要访问的字段,重复第 6、7、8 步。
    10. 按 F5 键运行这个应用程序。

    设置Data 控件与数据相关的属性
    下述与数据相关的属性可以在设计时设置。这个列表给出了设置这些属性的一种逻辑顺序:
    注意数据库技术是一门复杂的科学,下面的这些建议并不意味着要当作规则来使用。
    1. RecordsetType—RecordsetType 属性决定记录集是一个表、一个动态集(dynaset)还是一个快照。这个选择将影响哪些记录集属性是可用的。例如,快照类型的记录集与 dynaset 记录集相比具有更多的限制。
    2. DefaultType—DefaultType 属性指定所使用的是 JET 工作空间,还是ODBCDirect 工作空间。
    3. DefaultCursorType—DefaultCursorType 属性决定光标的位置。可以使用 ODBC 驱动程序来决定光标的位置,或者指定服务器或 ODBC 光标。只有当使用 ODBCDirect 工作空间时,DefaultCursorType 属性才是有效的。
    4. Exclusive—决定该数据是用于单用户环境,还是多用户环境。
    5. Options—这个属性决定记录集的特征。例如,在一个多用户环境中,可以设置 Options 属性来禁止他人所做的更改。
    6. BOFAction、EOFAction—这两个属性决定当这个控件位于光标的开始或末尾时的行为。可能的选择包括停留在开始或末尾、移动到第一个或最后一个记录、或者添加一个新的记录(只有在末尾时)。

     

    展开全文
  • CommonDialog用户控件CommonDialog控件,使用API调用字体对话框
  • CommonDialog 控件用法

    2009-11-17 19:10:44
    CommonDialog 控件的介绍非常全面,请大家互相传阅.
  • vbCommonDialog控件的使用   使用CommonDialog控件 CommonDialog控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时,控件还能够显示帮助。 ...

    vb的CommonDialog控件的使用

     

    使用CommonDialog控件

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

    CommonDialog控件在Visual Basic和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。

    为了用该控件创建对话框,必须要求Commdlg32.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

     

    使用“打印”对话框
    “打印”对话框允许用户指定打印输出的方法。用户可指定打印页数范围、打印质量、复制数目等等。此对话框还显示有当前安装的打印机信息,并允许用户进行配置或重新安装新的缺省打印机。
    注意 此对话框并不真正地将数据送到打印机上。它允许用户指定如何打印数据。必须编写代码实现用选定格式打印数据。
    详细信息 关于打印数据的信息,请参阅第十二章“使用文本和图形”。运行时,当用户在“打印”对话框作出选择后,下述属性将包含用户选项的信息。

     

    要显示“打印”对话框
    1. 通过设置相应的“打印”对话框属性,为对话框设置所需缺省设置值。例如,为在显示对话框时在“份数”框中显示 2,应将 Copies 属性设置为 2:
        CommonDialog1.Copies = 2
    2. 用ShowPrinter方法显示“打印”对话框。
    用户单击“Command1”命令按钮时,下列代码将显示“打印”对话框:
    Private Sub Command1_Click ()
       Dim BeginPage, EndPage, NumCopies, Orientation. i
           '将 Cancel 设置成 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
           '显示“打印”对话框。
       CommonDialog1.ShowPrinter
           '从对话框中获取用户选定数值。
       BeginPage= CommonDialog1.FromPage
       EndPage = CommonDialog1.ToPage
       NumCopies= CommonDialog1.Copies
       Orientation=CommonDialog1.Orientation
       For i = 1 to NumCopies
           '在此放置代码,将数据发送到打印机。
       Next
       Nxit Sub
    ErrHandler:
           '用户按下了“取消”按钮。
       Exit Sub
    End Sub
    注意 若将PrinterDefault属性设置为True,则可在Visual Basic Printer对象上打印。另外,当PrinterDefault 属性为True时,所有在“打印”对话框“设置”部分中作出的变更都将改变用户“打印机”设置中的打印机设置值。

    使用ShowHelp方法显示帮助文件
    可用CommonDialog控件的ShowHelp方法显示帮助文件。
    要使用 ShowHelp 方法显示帮助文件
    1. 设置HelpCommand和HelpFile属性。
    2. 用ShowHelp方法显示指定的帮助文件。
    在单击“Command1”命令按钮时,下列代码将显示指定的帮助文件:
    Private Sub Command1_Click()
           '将 Cancel 设置为 True。
       CommonDialog1.CancelError = True
       On Error GoTo ErrHandler
           '设置 HelpCommand 属性
       CommonDialog1.HelpCommand = cdlHelpForceFile
           '指定帮助文件。
       CommonDialog1.HelpFile = "c:\Windows\Cardfile.hlp"
           '显示 Windows 帮助引擎。
       CommonDialog1.ShowHelp
       Exit Sub
    ErrHandler:
           '用户按下了“取消”按钮。
       Exit Sub
    End Sub
    详细信息 有关显示通用对话框控件的帮助文件的详细信息,请参阅《VisualBasic 6.0语言参考手册》“HelpCommand 属性”、“HelpFile 属性”和“ShowHelp 方法”。

     

    使用Data控件

    内在的Data控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问——与 Microsoft Access 所用的数据库引擎相同。这一技术使用户可以无缝地访问很多标准的数据库格式,而且使用户无需编写任何代码就可以创建数据识别应用程序。这种内在的 Data 控件最适合较小的(桌面)数据库,诸如 Access 和 ISAM 数据库。
    可以使用这种内在的Data控件创建应用程序来显示、编辑和更新来自多种已有的数据库的信息。这些数据库包括Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox。也可以使用这种控件如同访问真正的数据库一样来访问 Microsoft Excel、Lotus 1-2-3以及标准的 ASCII 文本文件。此外,Data控件也可以访问和操作远程的开放式数据库连接 (ODBC)数据库,诸如 Microsoft SQL Server 以及 Oracle。
    注意 Data控件和Remote Data控件两者都包含在Visual Basic中,以提供向后兼容。不过,由于ActiveX 数据对象(ADO) 的适应性更广,因此建议使用 ADO Data 控件来创建新的数据库应用程序。详细信息请参阅“使用 ADO Data 控件”。
    Data控件、Remote Data控件以及ADO Data控件在概念上很相似:三者都是将一个数据源连接到一个数据绑定控件的“数据控件”。三者也都共享相同的外观——一组共四个按扭,使用户可以直接到达记录集的开始、记录集的末尾以及在记录集中向前或向后翻卷。

    使用Data控件创建一个简单的数据库应用程序
    要使用Data控件创建一个简单的数据库应用程序
    1. 在窗体上放置一个Data控件。Data控件是一个内在的控件,因而总是可用的。
    2. 单击并选定这个Data控件,按 F4 键显示“属性”窗口。
    3. 在“属性”窗口中,将“连接”属性设置为想要使用的数据库类型。
    4. 在“属性”窗口中,将“DatabaseName”属性设置为想要连接的数据库的文件或目录名称。
    5. 在“属性”窗口中,将“记录源”属性设置为想要访问的数据库表的名称。
    6. 在该窗体上放置一个文本框控件。
    7. 单击并选定这个TextBox控件,并在其“属性”窗口中将“数据源”属性设置为该Data控件。
    8. 在这个“属性”窗口中,将“数据字段”属性设置为在该数据库中想要查看或修改的字段的名称。
    9. 对其它的每一个想要访问的字段,重复第 6、7、8 步。
    10. 按 F5 键运行这个应用程序。

    设置Data 控件与数据相关的属性
    下述与数据相关的属性可以在设计时设置。这个列表给出了设置这些属性的一种逻辑顺序:
    注意 数据库技术是一门复杂的科学,下面的这些建议并不意味着要当作规则来使用。
    1. RecordsetType—RecordsetType 属性决定记录集是一个表、一个动态集(dynaset)还是一个快照。这个选择将影响哪些记录集属性是可用的。例如,快照类型的记录集与 dynaset 记录集相比具有更多的限制。
    2. DefaultType—DefaultType 属性指定所使用的是 JET 工作空间,还是ODBCDirect 工作空间。
    3. DefaultCursorType—DefaultCursorType 属性决定光标的位置。可以使用 ODBC 驱动程序来决定光标的位置,或者指定服务器或 ODBC 光标。只有当使用 ODBCDirect 工作空间时,DefaultCursorType 属性才是有效的。
    4. Exclusive—决定该数据是用于单用户环境,还是多用户环境。
    5. Options—这个属性决定记录集的特征。例如,在一个多用户环境中,可以设置 Options 属性来禁止他人所做的更改。
    6. BOFAction、EOFAction—这两个属性决定当这个控件位于光标的开始或末尾时的行为。可能的选择包括停留在开始或末尾、移动到第一个或最后一个记录、或者添加一个新的记录(只有在末尾时)。

     

    展开全文
  • VB6.0编写,利用Commondialog控件选择多个文件,并获取各个文件的路径,可以直接使用!!!!!!!!!!
  • vb CommonDialog 属性

    2018-08-24 12:52:00
    CommonDialog控件取消引发错误CancelError颜色Color复制Copies缺省扩展名DefaultExt对话框标题DialogTitle文件名称FileName过滤器Filter过滤器索引FilterIndex标志Flags字体名称FontName字体大小FontSize起始页From...

    CommonDialog 控件 
    取消引发错误 CancelError 
    颜色 Color 
    复制 Copies 
    缺省扩展名 DefaultExt 
    对话框标题 DialogTitle 
    文件名称 FileName 
    过滤器 Filter 
    过滤器索引 FilterIndex 
    标志 Flags 
    字体名称 FontName 
    字体大小 FontSize 
    起始页 FromPage 
    帮助命令 HelpCommand 
    帮助上下文 HelpContext 
    帮助文件 HelpFile 
    帮助键 HelpKey 
    初始化路径 InitDir 
    最大 Max 
    文件最大长度 MaxFileSize 
    最小 Min 
    缺省打印机 PrinterDefault 
    终止页 ToPage 

    CommonDialog方法 显示的对话 
    ShowOpen 打开 
    ShowSave 另存为 
    ShowColor 颜色 
    ShowFont 字体 
    ShowPrinter 打印 
    ShowHelp 调用 Windows“帮助” 

    CommonDialog 控件(“打印”对话框)示例 
    下例显示“打印”对话框。 

    Private Sub Command1_Click() 
    Dim BeginPage, EndPage, NumCopies, i 
    ' 设置“取消”为 True 
    CommonDialog1.CancelError = True 
    On Error GoTo ErrHandler 
    ' 显示“打印”对话框 
    CommonDialog1.ShowPrinter 
    ' 从该对话框取得选定的值 
    BeginPage = CommonDialog1.FromPage 
    EndPage = CommonDialog1.ToPage 
    NumCopies = CommonDialog1.Copies 
    For i = 1 To NumCopies 
    ' 此处放置将数据发送到打印机的代码 
    Next i 
    Exit Sub 
    ErrHandler: 
    ' 用户按了“取消”按钮 
    Exit Sub 
    End Sub

    转载于:https://www.cnblogs.com/forever5325/p/9529176.html

    展开全文
  • VB中CommonDialog示例

    千次阅读 2013-12-08 19:44:16
    VB中CommonDialog示例 从project->components,选中microsoft common dialog control 6.0,点击“确定”,会有Commondialog按钮出现在控件,然后拖一个到窗体,用其默认名Commondialog1。 在本程序实现...
  • 这在VB的帮助可以找到。简单点说,这个参数就是控制公共对话框样式的参数。对不同的类型,可选参数不一样。.showopen or .showsave常数 值 描述 cdlOFNAllowMu
  • 不用CommonDialog控件,使用API调用字体对话框 VB源码(281KB)
  •  OpenFileDialog.MaxFileSize = 1024 '设置使用CommonDialog控件被打开的文件名的最大尺寸  Else  OpenFileDialog.Flags = 0  End If  OpenFileDialog.ShowOpen  '提取各文件名  Dim tempStr As String  Dim...
  • 如题,这个问题很蛋疼,初看代码很难发觉问题所在,...可以新建一个工程,放两个按钮,再放一个CommonDialog控件,两个按钮分别打开文件选择对话框,属性什么的都设置一样的,运行,单击按钮但是不选择文件,可以发现
  • 纯API实现的CommonDialog封装类,完全脱离CommonDialog OCX控件实现CommonDialog全功能(包括打开、保存文件,字体对话框,颜色对话框,打印机对话框,页面设置对话框等,有详细的示例程序)且加入了一些常用的...
  • 在Visual Basic,通常用CommonDialog公共对话框来选择磁盘上的文件,在其Flags属性加上cdlOFNAllowMultiselect风格后,就允许选择多个文件。当只选择一个文件时,其文件名(包含路径)直接返回Filename属性,...
  • 不用CommonDialog控件,使用API调用颜色对话框 VB源码(4KB)
  • CommonDialog类.zip_1类卡

    2020-12-31 08:36:30
    VB纯API实现CommonDialog对话框和选择文件夹对话框源代码,不再使用COMDLG32.OCX 控件,不用担心ActiveX没有或者未注册。只要系统有COMDLG32.dll即可,调用方法和CommonDialog控件完全一样。
  • 字体选择对话框Dim dlg As New Windows.Forms.FontDialogIf dlg.ShowDialog() = DialogResult.OK Then Console.WriteLine(dlg.Font.ToString())End If颜色设置对话框Dim dlg As New Windows.Forms.ColorDialogIf ...
  • 利用commondialog可以进行文件的打开与存储.commondialog.showsave表示存储,并可设置存储类型, .DialogTitle = "生成Excel" .FileName = "*.xls" .Filter = "(Excel)*.xls|*.xls"对于保存操作的取消按键的操作...
  • 关于commondialog的多选(如何提取文件名?)  第一种方法================================================== Function OpenFile(strFileInfor As String, strFileType As String, blnIsMulti As Boolean, ...
  • VB不能加载控件许可证未找到解决方案,修复了 Visual Basic 6.0 的许可证问题
  • filterindex是“打开”或“另存为”对话框(CommonDialog控件的一个缺省的过滤器,来打开或者保存文件的文件扩展名 要使用这个属性值,就必须先给filter属性赋值,比如 CommonDialog1.filter=“word文档|.doc|...
  • 自己写的用户控件,有打开和保存对话框,代替CommonDialog控件,有些电脑上没有的可以用这个,免得麻烦,注释得很详细,对于学习ActiveX控件来说很有帮助,用法和CommonDialog控件一样,只不过改了个名字ComDlg,...
  • 这是一个类似 Microsoft ...有了 CommonDialog 类模块后,你在用 VB 编程时,就可以完全抛开 Microsoft Common Dialog Control,不但可以极大程度地提高程序运行速度,同时也减少因控件版本不符而无法运行程序的烦恼。
  • VB控件属性大全【珍藏版】

    热门讨论 2012-04-21 11:28:45
    2.04、公用对话框控件(CommonDialog)控件的常用属性 56 2.05、数据组合框(DataCombo)控件的常用属性 60 2.06、数据型电子表格控件(DataGrid)的常用属性 62 2.07、数据列表(DataList) 控件的常用属性 65 2.08、...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,019
精华内容 407
关键字:

vb中commondialog控件