當前位置:首頁 » 文件管理 » commondialog選擇文件夾

commondialog選擇文件夾

發布時間: 2022-12-06 21:33:17

㈠ vb怎麼實現彈出對話框選擇文件路徑

VB6.0使用CommonDialog 控制項彈出對話框選擇文件路徑。

通過使用 CommonDialog 控制項的 ShowOpen 和 ShowSave
方法可顯示「打開」和「另存為」對話框。

兩個對話框均可用以指定驅動器,目錄,文件擴展名和文件名。除對話的標題不同外,另存為對話外觀上與打開對話相似。

下例顯示「打開」對話框然後在信息框中顯示所選的文件名:

PrivateSubCommand1_Click()
'設置「CancelError」為True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'設置標志
CommonDialog1.Flags=cdlOFNHideReadOnly
'設置過濾器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
'指定預設的過濾器
CommonDialog1.FilterIndex=2
'顯示「打開」對話框
CommonDialog1.ShowOpen
'顯示選定文件的名字
MsgBoxCommonDialog1.FileName'顯示路徑
ExitSub
ErrHandler:
'用戶按了「取消」按鈕
ExitSub
EndSub

㈡ VB6 求 彈出選擇 這一種 外觀的文件夾 選擇對話框,注意是要<文件夾>的,謝謝!

PrivateSubChooseDir_Click()
DimsTempDirAsString
OnErrorResumeNext
sTempDir=CurDir'
CommonDialog1.DialogTitle="Selectadirectory"'titlebar
CommonDialog1.InitDir=App.Path'startdir,mightbe"C:"orsoalso
CommonDialog1.FileName="SelectaDirectory"'Somethinginfilenamebox
CommonDialog1.Flags=cdlOFNNoValidate+cdlOFNHideReadOnly
CommonDialog1.Filter="Directories|*.~#~"'setfiles-filtertoshowdirsonly
CommonDialog1.CancelError=True'allowescapekey/cancel
CommonDialog1.ShowSave'showthedialogscreen
IfErr<>32755Then'Userdidn'tchoseCancel.
Me.SDir.Text=CurDir
EndIf
ChDirsTempDir'
EndSub

熱點內容
頁面訪問在線升級 發布:2025-09-18 19:13:46 瀏覽:773
相機存儲滿 發布:2025-09-18 19:12:19 瀏覽:754
如何搭載我的世界伺服器 發布:2025-09-18 19:02:39 瀏覽:425
c語言組框 發布:2025-09-18 19:02:23 瀏覽:941
如何看見真我手機的全部配置 發布:2025-09-18 18:48:10 瀏覽:973
戰地5默認是什麼伺服器 發布:2025-09-18 17:59:32 瀏覽:308
安卓變ios系統主題怎麼弄 發布:2025-09-18 17:54:07 瀏覽:887
linux出口ip 發布:2025-09-18 17:51:57 瀏覽:948
androidbitmap使用 發布:2025-09-18 17:49:20 瀏覽:242
數字日期加密 發布:2025-09-18 17:43:46 瀏覽:509