728x90
Private Sub Command1_Click()
If Text1.Text = "비주얼" Then 'text1에 입력된 문자가 비주얼이면
MsgBox ("Visual") ' Visual이라는 문자를 메세지박스형태로 출력한다.
ElseIf Text1.Text = "베이직" Then 'text1에 입력된 문자가 베이직이면
MsgBox ("Basic") ' Basic이라는 문자를 메세지박스형태로 출력한다.
Else ' 위 조건이 아니면
MsgBox ("뭘한거니?") ' 뭘한거니? 문자를 메세지 박스형태로 출력한다.
End If ' IF문을 마친다.
End Sub
'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글
| VB 구구단 출력 프로그램 (1) | 2008.07.06 |
|---|---|
| VB 배열을 사용해보자! (Array함수) (0) | 2008.06.16 |
| VB 웹연동기초 - 카페글쓰기 (2) | 2008.06.14 |
| VB 웹연동기초 - 카페출석글 달기 (0) | 2008.06.14 |
| VB 인터넷창을 띄어보자! (0) | 2008.06.06 |
| VB 폼안에서 인터넷 실행하기. (0) | 2008.06.06 |
| VB 변수선언 방법 (0) | 2008.06.01 |
| VB Form1 에서 Form2 열고 닫기 (0) | 2008.06.01 |
| VB Text1에서 Enter 입력시 xx로 이동 (0) | 2008.05.31 |