大众计算机学习网

专门提供各种电脑教程

VB调用“打开文件”对话框的代码

Admin | 2009-5-5 13:09:54 | 被阅次数 | 9867

调用"打开文件"对话框的VB代码

  Private 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
  Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

  将以下代码置于某一事件中

  Dim ofn As OPENFILENAME
  ofn.lStructSize = Len(ofn)
  ofn.hwndOwner = Form1.hWnd
  ofn.hInstance = App.hInstance
  ofn.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "Rich Text Files (*.rtf)" + Chr$(0) + "*.rtf" +   Chr$(0)
  ofn.lpstrFile = Space$(254)
  ofn.nMaxFile = 255
  ofn.lpstrFileTitle = Space$(254)
  ofn.nMaxFileTitle = 255
 ofn.lpstrInitialDir = curdir
  ofn.lpstrTitle = "Our File Open Title"
  ofn.flags = 0
  Dim a
  a = GetOpenFileName(ofn)
  If (a) Then
   MsgBox "File to Open: " + Trim$(ofn.lpstrFile)
  Else
   MsgBox "Cancel was pressed"
  End If