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

■ CommonDialog 클래스 : 파일 열기 대화 상자 사용하기

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요