module1.bas

来自「冰点BaiDNS动态域名解析系统是基于VB程序开发」· BAS 代码 · 共 35 行

Attribute VB_Name = "Module1"
'Download by http://www.codefans.net
Option Explicit
    
  '--------------
  '模块
    
  Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
            pOpenfilename As OPENFILENAME) As Long
              
  Public Type OPENFILENAME
          lStructSize   As Long
          hwndOwner   As Long
          hInstance   As Long
          lpstrFilter   As String
          lpstrCustomFilter   As String
          nMaxCustFilter   As Long
          nFilterIndex   As Long
          lpstrFile   As String
          nMaxFile   As Long
          lpstrFileTitle   As String
          nMaxFileTitle   As Long
          lpstrInitialDir   As String
          lpstrTitle   As String
          flags   As Long
          nFileOffset   As Integer
          nFileExtension   As Integer
          lpstrDefExt   As String
          lCustData   As Long
          lpfnHook   As Long
          lpTemplateName   As String
  End Type