본문 바로가기
IT정보/비주얼베이직

[비주얼베이직] 파일 관련 컨트롤 사용하기

by 곰사랑 2011. 8. 1.
[비주얼베이직] 파일 관련 컨트롤을 사용해서 그림파일을 출력하고 그림파일을 불러오게 만들어보겠습니다.
비주얼베이직 파일
비주얼베이직을 실행시켜 주시고요

위처럼 디자인을 해주세요
비주얼베이직 파일실행하기
빨간테두리는 DriveListBox 이구요

파랑테두리는 DirListBox 이구요

노랑테두리는 FilelistBox 입니다.



그림파일 확장자를

출력하고 불러올꺼니 초록테두리 FilelistBox 부분을 눌르고 속성창에 Pattern 부분을 *.bmp;*.jif;*.jpg 로 변경해주세요



또 폼을 추가해주세요

폼추가방법 : 프로젝트 ▶ 폼추가
 

이렇게 폼추가하신후 픽쳐박스를 저렇게 그려주세요



소스
Private Sub Dir1_Change()     '//DirListBox
File1.Path = Dir1.Path            '//디렉토리를 표시한다.
End Sub
Private Sub Drive1_Change()      '//DriveListBox
Dir1.Path = Drive1.Drive             '//컴퓨터에 설치된 드라이브를 표시한다.
End Sub
Private Sub File1_Click()             '//FilelistBox //선택된 파일 목록을 표시한다.
Text1.Text = Drive1.Drive            '//드라이브 텍스트에 드라이브를 표시한다.
Text2.Text = Dir1.Path                '//디렉토리 텍스트에 디렉토리를 표시한다.
Text3.Text = File1.FileName(경로)     '//파일이름 텍스트에 파일목록을 표시한다.
Form2.Show      '//폼2를 연다.
경로 = Dir1.Path & "\" & File1.FileName        '//디렉토리에 파일를 변수선언한다.
Form2.Picture1.Picture = LoadPicture(경로)     '//폼2 픽쳐박스에 디렉토리 파일을 표시한다.
End Sub

예제파일




F5을 눌러 테스트 해봅시다.

디렉토리 부분에 .jpg 파일을 클릭해봅시다.



이렇게 표시되었습니다. 폼2부분에 픽쳐박스를 크게만드시면 사진파일도 크게나타납니다.


이상으로 [비주얼베이직] 파일 관련 컨트롤 사용하기 포스팅을 마치겠습니다.

댓글12