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

熱點內容
c語言while跳出 發布:2023-01-31 12:14:09 瀏覽:947
外語加編程 發布:2023-01-31 12:14:07 瀏覽:150
cl手動編譯 發布:2023-01-31 12:09:45 瀏覽:277
中匯編譯機 發布:2023-01-31 12:02:27 瀏覽:871
vue本地存儲 發布:2023-01-31 12:02:20 瀏覽:905
ei6max哪個配置賣的最好 發布:2023-01-31 12:01:22 瀏覽:132
如何下載配置實用工具 發布:2023-01-31 11:57:06 瀏覽:674
資料庫的備份恢復 發布:2023-01-31 11:56:58 瀏覽:392
矚目加密碼 發布:2023-01-31 11:53:09 瀏覽:848
怎麼降低資產配置 發布:2023-01-31 11:51:23 瀏覽:85