电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

一個Vb中的通用對話框函數(shù)

 百眼通 2014-10-26

  • 以下函數(shù)相當不錯，用于在VB中調(diào)用“打開文件”、“保存文件”對話框，幾乎大部分程序，都需要與文件操作相關，打開文件是必不可少的，因此來說，本模塊在VB編程中還是相當實用的哦。

    VB通用對話框函數(shù)說明：

    hwnd 窗口句柄
    sFilter 過濾器設置 格式為： "音頻文件" & Chr(0) & "*.mp3;*.wav;*.mid"
    dwFlags 對話框類型 可選值 0 - 1
    0 打開對話框
    1 保存對話框

    具體函數(shù)代碼如下：

    01Public Type OPENFILENAME '通用對話框信息
    02        lStructSize As Long  '緩沖區(qū)大小
    03        hwndOwner As Long '父窗口句柄
    04        hInstance As Long '應用程序事件句柄 一般設為 App.hInstance
    05        lpstrFilter As String '文件類型過濾器
    06        lpstrCustomFilter As String '默認文件擴展名
    07        nMaxCustFilter As Long '擴展名最大長度
    08        nFilterIndex As Long
    09        lpstrFile As String '文件全路徑
    10        nMaxFile As Long '文件全路徑名最大長度
    11        lpstrFileTitle As String '文件標題
    12        nMaxFileTitle As Long '文件標題最大長度
    13        lpstrInitialDir As String '默認路徑
    14        lpstrTitle As String '打開對話框標題
    15        Flags As Long '打開對話框類型
    16        nFileOffset As Integer
    17        nFileExtension As Integer
    18        lpstrDefExt As String
    19        lCustData As Long
    20        lpfnHook As Long
    21        lpTemplateName As String
    22End Type
    23Public Function OpenDialog(ByVal hWnd As Long, ByVal sFilter As String, ByVal dwFlgs As Long) As String
    24Dim Info As OPENFILENAME
    25Select Case dwFlgs
    26   Case 0 '打開
    27     With Info
    28       .lStructSize = Len(Info)
    29       .hwndOwner = hWnd
    30       .hInstance = App.hInstance
    31       .lpstrFilter = sFilter
    32       .lpstrFile = Space(254)
    33       .nMaxFile = 255
    34       .lpstrFileTitle = Space(254)
    35       .nMaxFileTitle = 255
    36       .lpstrInitialDir = App.Path
    37       .Flags = 6148
    38    End With
    39    GetOpenFileName Info
    40    OpenDialog = Info.lpstrFile
    41   Case 1 '保存
    42     With Info
    43       .lStructSize = Len(Info)
    44       .hwndOwner = hWnd
    45       .hInstance = App.hInstance
    46       .lpstrFilter = sFilter
    47       .lpstrFile = Space(254)
    48       .nMaxFile = 255
    49       .lpstrFileTitle = Space(254)
    50       .nMaxFileTitle = 255
    51       .lpstrInitialDir = App.Path
    52       .Flags = 6148
    53    End With
    54    GetSaveFileName Info
    55    OpenDialog = Info.lpstrFile
    56 End Select
    57End Function
  		•

      本站是提供個人知識管理的網(wǎng)絡存儲空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導購買等信息，謹防詐騙。如發(fā)現(xiàn)有害或侵權內(nèi)容，請點擊一鍵舉報。
      轉藏 分享 獻花（0）

      0條評論

      發(fā)表

      請遵守用戶 評論公約

      類似文章 更多