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

위처럼 디자인을 해주세요
비주얼베이직 파일실행하기
빨간테두리는 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부분에 픽쳐박스를 크게만드시면 사진파일도 크게나타납니다.


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

댓글을 달아 주세요

  1. cd730 2011.08.02 10:23  댓글주소  수정/삭제  댓글쓰기

    아님아아저
    그거
    그비주얼베이직프로그램으로만든거실행할시
    쉘문안에인터넷이있는거어떻게만드나요?강좌점요

  2. Favicon of https://hiendedition.tistory.com BlogIcon spidey 2011.08.02 13:15 신고  댓글주소  수정/삭제  댓글쓰기

    으잉? 이게 머지. ㅇ_ㅇa

  3. Favicon of https://www.tisdory.com BlogIcon 철한자구/서해대교 2011.08.02 21:46 신고  댓글주소  수정/삭제  댓글쓰기

    ㅋㅋㅋㅋㅋ 저도 언제 개인교습좀 해주세요 ㅎ

  4. 내가더초보임ㅠㅠ 2011.08.10 19:19  댓글주소  수정/삭제  댓글쓰기

    두번안눌러지네저가더초보임ㅜㅜ

  5. ㅇㅅㅇ 2012.01.15 10:47  댓글주소  수정/삭제  댓글쓰기

    c드라이버 다운로드 에다가 피파 스샷을 나둿는데요 안보이네요 .. 뭐가 잘못대엇남..

  6. Favicon of http://www.inet-m.com BlogIcon 아이넷엠컴 2012.02.20 10:06  댓글주소  수정/삭제  댓글쓰기

    수고많으십니다. www.inet-m.com 무료강좌가 오픈되었습니다. 참고하세요
    비주얼베이직6과 닷넷의 영상처리자료입니다.

  7. Favicon of http://un5450.blog.me BlogIcon 앜ㅋㅋㅋㅋㅋㅋㅋ 2012.05.31 20:03  댓글주소  수정/삭제  댓글쓰기

    앜ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ사진ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ ㅋㅋㅋㅋㅋㅋㅋㅋ 이사ㅋ진 낚시프로그램에 쓰면 좋을겈ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ


Text1 변환하려는 수 입력 텍스트
Text2 변환된값 텍스트
Command1 변환 단추
Command2 끝내기 단추

디자인을 이렇게 배치해주세요



소스
Private Sub Command1_Click()     '// 변환 단추
입력값 = Val(Text1.Text)              '// 문자로 입력되는 것을 숫자로 변환하는 함수이다.
If 입력값 < 0 Then          '//만약 입력값이 0 보다 작으면
Text2.Text = "형태 : 음수, " & "절대값 : " & 입력값 * -1           '// 입력값에 -1을 곱하여 양수로 변환한 후 표시한다
Else          '//다를때
Text2.Text = "형태 : 양수, " & "절대값 : " & 입력값                 '// 입력값이 0 보다 크면 문자와 값을 변환없이 그대로 출력한다.
End If
End Sub

Private Sub Command2_Click()   '//끝내기 단추
Unload Me        '// 나를 종료한다
End Sub



조건 판단하기 예제



조건문의 문법

If 조건 Then
문장
End If  
조건이 참이면 문장을 수행한다.


If 조건 Then
문장1
Else
문장2
조건이 참이면 문장1을 수행하고 거짓이면 문장 2를 실행한다.

 * 관계를 표시하는 연산자
 연산자  의미  연산자  의미
 =  같다.  <  작다.
<>  같지 않다.  <=  작거나 같다.
 >  크다.  >=  크거나 같다.


더많은 강좌를 보시려면

Posted by 곰사랑

댓글을 달아 주세요

  1. Favicon of https://hiendedition.tistory.com BlogIcon spidey 2011.07.11 17:25 신고  댓글주소  수정/삭제  댓글쓰기

    오... 비주얼베이직 잘하시나보네요.!!

  2. 2012.06.24 21:53  댓글주소  수정/삭제  댓글쓰기

    언로드미 보단 엔드가 시간 몇초더 절약됨다 .
    근데
    unload me
    form2.show
    이때 end 쓰면 망함,ㅋ
    그냥 프로그램끝낼때 end 문쓰세여


비주얼베이직 데이터형 변환하기를 배워봅시다.

TextBox에 입력된 데이터는 기본적으로 문자로 인식하게 됩니다. 그래서 TextBox에 입력된 숫자를
처리할 때는 반드시 숫자형 변수에 저장해야 합니다. 이러한 불편함을 없애고 문자를 직접 숫자로 변환하여
사용할 수 있는 방법이 함수를 이용하는 방법이 있습니다.

Text1 이름이 입력될 텍스트
Text2 이론점수가 입력될 텍스트
Text3 실기점수가 입력될 텍스트
Text4 결과가 입력될 텍스트
Command1 확인 단추
Command2 종료 단추

디자인을 이렇게 만들어주세요



소스
Private Sub Command1_Click()  '확인버튼
Text4.Text = "귀하의 이름은 " & Text1.Text & "이며 총점은 " & Text2.Text + Text3.Text & "입니다"
End Sub
Private Sub Command2_Click() '취소버튼
Unload Me
End Sub


F5를 눌러 테스트 해봅시다

요기서 먼가 이상하지 않으세요?
분명 총점인데 85+45 = 130이 나와야 하는데 8545가 나오죠?

그이유는 문자를 숫자로 변환하는 함수를 입력을 안해서 그렇습니다.
수정해 보도록 하겠습니다.



 이제 정상적으로 변화였죠?


소스
Private Sub Command1_Click()
Text4.Text = "귀하의 이름은 " & Text1.Text & "이며 총점은 " & Val(Text2.Text) + Val(Text3.Text) & "입니다"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

뭐가 바뀐지 아시겠죠?
Val(Text2.Text) + Val(Text3.Text) 가 사용되었습니다.

Val(문자)는 문자로 입력되는 값을 숫자로 변환하는 함수이다. 즉 TextBox에 입력된 값은
문자로 처리되므로 숫자형 변수에 저장하거나, Val 함수를 이용하여 숫자로 변환해야 한다.

비주얼베이직 데이터형 변환하기 예제



이상으로 비주얼베이직 데이터형 변환하기 포스팅을 마칩니다.



더많은 강좌를 보시려면

Posted by 곰사랑

댓글을 달아 주세요

  1. 챠오쓰 2011.12.31 19:00  댓글주소  수정/삭제  댓글쓰기

    Val.. ㅋ 짧고 좋쿤요! ㅋ


비주얼베이직의 문자 결합 연산자는

여러 개의 문자를 결합하는 연산자로 수치 계산의 '+'와는 다른 기능을 수행한다.
숫자 1 + 1 은 2로 계산되지만, 문자 1 & 1 은 11로 처리된다.
이러한 특성을 활용하여 TextBox 나 Label 다양한 정보를 출력하는 용도로 자주 사용된다.
또한 한 줄에 모두 출력되지 못하는 정보를 여러 줄에 표시하는 줄바꿈 기호 역시 문자 결합 연산자와 함께 사용되어야 한다.

비주얼베이직 문자 연산자의 사용방법

문자 & 문자 : 두 문자를 결합한다.
문자열 안에 공백이 포함되면 공백도 결합되어 표시된다.
줄바꿈을 처리할 때는 'chr(10) & chr(13)' 을 사용한다.
이미 입력된 값에 새로운 값을 추가할 때는 이미 입력된 값을 반드시 포함해야 한다.


예시

Text1 제품이름이 입력될 텍스트
Text2 제품종류가 입력될 텍스트
Text3 구입수량이 입력될 텍스트
Text4 구입단가가 입력될 텍스트
Command1 결과출력 단추

디자인을 이렇게 해주세요 ^^



비주얼베이직 문자 결합 연산자 소스
 Private Sub Command1_Click()    '결과출력 버튼
Dim 수량 As Integer, 단가 As Integer
수량 = Text3.Text
단가 = Text4.Text
Label5.Caption = "구입한 제품은 " & Text1.Text & "이며"
임시 = Label5.Caption & Chr(10) & Chr(13)
Label5.Caption = 임시 & "제품 종류는 " & Text2.Text & "이며"
임시 = Label5.Caption & Chr(10) & Chr(13)
Label5.Caption = 임시 & "구입한 수량은 " & Text3.Text & "개 이며"
임시 = Label5.Caption & Chr(10) & Chr(13)
Label5.Caption = 임시 & "구입한 단가는" & Text4.Text & "원 이므로"
임시 = Label5.Caption & Chr(10) & Chr(13)
Label5.Caption = 임시 & "총 구입금액은 " & 수량 * 단가 & "원 입니다."
End Sub

F5 를 눌러 실행해 봅시다.

정상적으로 표시됬네요
 


요기서 추가로 종료버튼과, 초기화 버튼을 만들어봅시다.



종료 버튼에는 이소스와

Private Sub Command2_Click()
Unload Me
End Sub



초기화 버튼에는 이소스를 입력해주세요

Private Sub Command3_Click()
Label5.Caption = ""
End Sub

비주얼베이직 문자 결합 연산자 예시



이상으로 비주얼베이직 문자 결합 연산자 사용하기 포스팅을 마치겠습니다.



더많은 강좌를 보시려면

Posted by 곰사랑

댓글을 달아 주세요

  1. 2011.09.03 21:55  댓글주소  수정/삭제  댓글쓰기

    비밀댓글입니다

  2. 챠오쓰 2011.12.31 18:58  댓글주소  수정/삭제  댓글쓰기

    임시는 뭐죠??

    그냥 아무때나 쓸수 잇는거에요?


    아 글구 ch()이건요/. ㅋ 설명 부탁합니다..

    꾸벅 ㅋ

  3. Attractive 2012.02.11 12:43  댓글주소  수정/삭제  댓글쓰기

    소스에 임시를 쓰는이유는??
    안써도되지않나?


이번 강의는 웹브라우저를 사용해보겠어요

비주얼베이직을 실행해주세요




컨트롤+T 또는

프로젝트(P) - 구성요소 를 클릭해주세요


구성요소가 떳지요??
컨트롤 에서 스크롤을 내리다보면
Microsoft Internet Controls 가 있습니다.
체크하신후 확인을 눌러주세요


툴 박스에 지구모양이 생겼죠?

지구모양을 클릭하여 폼에 배치하세요


폼부분을 더블클릭하여

저 코드창에 있는 소스를 입력하세요


그리고 F5을 눌러봅시다.

짜잔 웹브라우저 컨트롤을 성공적으로 완료하셨습니다.




더많은 강좌를 보시려면




Posted by 곰사랑

댓글을 달아 주세요

  1. Favicon of http://223.com BlogIcon 2011.11.05 12:13  댓글주소  수정/삭제  댓글쓰기

    저기...
    궁금한게 있는데요.
    주소 입력창을 만들어서,
    입력창에 적힌 주소로 이동하게끔 만들 순 없을가요?

    Dim a as string
    a = val(text1.text)

    webbrowser1.navigate "a" <-이 부분을 잘 모르겠어요.

    그냥 "a" 라고 하면 안될거 같은데..ㅠㅠㅠㅠㅠ

    • 사카인 2012.10.16 13:44  댓글주소  수정/삭제

      webbrowser1.navigate "a" 이렇게 쓰시면
      주소창에 http://a 이렇게 넣고 이동하는것과 같습니다.

      webbrowser1.navigate a << 요롷게 써보세염.. ㅇ ㅅㅇ

      변수명이기때문에 쌍따옴표를 넣을 필요가 없습니다. ㅎㅎ

  2. 샤인 2011.12.27 10:38  댓글주소  수정/삭제  댓글쓰기

    퍼가요~ ㅎ


비주얼베이직을 할때 아이콘을 만들고 싶으셧죠?

우선 첨부파일 받아주세요


압축을 푸신후 ToYcon을 실행시키면 큰박스가 하나 나옵니다



우선 세팅을 하셔야됩니다.

박스에 마우스오른쪽버튼을 눌러서 작업설정 ▶ 확장자에 맞게 설정하시면 됩니다.



세팅을 하셨으면 원하는 이미지를 박스속에 드래그(마우스 왼쪽버튼을 누른채 박스에이동) 를 하시면 됩니다.

 

잠시후에 ico 파일이 생성됩니다.



비주얼베이직에 아이콘을 적용해봅시다

생성된 곰이미지.ico 파일을 icon속성에서 불러와주세요

[아이콘적용하기] - http://lovebear.tistory.com/47

완성~~



비주얼베이직 강좌를 보시려면


Posted by 곰사랑

댓글을 달아 주세요

비주얼베이직,비주얼베이직
비주얼베이직 6.0 다운로드 하는방법

http://gogiwan.com/vsdown.php 접속을하여


비주얼베이직6.0입니다

서버1 을 눌러

비주얼베이직6.0 파트1과 비주얼베이직6.0 파트2를 다운받아주시고 한 곳에 압축을 푸시면됩니다.



다운로드를 제공해주신 고기님께 감사의 말씀 드립니다.


비주얼베이직 강좌를 보시려면




Posted by 곰사랑

댓글을 달아 주세요

  1. 이전 댓글 더보기
  2. 정말! 2011.08.01 19:14  댓글주소  수정/삭제  댓글쓰기

    감사드립니다!!ㅠ

  3. 김연진 2011.08.07 13:24  댓글주소  수정/삭제  댓글쓰기

    iso를 데몬으로 돌리는 도중.. 제폼ID번호입력 하라는데어케하나요?

  4. 훗!! 2011.08.13 21:56  댓글주소  수정/삭제  댓글쓰기

    저는이상하게비베모든버젼자체가설치안되는데윈7이라서안되나요? 다른사람들은설치된다고하던데
    그래도공유를해주셔서감사합니다^^ 즐거운하루되세요

  5. 두기알 2011.08.16 19:45  댓글주소  수정/삭제  댓글쓰기

    파트1,2 둘다 받고 파트1을 압축 풀던 중 압축 파일이 손상되었다고하면서 압축풀기 실패되는데 왜 이럴까요...

  6. 비베 2011.08.18 19:27  댓글주소  수정/삭제  댓글쓰기

    잘됩니다 !!

    근데 비베가 제가 알던 비베가 아니네요 ㄷㄷ..

    아무튼 잘쓸게요 ~

  7. 비베 2011.08.18 19:29  댓글주소  수정/삭제  댓글쓰기

    근데용 ..

    설치 후에 Service pack 6으로 업그레이드하세요.

    어떻게 업그레이드 하란말이에요?

  8. 2011.08.22 16:29  댓글주소  수정/삭제  댓글쓰기

    감사해요

  9. 감사합니다. 2011.08.26 12:46  댓글주소  수정/삭제  댓글쓰기

    정말 감사해요*^^*

  10. 우왕 2011.08.27 14:20  댓글주소  수정/삭제  댓글쓰기

    Part2가 빈 압축파일 이라는데 어떻하죠..;;?

  11. 제발답변좀 2011.08.29 11:17  댓글주소  수정/삭제  댓글쓰기

    CD키 입력하라는데 어떻게 하죠 ?

  12. 멎진인도네시아에서사는인간 2011.08.30 16:20  댓글주소  수정/삭제  댓글쓰기

    감사합니다 ~
    학교에서시험쟈료로 쓸게여

  13. Favicon of http://lovebear.tistory.com/53 BlogIcon 멎진인도네시아에서사는인간 2011.08.30 16:22  댓글주소  수정/삭제  댓글쓰기

    감사합니다
    인도네시아에서 잘쓸게여

  14. 곰사랑자식.. 2011.09.05 22:13  댓글주소  수정/삭제  댓글쓰기

    나 왔다간다..
    아 외장 하드 고장나서 파일 하나도 없는데
    개지랄 떨다가 니 블로그에서 받아가네 ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ
    어쨌든 잘받아간다..

    -JMY-

  15. 야순 2011.09.11 11:25  댓글주소  수정/삭제  댓글쓰기

    감사합니다~

  16. 비주얼베이직 2011.09.23 18:17  댓글주소  수정/삭제  댓글쓰기

    비주얼베이직 찾았는데 우선 ㄳ 드립니다
    근데 데몬으로 돌리고 나서 셋업 눌렀는데
    제품번호 가 필요하다고 하는데
    위 댓글에서 무료라이센스를 클릭하라고 하는데
    무료라이센스라는게 없는데 어떻게 해야 하나요?

  17. Favicon of http://de BlogIcon def 2011.09.30 15:05  댓글주소  수정/삭제  댓글쓰기

    그냥 여기서 이건 너무 복잡...
    시디키는 역시 1만쳐도 되요
    http://bvisual.woobi.co.kr

  18. 곰사랑님짱 2011.10.16 15:41  댓글주소  수정/삭제  댓글쓰기

    으왕 감사~~

  19. 익명 2012.01.06 21:16  댓글주소  수정/삭제  댓글쓰기

    안되는데요?ㅠㅠ

  20. Favicon of http://cyworld.com BlogIcon ㅠㅠ 2012.07.08 01:41  댓글주소  수정/삭제  댓글쓰기

    고기님께서 파일을 없에버리셧어요 ㅠㅠ

  21. 페이지를 2012.09.20 21:38  댓글주소  수정/삭제  댓글쓰기

    찾을 수 없다고하네요