如何显示一个目录选择对话框,要可以指定初始路径!

town 2001-11-10 04:55:42
我这作有个,但不能指定初始路径:
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Public Function BrowerFolder(lngHwnd As Long, strTitle As String) As String
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo

szTitle = strTitle
With tBrowseInfo
.hwndOwner = lngHwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
BrowerFolder = sBuffer
End If
End Function
...全文
159 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
town 2001-11-12
  • 打赏
  • 举报
回复
upup
town 2001-11-11
  • 打赏
  • 举报
回复
我要用API,因为我是在VB中用。
taxi 2001-11-11
  • 打赏
  • 举报
回复
uses FileCtrl;

SelectDirectory
town 2001-11-11
  • 打赏
  • 举报
回复
就是在一个很复杂的界面上有一个功能,选择一个目录,就这么简单;不想破坏这个界面增中加一个DirListBox控件,也不想单独增加一个放有DirListBox的窗体来处理;
就象有MsgBox可以用,你不必去自已编一个吧。

问问题还需要说明为什么问吗?DirListBox这么老土。
meilideme 2001-11-11
  • 打赏
  • 举报
回复
to:ByTheWay(到此一游)
说什么呢,
就是啊,我们可以讨论的吗
ByTheWay 2001-11-11
  • 打赏
  • 举报
回复
O SORRY,下次说话注意语气、用词。
我觉得功能效果都一样,为什么不用DirListBox控件?
能说说你的想法吗?
大家一起讨论讨论。
town 2001-11-10
  • 打赏
  • 举报
回复
我不想用控件或增加窗体,能用为什么不用。
这个复杂吗?
ByTheWay 2001-11-10
  • 打赏
  • 举报
回复
笔误:

需要这么复杂吗?
你在VB6中用DirListBox控件,指定DIR=初始路径就OK了
Amoon 2001-11-10
  • 打赏
  • 举报
回复
hehe,对呀。
ByTheWay 2001-11-10
  • 打赏
  • 举报
回复
需要这么复杂吗?
你在VB6中用DIRLISTBOXBOX控件,指定DIR=初始路径就OK了

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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