Main Forum

아래 내용은 비밀번호를 'TEST' 라고 예를 들고 실험하는 경우입니다.

마음대로 사용하는 분들이 계셔서 복사는 가능하지 않으니 직접 작성해주세요 ^ㅡ^ ( 더 뿌듯할뜻 ㅋ )

Private Sub Command1_Click()

 ( 클릭버튼 )
If Text1.Text = ("") Then

 ( 텍스트에 "." 아무것도 적혀있지 않다면" )
MsgBox " 아이디를 입력해주세요 ", , " ERROR "

 ( " 옆과 같은 오류가 뜨고 )
ElseIf Text2.Text = ("") Then

 ( 두번째 텍스트칸 또한 비어있다면 )
MsgBox " 비밀번호를 입력해주세요 ", , " ERROR "

 ( 위와 같은 오류가 뜬다 )
ElseIf Text1.Text = ("TEST") And Text2.Text = ("TEST") Then

 ( 만약 두 개의 내용이 일치한다면 )

 (※ 여기서 TEST 라고 적혀있는 칸에 자신이 원하는 비밀번호를 적어줍니다. )
MsgBox " ID And PASSWORD 인증성공! ", , "UTIS 접속준비"

 ( 위 처럼 성공했다고 뜨게한다 )
Form1.Hide
Form2.Show

 ( 로그인칸을 없애고 사용칸을 띄운다 )
Else

 ( 만약 다른경우 )
MsgBox " 허가되지않는정보 ", , " ERROR "

 ( 비밀번호, 아이디 둘 중 한가지가 틀렸을경우 위 처럼 뜬다 )
Text1.Text = ("")
Text2.Text = ("")

 ( 그렇게 틀렸을경우 로그인 과 비밀번호 칸을 "." 비운다 )
End If

 ( If 문 끝내기 )
End Sub

 ( 소스 종료 )

이상입니다.

저기 중간에 .Hide 와 .Show 는 여러군데 써먹을수 있죠,

버튼을 누르면 이동한다든지... 다른 활성화 버튼을 이용한다든지..

여러군데에.. 유용하게 사용하시길