비주얼베이직22 [비주얼베이직] 콤보박스(Combobox) 사용하기 이번 강의에는 콤보박스를 이용해서 프로그램을 작성해보겠습니다 이렇게 디자인해주세요 콤보박스1을 클릭후 속성창 List 부분에 목록을 클릭해서 CPU, HDD, RAM 을 추가해주세요 콤보1을 눌르면 리스트에 추가한것들이 뜨지요? 콤보1을 더블클릭하신후 Click으로 바꿔주세요 소스 Private Sub Combo1_Click() Combo2.Clear '콤보박스2의 모든 항목을 삭제한다 If Combo1.Text = "CPU" Then '만약 콤보1 CPU를 클릭했을때 Combo2.AddItem "펜티엄" '콤보2 항목선택으로 표시된다 Combo2.AddItem "펜티엄2" Combo2.AddItem "펜티엄3" ElseIf Combo1.Text = "HDD" Then Combo2.AddItem "8.4.. 2011. 7. 28. [비주얼베이직] 플래시, 브금 등 Swf 파일을 재생해보자 비주얼베이직을 실행해주시구요 비주얼베이직 ㅇ응용 컨트롤 + T 또는 프로젝트 - 구성요소 를 클릭해주세요 비주얼베이직으로 여러가지폼을 실행해주세요 구성요소에서 Shockwave Flash 를 체크후 적용을 눌러주세요 툴바에 플래시 모양이 생겼지요? 클릭해서 폼에 그려주세요 이렇게 플래시모양을 눌러 폼에 그리셨지요? 소스 ShockwaveFlash1.Movie = "주소" 입니다.비주얼베이직 플래시 짤방을 올려보겠습니다. 완성 비주얼베이직 Flash 을 응용해서 브금, 플래시게임 같은것도 하실 수 있겠죠? 비주얼베이직 이만 강의 마치겠습니다. ※ ShockwaveFlash 는 컴파일은 잘 되지만 프로젝트저장 오류납니다. 참고해주세요 2011. 7. 25. [비주얼베이직] (문법) For문 다중 반복문 사용하기 For문으로 다중반복문을 사용하여 구구단을 출력해보겠습니다. 이렇게 디자인 해주세요 Command1 을 더블클릭해서 코드창을 열어주세요 소스 Private Sub Command1_Click() For a = 1 To 9 Print Print a & "단" Next End Sub F5을 눌러 확인해 볼까요? 1~9단이 출력되었습니다. 소스 에서 3번째 줄 print를 빼볼까요? Private Sub Command1_Click() For a = 1 To 9 Print ' 2011. 7. 16. [비주얼베이직] (문법) 단일반복문, For문 For문 이란 주어진 조건에서 자동 반복 수행을 하고자 할 때 사용되는 문으로 매우 편리한 기능을 사용자에게 제공합니다. For문 사용하기 For 변수 = 시작값 To 종료값 Step 증감값 문장 Next 변수 Text1 입력박스 Command1 확인 버튼 Command2 종료 버튼 이와 같이 디자인을 배치해주세요 소스 Private Sub Command1_Click() Dim i As Integer Dim total As Long For i = 1 To 500 total = total + i Next i Text1.Text = total End Sub Private Sub Command2_Click() Unload Me End Sub For문 예제 이상으로 단일반복문, For문 포스팅을 마치겠습니다. 2011. 7. 11. [비주얼베이직] (문법) Select Case문 (문자로 결과 계산) 조건문은 입력되는 값에 따라 서로 다른 명령을 실행할 때 자주 사용되지만 조건이 여러 개인 경우에는 불편하다. 이럴 경우에 사용하는 명령이 "Select Case" 문장이다. "Select Case"는 입력된 여러 조건을 동시에 처리할 수 있는 조건문으로 여러 조건이 나열되어 있는 경우에 편리하게 사용된다. "Select Case"는 문자를 이용하는 방법과 숫자를 이용하는 방법으로 구분할 수 있다. Text1 제품코드 입력될 텍스트 Text2 판매수량 입력될 텍스트 Text3 제품명 출력될 텍스트 Text4 판매금액 출력될 텍스트 Command1 결과 입력 버튼 이와 같이 디자인해주세요 ㅎ 소스 Private Sub Command1_Click() '// 결과입력 버튼 Select Case Text1.Te.. 2011. 7. 11. [비주얼베이직] (문법) 조건 판단하기 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 S.. 2011. 7. 11. 이전 1 2 3 4 다음
