modcdlg.bas

来自「vb编制的木马加花器」· 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)