VB6.0使ç¨CommonDialog æ§ä»¶å¼¹åºå¯¹è¯æ¡éæ©æ件路å¾ã
éè¿ä½¿ç¨ CommonDialog æ§ä»¶ç ShowOpen å ShowSave
æ¹æ³å¯æ¾ç¤ºâæå¼âåâå¦å为â对è¯æ¡ã
两个对è¯æ¡åå¯ç¨ä»¥æå®é©±å¨å¨ï¼ç®å½ï¼æ件æ©å±ååæ件åãé¤å¯¹è¯çæ é¢ä¸åå¤ï¼å¦å为对è¯å¤è§ä¸ä¸æå¼å¯¹è¯ç¸ä¼¼ã
ä¸ä¾æ¾ç¤ºâæå¼â对è¯æ¡ç¶åå¨ä¿¡æ¯æ¡ä¸æ¾ç¤ºæéçæ件åï¼
Private Sub Command1_Click()
' 设置âCancelErrorâ为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置æ å¿
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置è¿æ»¤å¨
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*
.bat)|*.bat"
' æå®ç¼ºççè¿æ»¤å¨
CommonDialog1.FilterIndex = 2
' æ¾ç¤ºâæå¼â对è¯æ¡
CommonDialog1.ShowOpen
' æ¾ç¤ºéå®æ件çåå
MsgBox CommonDialog1.FileName 'æ¾ç¤ºè·¯å¾
Exit Sub
ErrHandler:
' ç¨æ·æäºâåæ¶âæé®
Exit Sub
End Sub