7,732
社区成员
发帖
与我相关
我的任务
分享打开对话框
经常在网上看到这样的API代码：
Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = FormName.hwnd
ofn.hInstance = App.hInstance
'ActiveX (*.ocx OR *.dll)|*.ocx;*.dll|所有文件(*.*)|*.*
ofn.lpstrFilter = sOpenType
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.lpstrTitle = "选择文件"
ofn.flags = 0
Dim tmp
tmp = GetOpenFileName(ofn)
If (tmp) Then
FileSelect = Trim$(ofn.lpstrFile)
Else
FileSelect = ""
End If
但是，它只能实现选择一个文件。
请问：如何实现，多个文件的选择呢？
Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = FormName.hwnd
ofn.hInstance = App.hInstance
'ActiveX (*.ocx OR *.dll)|*.ocx;*.dll|所有文件(*.*)|*.*
ofn.lpstrFilter = sOpenType
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.lpstrTitle = "选择文件"
ofn.flags = 0
Dim tmp
tmp = GetOpenFileName(ofn)
If (tmp) Then
FileSelect = Trim$(ofn.lpstrFile)
Else
FileSelect = ""
End If
但是，它只能实现选择一个文件。
请问：如何实现，多个文件的选择呢？
...全文
请发表友善的回复…
发表回复
exiong 2003-11-24
- 打赏
- 举报
怎么不能结贴了？
exiong 2003-11-24
- 打赏
- 举报
Sorry，都忘了在这里发了帖子。现在结贴！
谢谢！
谢谢！
lwm1977 2003-11-13
- 打赏
- 举报
赶快记笔记
海牛 2003-11-13
- 打赏
- 举报
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_LONGNAMES = &H200000
ofn.flags = OFN_ALLOWMULTISELECT Or OFN_LONGNAMES
Private Const OFN_LONGNAMES = &H200000
ofn.flags = OFN_ALLOWMULTISELECT Or OFN_LONGNAMES
exiong 2003-11-13
- 打赏
- 举报
问题解决，回复有分
