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
熱點內容