IT정보/비주얼베이직38 [비주얼베이직] 폼 속성 정리 지금까지 배운 폼 속성을 정리를 해보겠습니다. 속성부분 Caption 이 Form 이름이에요 변경해보세요 바뀌셨죠? 속성부분에서 (아이콘) 을 눌러 아이콘을 적용해봅시다 아이콘이 적용되었습니다. 폼의 색깔을 넣어봅시다 BackColor을 눌러주세요 BackColor 을 눌르셨으면 색상표를 눌러 원하는 색깔을 눌러주세요 폼 의 색깔이 변했습니다. BorderStyle 에 대해서 알려드리겠습니다. BorderStyle 을 없음 으로 변경해보겠습니다. 최소화, 최대화, 닫기 버튼이 사라졌습니다 이번엔 단일고정으로 바꿔보았습니다. 닫기 버튼밖에 없네요? 단일고정은 폼이 고정되어 창조절이 안됩니다 또 작업표시줄에 아이콘이 생깁니다. 크기고정과 다른점이겠죠? 이번엔 크기조정으로 바꿔보았습니다. 최소화, 최대화, 닫.. 2011. 7. 25. [비주얼베이직] 키보드, 마우스 잠그기 비베를 실행시켜주세요 일반을 눌러주세요 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 을 선언해주세요 실행시키자마자 마우스를 잠그려면 폼로드에 BlockInput True 입력하세요 커맨드를 눌렀을때 마우스를 잠그려면 커맨드에 BlockInput True 입력하시오 예) Private Sub Form_Load() BlockInput True End Sub 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 5 6 7 다음
