说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用 WIN95 的选择目录对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB使用 WIN95 的选择目录对话框

声明:
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 Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260

Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
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
函数:
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String

Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo

With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If

BrowseForFolder = sPath

End Function
对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 help IdPOP3严重求救! 从数据库中读出来的日文为什么会是乱码? 关于结贴给分的问题? 请问有没有现成的在加载地图前的loading图标和判断地图加载的程序 高分求救,关于BusinessSkinForm的问题 向高手请教 如何在水晶报表中画斜线? 我怎么想也不明后,帮我看看这是为什么 asp与ie问题,哪位解决了送三星手机一部,急急急急急。。。 英语翻译…– ..— .-.-.- —-.….- 石下面一个非字的读音是什么 A字发音是什么? 求快乐的秘诀请有知识之士教我 求翻译【.. -- .. ... ... -.-- 英语翻译这个应该是摩斯电码吧 朋友写在签名上的 好 It is sunyny today .(改成一般 英语翻译帮忙翻译一段摩斯电码 it today Wednesday is怎么连词 马云谈\"来往\":我和马化腾在下棋国家卫计委要求严惩温岭医生被刺事件凶伊朗停丰度20%铀浓缩 伊朗政府尚未日本福岛外海强震上修为7.1级 东京海军三大舰队首次在西太平洋实兵对抗水均益:我把心剖给你看小德“纳豆”确认参加中网“戏曲交响乐” 玩“混搭”受欢迎中华人民共和国 蛇口海关公告市直机关青年足球赛落幕天道之天殇升龙之变无限·世界孤雪飘飞综漫之轮回眼民国之北洋崛起洪椿坪旅游仙峰寺旅游洗象池旅游黄山芙蓉谷旅游桃花源旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘