精华内容
下载资源
问答
  • 一个增强型VB文件浏览对话框窗口,增强对话框,支持左端自定义图片、支持自定义窗口顶端图片,支持声音预览、常规对话框(默认不使用回调),测试时,您可选择一个对话框样式,单击[打开]按钮。示例中还演示了调用打开...
  • VB.Net - 对话框

    2018-03-01 09:53:52
    VB.Net - 对话框有许多内置的对话框,用于Windows窗体中的各种任务,例如打开和保存文件,打印页面,向应用程序的用户提供颜色,字体,页面设置等选择。 这些内置的对话框减少了开发人员的时间和工作量。所有这些...

    VB.Net - 对话框


    有许多内置的对话框,用于Windows窗体中的各种任务,例如打开和保存文件,打印页面,向应用程序的用户提供颜色,字体,页面设置等选择。 这些内置的对话框减少了开发人员的时间和工作量。

    所有这些对话框控件类继承自CommonDialog类,并覆盖基类的RunDialog()函数以创建特定对话框。

    当对话框的用户调用其ShowDialog()函数时,将自动调用RunDialog()函数。

    ShowDialog方法用于在运行时显示所有对话框控件。 它返回一个DialogResult枚举类型的值。 DialogResult枚举的值为:

    • Abort 中止 - returns DialogResult.Abort value, when user clicks an Abort button.  当用户单击“中止”按钮时,返回DialogResult.Abort值。

    • Cancel 取消 -returns DialogResult.Cancel, when user clicks a Cancel button.  当用户单击Ignore按钮时,返回DialogResult.Ignore。

    • Ignore 忽略 -returns DialogResult.Ignore, when user clicks an Ignore button.  返回DialogResult.No,当用户单击否按钮。

    • No  -returns DialogResult.No, when user clicks a No button.  不返回任何内容,对话框继续运行。

    • None  -returns nothing and the dialog box continues running.  返回DialogResult.OK,当用户单击确定按钮

    • OK -returns DialogResult.OK, when user clicks an OK button.  返回DialogResult.  OK,当用户点击OK键

    • Retry 重试 -returns DialogResult.Retry , when user clicks an Retry button.  当用户单击重试按钮时,返回DialogResult.Retry

    • Yes  -returns DialogResult.Yes, when user clicks an Yes button.  返回DialogResult.Yes,当用户单击是按钮


    下图显示了通用对话框类继承:


    VB.Net对话框

    上述所有相应控件,可以在设计期间从工具箱中添加。 您可以通过以编程方式实例化类或通过使用相关控件,将这些类的相关功能包括到应用程序中。

    当双击工具箱中的任何对话框控件或将控件拖动到窗体上时,它将显示在Windows窗体设计器底部的组件托盘中,但不会直接显示在窗体上。

    下表列出了常用的对话框控件。 点击以下链接查看其详细信息:

     
    S.N.控制& 说明
    1

    ColorDialog

    It represents a common dialog box that displays available colors along with controls that enable the user to define custom colors.

    它表示一个公共对话框,显示可用颜色以及允许用户定义自定义颜色的控件。

    2

    FontDialog

    It prompts the user to choose a font from among those installed on the local computer and lets the user select the font, font size, and color.

    它提示用户从安装在本地计算机上的字体中选择字体,并让用户选择字体,字体大小和颜色。

    3

    OpenFileDialog

    It prompts the user to open a file and allows the user to select a file to open.

    它提示用户打开文件,并允许用户选择要打开的文件。

    4

    SaveFileDialog

    It prompts the user to select a location for saving a file and allows the user to specify the name of the file to save data.

    它提示用户选择保存文件的位置,并允许用户指定保存数据的文件的名称。

    5

    PrintDialog

    It lets the user to print documents by selecting a printer and choosing which sections of the document to print from a Windows Forms application.

    它允许用户通过选择打印机并从Windows窗体应用程序中选择要打印的文档的哪些部分来打印文档。

    展开全文
  • 3.在VB中可以建立 菜单和 菜单...为了把通用对话框控件加到工具箱中应在工程菜单中选择部件命令弹出部件对话框在部件对话框的控件选项卡中选择 2.建立打开文件保存文件颜色字体和打印对话框所使用的方法分别为 Showopen
  • 转自:http://blog.163.com/headmaster_01/blog/static/475568612011517376117/  VB6.0 浏览文件夹对话框 选择文件保存路径  2011-06-17 15:07:06| 分类: 文件选择对话框 |
    转自:http://blog.163.com/headmaster_01/blog/static/475568612011517376117/ 
    

    VB6.0 浏览文件夹对话框 选择文件保存路径  

    2011-06-17 15:07:06|  分类: 文件选择对话框 |  标签: |字号 订阅

    第一步新建一个Modules,假设为Modulas1.bas
    把下面的复制到Module.bas中

    Public Const BIF_RETURNONLYFSDIRS = 1
    Public Const BIF_DONTGOBELOWDOMAIN = 2
    Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (LpBrowseInfo As BROWSEINFO) As Long
    Public Declare Function SHGetPathFromIDlist Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
    Public Type BROWSEINFO
    hOwner As Long
    pidlroot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lparam As Long
    iImage As Long
    End Type
    Public Function GetFolder(ByVal hWnd As Long, Optional Title As String) As String
        Dim bi As BROWSEINFO
        Dim pidl As Long
        Dim folder As String
        folder = Space(255)
    With bi
       If IsNumeric(hWnd) Then .hOwner = hWnd
       .ulFlags = BIF_RETURNONLYFSDIRS
       .pidlroot = 0
       If Title <> "" Then
          .lpszTitle = Title & Chr$(0)
       Else
          .lpszTitle = "选择目录" & Chr$(0)
        End If
    End With

    pidl = SHBrowseForFolder(bi)
    If SHGetPathFromIDlist(ByVal pidl, ByVal folder) Then
        GetFolder = Left(folder, InStr(folder, Chr$(0)) - 1)
    Else
        GetFolder = ""
    End If
    End Function

    第二步:然后在你的窗体Form1中添加Command1的单击事件了
    Private Sub Command1_Click()
        Dim str
        str = GetFolder(Me.hWnd, "浏览文件夹")
        If str <> "" Then
            Combo1.Text = str
            Combo1.AddItem (str)
        End If
    End Sub

    GetFolder函数返回文件夹的路径,比如你选择了System32文件夹,单击确定后,返回"c:\System32"
    这样就实现了选择文件存储路径的问题了~

    展开全文
  • 文件选择对话框 | 标签: |字号大中小 订阅 第一步:新建一个Modules,假设为Modulas1.bas 把下面的复制到Module.bas中 Public Const BIF_RETURNONLYFSDIRS = 1 Public Const BIF_DONTGOBELOWDOMAIN = 2...
        

     

    2011-06-17 15:07:06|  分类: 文件选择对话框 |  标签: |字号 订阅

    第一步新建一个Modules,假设为Modulas1.bas
    把下面的复制到Module.bas中

    Public Const BIF_RETURNONLYFSDIRS = 1
    Public Const BIF_DONTGOBELOWDOMAIN = 2
    Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (LpBrowseInfo As BROWSEINFO) As Long
    Public Declare Function SHGetPathFromIDlist Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
    Public Type BROWSEINFO
    hOwner As Long
    pidlroot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lparam As Long
    iImage As Long
    End Type
    Public Function GetFolder(ByVal hWnd As Long, Optional Title As String) As String
        Dim bi As BROWSEINFO
        Dim pidl As Long
        Dim folder As String
        folder = Space(255)
    With bi
       If IsNumeric(hWnd) Then .hOwner = hWnd
       .ulFlags = BIF_RETURNONLYFSDIRS
       .pidlroot = 0
       If Title <> "" Then
          .lpszTitle = Title & Chr$(0)
       Else
          .lpszTitle = "选择目录" & Chr$(0)
        End If
    End With

    pidl = SHBrowseForFolder(bi)
    If SHGetPathFromIDlist(ByVal pidl, ByVal folder) Then
        GetFolder = Left(folder, InStr(folder, Chr$(0)) - 1)
    Else
        GetFolder = ""
    End If
    End Function

    第二步:然后在你的窗体Form1中添加Command1的单击事件了
    Private Sub Command1_Click()
        Dim str
        str = GetFolder(Me.hWnd, "浏览文件夹")
        If str <> "" Then
            Combo1.Text = str
            Combo1.AddItem (str)
        End If
    End Sub

    GetFolder函数返回文件夹的路径,比如你选择了System32文件夹,单击确定后,返回"c:\System32"
    这样就实现了选择文件存储路径的问题了~

     

     

     

    vb保存excel

    vb中另存为是这个:objWorkBook.SaveAs ("c:\001.xls")
    想每次保存都自动重命名,如下次是002.xls,而不是覆盖以前的,
    或者弹出一个重命名对话框也可以,我看了半天不会,希望高手解决!
    代码说的详细点,少了我看不懂,哈哈
     
    答:
    我这个保证你测试通过。你按我的做:新建一个Excel,保存他到桌面(当然只需要保存这一次,以后就是自动的啦),文件名就是1.xls,在这个文件里,建一个按钮,叫做CommandButton1。他的代码是:
    Private Sub CommandButton1_Click()
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls"
    End Sub
    这样,你每次单击,就会在那个路径(也就是桌面,当然你可以第一次保存的时候选择别的路径,那么以后自动保存的时候就在那个路径)自动生成2.xls,3.xls…………我测试通过的。
    ==================
    当然,你的原意肯定是不要按钮的,我这里只是提供一下测试,让你能够清晰的看到效果,你把我这个代码的核心
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls"
    相应的弄到你的代码里,就OK了。
    展开全文
  • 如题,vb怎样调用对话框选择excel文件,并将选中的文件sheet1导入到MSHFlexGrid1中显示 谢谢!
  • 打开文件对话框(OpenFileDialog)控件提示用户打开文件并允许用户选择要打开的文件。 用户可以检查文件是否存在,然后打开它。 OpenFileDialog控件类继承自抽象类FileDialog。如果ShowReadOnly属性设置为True,则只读...

    打开文件对话框(OpenFileDialog)控件提示用户打开文件并允许用户选择要打开的文件。 用户可以检查文件是否存在,然后打开它。 OpenFileDialog控件类继承自抽象类FileDialog。

    如果ShowReadOnly属性设置为True,则只读对话框中会出现一个复选框。还可以将ReadOnlyChecked属性设置为True,以便选中只读复选框。

    以下是打开文件对话框:

    1f2442a90e703ba1bbb908a5e26f2983.png

    OpenFileDialog控件的属性

    以下是OpenFileDialog控件的一些常用属性:

    编号

    属性

    描述

    1

    AddExtension

    获取或设置一个值,该值指示如果用户省略扩展名,对话框是否自动将扩展名添加到文件名。

    2

    AutoUpgradeEnabled

    获取或设置一个值,该值指示在Windows Vista上运行时,此FileDialog实例是否应自动升级外观和行为。

    3

    CheckFileExists

    获取或设置一个值,该值指示在用户指定不存在的文件名时对话框是否显示警告。

    4

    CheckPathExists

    获取或设置一个值,该值指示在用户指定不存在的路径时对话框是否显示警告。

    5

    CustomPlaces

    获取此FileDialog实例的自定义地点集合。

    6

    DefaultExt

    获取或设置默认文件扩展名。

    7

    DereferenceLinks

    获取或设置一个值,该值指示对话框是返回由快捷方式引用的文件的位置还是返回快捷方式(.lnk)的位置。

    8

    FileName

    获取或设置一个字符串,其中包含文件对话框中选定的文件名。

    9

    FileNames

    获取对话框中所有选定文件的文件名。

    10

    Filter

    获取或设置当前文件名过滤器字符串,该字符串决定出现在对话框的“另存为文件类型”或“文件类型”框中的选项。

    11

    FilterIndex

    获取或设置文件对话框中当前选中的过滤器的索引。

    12

    InitialDirectory

    获取或设置文件对话框显示的初始目录。

    13

    Multiselect

    获取或设置一个值,该值指示对话框是否允许选择多个文件。

    14

    ReadOnlyChecked

    获取或设置一个值,该值指示是否选中只读复选框。

    15

    RestoreDirectory

    获取或设置一个值,该值指示对话框是否在关闭之前恢复当前目录。

    16

    SafeFileName

    获取在对话框中选择的文件的文件名和扩展名。文件名不包含路径。

    17

    SafeFileNames

    获取对话框中所有选定文件的文件名和扩展名数组。文件名不包括路径。

    18

    ShowHelp

    获取或设置一个值,该值指示文件对话框中是否显示“帮助”按钮。

    19

    ShowReadOnly

    获取或设置一个值,该值指示对话框是否包含只读复选框。

    20

    SupportMultiDottedExtensions

    获取或设置对话框是否支持显示和保存具有多个文件扩展名的文件。

    21

    Title

    获取或设置文件对话框标题。

    22

    ValidateNames

    获取或设置一个值,该值指示对话框是否只接受有效的Win32文件名。

    OpenFileDialog控件的方法

    以下是OpenFileDialog控件的一些常用方法:

    编号

    属性

    描述

    1

    OpenFile

    打开用户选择的文件,具有只读权限。该文件由FileName属性指定。

    2

    Reset

    将所有选项重置为默认值。

    示例

    需要设计和窗体视图如下 -

    32ab9037298e1b6affbb4b1104967133.png

    在这个例子中,使用打开的文件对话框在图片框中加载图像文件,参考以下步骤:

    在窗体上拖放一个PictureBox控件,一个Button控件和一个OpenFileDialog控件。

    将按钮控件的Text属性设置为“加载图像文件”。

    双击加载图像文件 按钮并修改Click事件的代码。

    参考以下实现代码 -

    Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

    PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

    End If

    End Sub

    End Class

    使用Microsoft Visual Studio工具栏上的“开始”按钮编译和运行应用程序时,它将显示以下窗口:

    13b870ce89d4ecb42841d15cdd06bb14.png

    点击加载图像文件 按钮加载存储在计算机中的图像。如下所示 -

    62e1dee57510495f5306adde385f031a.png

    ¥ 我要打赏

    纠错/补充

    收藏

    加QQ群啦,易百教程官方技术学习群

    注意:建议每个人选自己的技术方向加群,同一个QQ最多限加 3 个群。

    展开全文
  • 保存文件对话框(SaveFileDialog)控件提示用户选择保存文件的位置,并允许用户指定保存数据的文件名称。SaveFileDialog控件类继承自抽象类FileDialog。以下是保存文件对话框:SaveFileDialog控件的属性以下是...
  • 想请问一下各位大侠,我想用对话框选择word文件,然后并打开这个word文件,怎么实现啊???
  • 这是一个VB小程序,可以用来进行打开一个文件出现的对话框,可以对文件夹进行选择,欢迎大家下载。
  • 请问,VB 如何用API对话框浏览文件选择Excel文件并获取完整路径?从网上找了不少,可复制到程序里都有问题,谢谢!
  • VB: 用通用对话框同时选择多个文件

    千次阅读 2005-05-23 23:13:00
    --------------------------------------用通用对话框同时选择多个文件-------------------------------------- 洪恩在线 求知无限--------------------------------------------名称-------------作用-----------...
  • VB打开对话框ShowOpen

    2021-01-07 20:40:29
    在工具箱空白处右键,选择“部件“,进入控件选择界面。 找到Microsoft Common Dialog Control 6.0(SP6),在其复选框打勾,然后单击确定按钮。即可将此控件添加到工具箱。 少部分电脑如果不能成功添加,那么是因为...
  • Dim fileDlg As Object ' 文件对话框 ' 变量初始化 Set fileDlg = CreateObject("MSComDlg.CommonDialog") ' 打开附件 fileDlg.DialogTitle = "选择附件文件" fileDlg.F.....
  • 1.本程序的对话框和OpenFileDialog对话框一样,可以输入路径, ...3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个老土的对话框选文件夹了!!!
  • Vb2010 弹出对话框选择文件夹路径

    千次阅读 2012-12-31 11:12:19
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
  • 有个自动化测试需求需要给“打开对话框”自动选择文件。 不知道有什么方法。 打算用这样的方法来操作的: 1)查找窗口,得到句柄 2)然后得到“文件名:”后面框框的句柄进行赋值 不过第二步始终操作失败。...
  • VB模块_VB调用windows的浏览对话框模块 只要一行命令,就能够调用浏览文件对话框 '=============================================================== '浏览选择文件与文件夹 '语法: 'GetFolder(窗口句柄,...
  • 单击文件按钮,在下拉菜单中单击选择“打印”,在“打印”对话框中单击勾选“手动双面打印”复选项,再单击打印按钮进行打印。Word会先把单页的内容发送到打印机打印,打印完单页后会弹出一个对话框提醒换一面打印,...
  • 第一步:在【页面布局】菜单中选择【页面颜色】,然后选择【填充效果】,如下图:第二步:在【填充效果】对话框中的【图片】选项下,点击【选择图片】,浏览图片所在位置,选择图片插入。如下图结果如下图:第三步:...
  • Dialog对话框选择多个文件整理了一下本人硬盘里实用的编程资料和源码,全部是VB代码,希望大家能喜欢.
  • VB中“打开”对话框同时选择多个文件,各位经常用到的
  • 大家都明白,Word是一个文字处理软件,它的编辑排版功能是办公软件中早就出了名的!...我们可以在Word的“文件”菜单中调出“打印”对话框再选中“打印到文件”选项,确定后选择保存该文件的位置,...
  • 上一篇:05-Excel文件打印设置在完成【第05课Excel文件打印设置】的学习之后,通过具体的操作练习在各种情况下打印Excel表格...在【打印】选项区域【设置】列表框中单击【无缩放】下拉按钮,从弹出的列表中选择【将...
  • VB.NET 中调用浏览目录对话框

    千次阅读 2003-03-31 09:39:00
    VB.NET 中调用浏览目录对话框Montaque 概述: 我们都知道在.NET中调用一个打开文件对话框很容易,定义一个OpenFileDialog类的实例就可以直接使用了。有时候我们需要让用户选择一个工作目录,或者一个系统目录,...
  • 很多人都觉得打印Excel表格挺简单...单击左上角【文件】按钮 -- 单击【打印】按钮 -- 我们可以看到右侧出现打印选择项 -- 单击【页面设置】按钮 -- 弹出【页面设置】对话框 -- 选中【缩放比例】单选框,输入需要缩放...
  • 免控件利用API获取选择的文件夹路径 以方便获取该文件夹下的文件处理
  • 作为一个办公人员,经常需要打印很多数据表格...操作方法1:Excel2003:在工作表中选择需要打印的区域,选择菜单【文件】-【打印区域】-【设置打印区域】,以后需要打印该区域时,只要单击工具栏中的【打印】按钮就...
  • 本节继续谈一下 打开文件对话框OpenFileDialog 选择多个文件的情况 先将 Multiselect 属性设置为 True,这样就可以选择多个文件了。 多个文件选择,可以使用鼠标在对话框中拉一个选择框来选择,或者按下Ctrl+...
  • 1.打印单张数据透视表打开需要打印的数据透视表,在“文件”选项列表中选择“打印”选项,在右侧“打印”选项区域中设置打印参数,如打印份数、打印机型号、纸张大小和页边距等,然后预览打印效...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 297
精华内容 118
关键字:

vb文件选择对话框