當前位置:首頁 » 文件管理 » 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

熱點內容
怎麼下載php 發布:2025-09-18 12:41:53 瀏覽:213
php登錄原理 發布:2025-09-18 12:37:00 瀏覽:598
php全等 發布:2025-09-18 12:36:55 瀏覽:636
c語言怎麼表示奇數 發布:2025-09-18 12:26:21 瀏覽:409
瑞薩編譯器原理 發布:2025-09-18 12:12:01 瀏覽:11
阿里雲北京伺服器存放地點 發布:2025-09-18 12:11:49 瀏覽:219
打開支付界面密碼如何設置 發布:2025-09-18 12:01:35 瀏覽:529
絕地求生和賽博朋克2077哪個吃配置 發布:2025-09-18 11:35:20 瀏覽:168
亞索腳本秒風 發布:2025-09-18 11:35:07 瀏覽:436
sql表的復制 發布:2025-09-18 11:02:25 瀏覽:73