비주얼 베이직

소개

비주얼 베이직의 코딩

목차

1. Text로 입력받아 Label로 출력하기
2. 변수에 값을 입력하여 출력하기
3. Text로 입력받아 Label로 출력하기[변수사용]
4. 두 정수를 Text로 입력받아 합계내기변수사용
5.성적을 입력받아 합계 평균 구하기
등..

본문내용

1. Text로 입력받아 Label로 출력하기
Private Sub cmddel_Click()
txt1.Text = ""
txt2.Text = ""
lbl1.Caption = ""
lbl2.Caption = ""
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdprint_Click()
lbl1.Caption = txt1.Text
lbl2.Caption = txt2.Text
End Sub

Private Sub txt1_keypress(keyascii As Integer)
If KEYASCII = vbKeyReturn Then
txt2.SetFocus
End If
End Sub
-------------------------------------------
2. 변수에 값을 입력하여 출력하기
Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdPrint_Click()
Dim strname As String
Dim iage As Integer
strname = "홍길동"
iage = 24
lbl2.Caption = strname
lbl4.Caption = iage
End Sub
-------------------------------------------
3. Text로 입력받아 Label로 출력하기[변수사용]
Private Sub cmdPrint_Click()
Dim strname As String
Dim iage As Integer
strname = txtname.Text
iage = txtage.Text
lblname = strname
lblage = iage
End Sub

Private Sub cmdReinput_Click()
lblname.Caption = ""
lblage.Caption = ""
txtname.Text = ""
txtage.Text = ""
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub txtname_keypress(keyascii As Integer)
If keyascii = vbKeyReturn Then
txtage.SetFocus
End If
End Sub

참고자료

· 없음