Access通用开发平台FAQ手册介绍
1 Access通用平台使用步骤及问题详解
2 解决Access开发平台查询列表窗体只有一条记录时按删除或删除所有数据会出错
3 Access开发平台几个常用函数说明-(自动编码,弹出日期,弹出计算器,用户函数)
4 开发平台树导航的字体能否修改-调大或缩小
5 解决子窗体或数据表窗体的列宽度无法保存重新打开又恢复原样了
6 Access通用开发平台在系统启动时自动打开你指定的窗体
7 Access平台窗体上添加复选框或其它控件不能使用
8 Access平台数据库字度长度加长-字段升位问题
9 Access通用开发平台标准版的免费激活操作步骤
10 Access通用开发平台增加获取角色名称的自定义函数
11 Access平台实现审核与反审核功能的演示及源码
12 通用开发平台流程图的拖拉设计展示1
13 平台窗体字段显示设置对应的是哪一个数据表
14 平台字段长度修改(改大了)后,但窗体还是无法录入更多内容
15 Access平台如何使用选项卡式的界面(选项卡式文档)
16 Access平台打包发布前能否清除用户登录信息
17 如何提高Access数据库平台的速度
18 Access开发平台--关闭系统时提示:是否保存对窗体(窗体名)的设计的更改?解决方案
19 Access平台在编辑窗体使用按钮打开基础数据并定位到指定分类
20 Access开发平台--获取用户名
21 解决Access平台运行一段时间后会出现系统打开时会自动打开一个最后一次打开的窗体
22 修改Access通用平台创建的窗体
23 Access通用平台在导航中执行宏
24  平台函数gf_GetOpenFileName的应用
25 解决通用平台打开提示“对象不支持该属性或者方法” 树控件不显示的方法
26 解决通用平台导航栏滚动条拖动到最右边导致页面无法显示的问题
27 平台手工创建的窗体在 “导航设置” 中以 “子窗体”加入后,原来窗体的引用修改方法

平台函数gf_GetOpenFileName的应用

2017-11-09 13:57:56
黄善超
399
最后编辑:zstmtony 于 2018-06-05 22:50:14

平台内置了很多函数,用户可以直接调用

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

 

语法

gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)


参数

参数名

必需/可选

数据类型

参数说明

lHwnd

必需

Long

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

sRoot

必需

String

 打开对话框的初始路径。

strFilter

必需

String

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

sTitle

必需

String

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


返回值

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

如果第二个参数为空(不填),即打开上次打开的文件夹;如果是程序的目录,可用Currentproject.Path

 

示例

    '单个文件类型筛选器
      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