計算機學習積累

－－－－轉載有理，轉載是想研究，想研究才會看，看了才會有感想，轉載后我有時會寫一些自己的感受

數據加載中……

如何用CommonDialog實現只選擇路徑（轉載）

用CommonDialog實現只選擇路徑:
???
Private?Declare?Function?SHBrowseForFolder?Lib?"shell32.dll"?Alias?"SHBrowseForFolderA"?(LpBrowseInfo?As?BROWSEINFO)?As?Long?
Private?Declare?Function?SHGetPathFromIDlist?Lib?"shell32.dll"?Alias?"SHGetPathFromIDListA"?(ByVal?pidl?As?Long,?ByVal?pszPath?As?String)?As?Long?
Private?Type?BROWSEINFO?
??hOwner?As?Long?
??pidlroot?As?Long?
??pszDisplayName?As?String?
??lpszTitle?As?String?
??ulFlags?As?Long?
??lpfn?As?Long?
??lparam?As?Long?
??iImage?As?Long?
End?Type?
Public?Function?GetFolder(Optional?Title?As?String,?Optional?hwnd)?As?String?

????Dim?bi?As?BROWSEINFO?
????Dim?pidl?As?Long?
????Dim?folder?As?String?
?????
folder?=?Space(255)?
?????
With?bi?
???If?IsNumeric(hwnd)?Then?.hOwner?=?hwnd?
???.ulFlags?=?BIF_RETURNONLYFSDIRS?
???.pidlroot?=?0?
???If?Title?<>?""?Then?
??????.lpszTitle?=?Title?&?Chr$(0)?
???Else?
??????.lpszTitle?=?"選擇目錄"?&?Chr$(0)?
????End?If?
End?With?

pidl?=?SHBrowseForFolder(bi)?
If?SHGetPathFromIDlist(ByVal?pidl,?ByVal?folder)?Then?
????GetFolder?=?Left(folder,?InStr(folder,?Chr$(0))?-?1)?
Else?
????GetFolder?=?""?
End?If?
End?Function?
\'調用方式?
\'FilePath=GetFolder("打開一個目錄",?Form1.hwnd)

posted on 2006-07-03 09:06 freebird 閱讀(888) 評論(0) 編輯收藏所屬分類: vb

新用戶注冊刷新評論列表


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關文章: VB中文件操作的兩種方式如何用CommonDialog實現只選擇路徑（轉載） vb 實現查找進程

計算機學習積累

如何用CommonDialog實現只選擇路徑（轉載）

導航

公告

留言簿(1)

隨筆分類(72)

友情

搜索

最新評論

閱讀排行榜