"打开文件"对话框

<< Click to Display Table of Contents >>

导航:  Access平台开发人员帮助 > 通用函数库 > 按功能 > 通用对话框 >

"打开文件"对话框

上一页返回章节总览下一页

函数说明

       该函数可以弹出一个“打开文件”的对话框。

 

函数原型

 

    Public Function gf_GetOpenFileName(lHwnd As Long, sRoot As String, strFilter As String, sTitle As String) As String

 

语法

      gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)

       参考:gf_GetOpenFileName(Application.hWndAccessApp, "C:\", “文本文件(*txt)|*.txt”, "打开文本文件")    '打开一个“打开文件”对话框

 

参数

参数名

必需/可选

数据类型

参数说明

lHwnd

必需

Long

 窗体或者程序句柄,一般使用Application.hWndAccessApp 即可。

sRoot

必需

String

 打开对话框的初始路径。

strFilter

必需

String

 文件类型筛选器,格式是"文件描述|筛选格式",例如:"所有文件|*.*"

sTitle

必需

String

 "打开文件"对话框的标题

 

返回值

       返回一个字符串(String),即通过对话框选择的文件。若没有选择文件,则返回空字符串。

 

示例

 

      '单个文件类型筛选器

      Sub subTest1()

              Dim strFilter As String    '定义字符串变量,设置文件类型筛选器

              Dim strReturn As String  '定义字符串变量,接收返回结果

 

               strFilter = "文本文件(*.txt)|*.txt"  '文件描述和筛选器描述用“|”分隔

               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:\", strFilter, "打开文件")    '打开一个“打开文件”对话框

             

               '验证结果

              If strReturn <> "" Then

                      Msgbox "您要打开的文件路径是 " & strReturn

              Else

                      Msgbox "您没有选择要打开的文件"

              End If

      End Sub

 

      '多个文件类型筛选器

      Sub subTest2()

              Dim strFilter As String    '定义字符串变量,设置文件类型筛选器

              Dim strReturn As String  '定义字符串变量,接收返回结果

 

               strFilter = "文本文件(*.txt)|*.txt|配置文件(*.ini)|*.ini"  '文件描述和筛选器描述仍然用“|”分隔,构成一组筛选器,多个筛选器也用“|”分割

               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:\", strFilter, "打开文件")    '打开一个“打开文件”对话框

             

               '验证结果

              If strReturn <> "" Then

                      Msgbox "您要打开的文件路径是 " & strReturn

              Else

                      Msgbox "您没有选择要打开的文件"

              End If

      End Sub

 

      '同时筛选多种文件类型筛选器

      Sub subTest3()

              Dim strFilter As String    '定义字符串变量,设置文件类型筛选器

              Dim strReturn As String  '定义字符串变量,接收返回结果

 

               strFilter = "图片文件|*.jpg;*.bmp;*.png"  '文件描述和筛选器描述仍然用“|”分隔,构成一组筛选器。而多个筛选器描述需要用";"分隔

               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:\", strFilter, "打开文件")    '打开一个“打开文件”对话框

             

               '验证结果

              If strReturn <> "" Then

                      Msgbox "您要打开的文件路径是 " & strReturn

              Else

                      Msgbox "您没有选择要打开的文件"

              End If

      End Sub

 

运行效果

      示例1的运行效果 (不同系统,效果会有些区别)

      OpenFileDialog