비주얼베이직 파일
비주얼베이직을 실행시켜 주시고요
비주얼베이직 파일실행하기
빨간테두리는 DriveListBox 이구요
파랑테두리는 DirListBox 이구요
노랑테두리는 FilelistBox 입니다.
출력하고 불러올꺼니 초록테두리 FilelistBox 부분을 눌르고 속성창에 Pattern 부분을 *.bmp;*.jif;*.jpg 로 변경해주세요
또 폼을 추가해주세요
폼추가방법 : 프로젝트 ▶ 폼추가
소스
Private Sub Dir1_Change() '//DirListBox
File1.Path = Dir1.Path '//디렉토리를 표시한다.
End Sub
File1.Path = Dir1.Path '//디렉토리를 표시한다.
End Sub
Private Sub Drive1_Change() '//DriveListBox
Dir1.Path = Drive1.Drive '//컴퓨터에 설치된 드라이브를 표시한다.
End Sub
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
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을 눌러 테스트 해봅시다.
이상으로 [비주얼베이직] 파일 관련 컨트롤 사용하기 포스팅을 마치겠습니다.
'IT정보 > 비주얼베이직' 카테고리의 다른 글
[비주얼베이직] 트레이 사용하기 (10) | 2011.08.12 |
---|---|
[비주얼베이직] 비밀번호 필터링, 패스워드 감추기 (7) | 2011.08.08 |
[비주얼베이직] 파일 관련 컨트롤 사용하기 (12) | 2011.08.01 |
[비주얼베이직] 입력 상자(inputbox) 사용하기 (7) | 2011.07.30 |
[비주얼베이직] Timer 사용하기 (스톱워치 만들기) (15) | 2011.07.28 |
[비주얼베이직] 리스트박스(ListBox) 사용하기 (4) | 2011.07.28 |
아님아아저
그거
그비주얼베이직프로그램으로만든거실행할시
쉘문안에인터넷이있는거어떻게만드나요?강좌점요
답글
http://lovebear.tistory.com/62 http://lovebear.tistory.com/87
두 글을 참고 해주시면 될것같습니다 ^^
으잉? 이게 머지. ㅇ_ㅇa
답글
으잉? ㅋㅋ
ㅋㅋㅋㅋㅋ 저도 언제 개인교습좀 해주세요 ㅎ
답글
허어엉 저못해요 ;;
아직 초보에요
두번안눌러지네저가더초보임ㅜㅜ
답글
음 ㅇㅅㅇ
c드라이버 다운로드 에다가 피파 스샷을 나둿는데요 안보이네요 .. 뭐가 잘못대엇남..
답글
경로가 잘못된건 아닐까요?
수고많으십니다. www.inet-m.com 무료강좌가 오픈되었습니다. 참고하세요
비주얼베이직6과 닷넷의 영상처리자료입니다.
답글
앜ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ사진ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ ㅋㅋㅋㅋㅋㅋㅋㅋ 이사ㅋ진 낚시프로그램에 쓰면 좋을겈ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ
답글