첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

728x90
반응형
CommonDialog1.Filter = "그림 파일|*.bmp; * gif; *.jpg|GIF 파일|*.gif|JPEG 파일|*.jpg"
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "파일 열기 대화 상자"
CommonDialog1.InitDir = "c:\"

CommonDialog1.ShowOpen

If Len(CommonDialog1.FileName) > 0 Then

    MsgBox CommonDialog1.FileName + " 파일이 선택되었습니다."

Else

    MsgBox "선택된 파일이 없습니다."

End If
728x90
반응형
Posted by 사용자 icodebroker
TAG , ,

댓글을 달아 주세요