打开对话框

exiong 2003-11-13 10:58:58
经常在网上看到这样的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

但是,它只能实现选择一个文件。

请问:如何实现,多个文件的选择呢?
...全文
66 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
exiong 2003-11-13
  • 打赏
  • 举报
回复
问题解决,回复有分

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧