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

　　　　调用"打开文件"对话框的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

问题未解决：