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

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

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

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

该杂文来自：网站开发杂文

上一篇：VB代码之禁止使用Alt+F4关闭窗口及软件的使用限制

下一篇：VB调用“打印”对话框的代码