VB中如何调用API显示文件选择对话框

[milp]

不用COMMDLG32.dll,只用API , 能实现么?

[lgs666]

Option Explicit

'--------------
'模块

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
pOpenfilename As OPENFILENAME) As Long

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


'--------------------------------
'窗体
Dim strFile As String

Dim OFName As OPENFILENAME

OFName.lStructSize = Len(OFName)
OFName.hwndOwner = Me.hWnd
OFName.hInstance = App.hInstance
OFName.lpstrFilter = "All Files(*.*)" & Chr(0) & "*.*"
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrTitle = "Open File"
OFName.flags = 0
If GetOpenFileName(OFName) Then
strFile = Trim(OFName.lpstrFile)
End If

[milp]

你这还是用到了comdlg32.dll啊,有些机器上安装这个需要重新启动,能不能直接调用windows的API呢

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
pOpenfilename As OPENFILENAME) As Long

[cso]

任何一个windows都必须有comdlg32.dll,这是系统的库文件,如果这个文件没了,那么所有用到"打开文件"对话框的程序都会出错的,说白一点,就是"打开文件"对话框必须调用comdlg32.dll,除非你自己做一个"打开文件"对话框

[milp]

好象是哦,谢谢了

[rainstormmaster]

//你这还是用到了comdlg32.dll啊,有些机器上安装这个需要重新启动,能不能直接调用windows的API呢

一般都是用GetOpenFileName这个函数实现的，一般的机器上也都有comdlg32.dll这个文件，不需要你来安装