728x90
728x170
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 If728x90
그리드형(광고전용)
'VB' 카테고리의 다른 글
| [VB] 아래 한글 테이블 추가하기 (0) | 2015.05.18 |
|---|---|
| [VB] 아래 한글 폰트 선택하기 (0) | 2015.05.18 |
| [VB] 아래 한글 전체 선택하기 (0) | 2015.05.18 |
| [VB] 자동으로 OPTION EXPLICIT 명령문 사용하기 (0) | 2015.05.17 |
| [VB] CommonDialog 클래스 : 색상 대화 상자 사용하기 (0) | 2015.05.17 |
| [VB] MSFlexGrid 클래스 : TextMatrix 속성을 사용해 현재 셀 내용 설정하기/구하기 (0) | 2015.05.17 |
| [VB] FileListBox 클래스 : Filename 속성을 사용해 현재 파일명 설정하기 (0) | 2015.05.17 |
| [VB] DirListBox 클래스 : Path 속성을 사용해 현재 디렉토리 설정하기 (0) | 2015.05.17 |
| [VB] DrvieListBox 클래스 : Drive 속성을 사용해 현재 드라이브 설정하기 (0) | 2015.05.17 |
| [VB] TIMEVALUE 함수를 사용해 DATE 구하기 (0) | 2015.05.17 |
