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 平颱手工創建的窗體在 “導航設置” 中以 “子窗體”加入後,原來窗體的引用修改方法
28 平颱未關閉子窗體直接關閉整箇繫統提示是否保存對XXXX窗體設計的更改

平颱函數gf_GetOpenFileName的應用

2017-11-09 13:57:56
黃善超
709
最後編輯:zstmtony 於 2019-05-09 13:44: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