modcdlg.bas

来自「是一个加花工具,可以用来保护软件,躲过杀毒软件的查杀」· BAS 代码 · 共 55 行

Attribute VB_Name = "Modcdlg"
'********************************************
''' 作者:kylinpoet or 獬独
''''2007-05-14 23:44 初稿
''''2007-05-15 13:32 修改
''''转载请保留作者 声明
'********************************************
Option Explicit
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
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
         "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
         

'         Dim OpenFile As OPENFILENAME
'         Dim lReturn As Long
'         Dim sFilter As String
'         OpenFile.lStructSize = Len(OpenFile)
'         OpenFile.hwndOwner = Me.hWnd
'         OpenFile.hInstance = App.hInstance
'         sFilter = "数据文件 (*.mdb)" & Chr(0) & "history.mdb" & Chr(0)
'         OpenFile.lpstrFilter = sFilter
'         OpenFile.nFilterIndex = 1
'         OpenFile.lpstrFile = String(257, 0)
'         OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
'         OpenFile.lpstrFileTitle = OpenFile.lpstrFile
'         OpenFile.nMaxFileTitle = OpenFile.nMaxFile
'         OpenFile.lpstrInitialDir = "C:\"
'         OpenFile.lpstrTitle = "打开"
'         OpenFile.flags = 0
'         lReturn = GetOpenFileName(OpenFile)