안녕하세요 R00TUSE5입니다.
나도이런거 써보게되네요 ㄷㄷ
하지만난웹이라는
근데가끔 비베를다시시작할까도해 ㅋㅋ
IF문하면 대부분 텍스트와 컨트롤박스를이용해서 인증번호만드는걸로알고계신데요.
저는 다른걸 써볼려고합니다.
우선 IF문은 제어문 중 가장많이 사용하는 문입니다.
IF문의 가장 기본적인 형태는 하나의 조건에 대해 그 조건을 만족하는경우와 불만족하는 경우로 나눠서 두개로 처리.
IF문의 형태
┌─────────────────┐
│if 조건식 then ' 만일 조건식을 한다면│
│ 조건식을 만족할때의 실행문 │
│else '또는 │
│조건식을 불만족할때의 실행문 │
│end if 'if문 끝~ │
└─────────────────┘
이렇게 되구요 아힘들어죽겟네
자그럼 본격적으로 강좌에 들어갈건데요.
제가이번에할 강좌는 KeyPress 라는 이벤트로 '텍스트'박스'컨트롤에 입력된키가
Esc인 경우와 Enter인 경우에 서로 다르게 처리하는 예제입니다
┌───────┐
│준 비 물 │
│Label1 │
│Text1 │
└───────┘
이렇게 Label1과 Text1 을 놔줍니다
그리고 소스~!
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then 'Esc를 누른 경우, 즉 KeyAscii값이 27인 경우에는 텍스트 박스 안의 내용을 지우고,이벤트 프로시저를 빠져 나갑니다.
Text1.Text = ""
Exit Sub
End If ' if 문을끝내고
If KeyAscii <> 13 Then Exit Sub ' Enter가 아닌 다른키를 누른경우 13이 아닌 경우에는 데이터를 계속 입력하는것이므로,이 프로시저를 빠져 나갑니다
MsgBox "입력값은 " & Text1 & "입니다." ┐Enter를 누른 경우에 실행되는 내용으로, 메세지박스창을 통해 입력된 값을
Text1.SetFocus ┘표시, 다시텍스트박스에 포커스를 줍니다
End Sub
이해 안가면 빠가야로우
여기서팁주자면
메세지박스에 표시된 Project1을 없애고싶다
MsgBox "입력값은 " & Text1 & "입니다.",,""
이런식으로하면되고
또팁주자면
msgbox "",vbinformation,"Project1뜨는곳"
vbinformation,critical,등 ! 과 x 표시가나며 소리와함께 ㅇㅇ..
ㅇㅋ
다된건가
ㅇㅋ
