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

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

Admin | 2009-5-5 13:09:54 | TrackRecord: 2610 Times | Tag标签：asp.net 打印本页

您当前所处的位置是：〖首页〗→【文章页】本站共有16个图文教程栏目,请用心拜读!

本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

调用"打开文件"对话框的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调用“打印”对话框的代码

会员评论列表：