安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
Access通用开发平台FAQ手册介绍
1 Access通用平台使用步骤及问题详解
2 解决Access开发平台查询列表窗体只有一条记录时按删除或删除所有数据会出错
3 Access开发平台?#29238;?#24120;用函数说明-(自动编码,弹出日期,弹出计算器,用户函数)
4 开发平台树导航的字体能否修改-调大或缩小
5 解决子窗体或数据表窗体的列宽度无法保存重新打开?#21482;指?#21407;样了
6 Access通用开发平台在系统启动时自动打开你指定的窗体
7 Access平台窗体上添加复选框或其它控件不能使用
8 Access平台数据库字度长度加长-字段升位问题
9 Access通用开发平台标?#21450;?#30340;免费激活操作步骤
10 Access通用开发平台增加获取?#24039;?#21517;称的自定义函数
11 Access平台实现审核与反审核功能的演示及源码
12 通用开发平台流程图的拖拉设计展示1
13 平台窗体字段显?#26087;?#32622;对应的是哪一个数据表
14 平台字段长度修改(改大了)后,但窗体还是无法录入更多内容
15 Access平台如何使用选项卡式的界面(选项卡式文档)
16 Access平台打包发布前能否清除用户登录信息
17 如何提高Access数据库平台的速度
18 Access开发平台--关闭系统时提示:是否保存对窗体(窗体名)的设计的更改?解决方案
19 Access平台在编辑窗体使用按钮打开基础数据并定位到指定分类
20 Access开发平台--获取用户名
21 解决Access平台运行一?#38382;?#38388;后会出现系统打开时会自动打开一个最后一次打开的窗体
22 修改Access通用平台创建的窗体
23 Access通用平台在导航中执行宏
24  平台函数gf_GetOpenFileName的应用
25 解决通用平台打开提示“对象?#24674;С指?#23646;性或者方法” 树控件不显示的方法
26 解决通用平台导航栏滚动条拖动到最右边导致页面无法显示的问题
27 平台手工创建的窗体在 “导航设置” 中以 “子窗体”加入后,原来窗体的引用修改方法
28 平台未关闭子窗体直接关闭整个系?#31243;?#31034;是否保存对XXXX窗体设计的更改

平台函数gf_GetOpenFileName的应用

2017-11-09 13:57:56
黄善超
637
最后编辑:zstmtony 于 2019-05-09 13:44:14

平台内置了很多函数,用户可以直?#25317;?#29992;

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

 

语法

gf_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle)


参数

参数名

必需/可选

数据类型

参数说明

lHwnd

必需

Long

 窗体或者程序句柄,?#35805;?#20351;用Application.hWndAccessApp 即可。

sRoot

必需

String

 打开对话框的初始路径。

strFilter

必需

String

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

sTitle

必需

String

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


返回值

返回一个?#22336;?#20018;(String),即通过对话框选择的文件。若没有选择文件,则返回空?#22336;?#20018;。

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

 

示例

    '单个文件类型筛选器
      Sub subTest1()
              Dim strFilter As String    '定义?#22336;?#20018;变量,设置文件类型筛选器
              Dim strReturn As String  '定义?#22336;?#20018;变量,接收返回结果
 
               strFilter = "文本文件(*.txt)|*.txt"  '文件描述和筛选器描述用“|”?#25351;?               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub
 
      '多个文件类型筛选器
      Sub subTest2()
              Dim strFilter As String    '定义?#22336;?#20018;变量,设置文件类型筛选器
              Dim strReturn As String  '定义?#22336;?#20018;变量,接收返回结果
 
               strFilter = "文本文件(*.txt)|*.txt|配置文件(*.ini)|*.ini"  '文件描述和筛选器描述仍然用“|”?#25351;簦?#26500;成一组筛选器,多个筛选器也用“|”?#25351;?               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub
 
      '同时筛选多种文件类型筛选器
      Sub subTest3()
              Dim strFilter As String    '定义?#22336;?#20018;变量,设置文件类型筛选器
              Dim strReturn As String  '定义?#22336;?#20018;变量,接收返回结果
 
               strFilter = "图片文件|*.jpg;*.bmp;*.png"  '文件描述和筛选器描述仍然用“|”?#25351;簦?#26500;成一组筛选器。而多个筛选器描述需要用";"?#25351;?               strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件")    '打开一个“打开文件”对话框
             
               '验证结果
              If strReturn <> "" Then
                      Msgbox "您要打开的文件路径是 " & strReturn
              Else
                      Msgbox "您没有选择要打开的文件"
              End If
      End Sub




运行效果

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

      OpenFileDialog



? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:23
内存占用:7.25MB
PHP 执行时间:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
罗马假日观后感英文 亿游国际平台彩票平台 德甲云达不莱梅_RB莱比锡 qq飞车月光女神 仁川联vs蔚山现代 哪个彩票论坛好 巨人财富彩金 美因茨对阵弗赖堡的比分结果 fifa手游操作技巧 猪幸运生肖