수다닷컴

Private Sub Command1_Click()
If 스위치1 = True And T1.Text = 아이디 And T2.Text = 비번 Then
MsgBox 로그인 성공
Else
MsgBox 존재하지 않는 아이디/비밀번호 입니다.
End IfEnd SubPrivate Sub Command2_Click()
If 스위치1 = True Then
MsgBox 이미 회원가입 하셨습니다
Else
T1.Text = 아이디
T2.Text = 비번
MsgBox 회원가입을 축하합니다
스위치1 = True
End If
End SubPrivate Sub Command3_Click()
End
End SubPrivate Sub Command4_Click()
MsgBox 먼저, 원하시는 아이디,비밀번호를 입력하여 주신후, 회원가입을 누르세요. 그리고 그 아이디로 로그인 해 주세요.
End SubPrivate Sub Form_Load()
Dim 아이디 As String
Dim 비번 As String
Dim 스위치1 As Boolean
End Sub
간단한 아이디/비밀번호를 입력하는 건데.스위치1이라는 변수를 쓰지 않고 만들었을땐, 이상하게도 텍스트를 어떻게 쓰든 커멘드2 누르고 아무것도 쓰지 않은 상태에서 커멘드1을 누르면 로그인이 되었다고 뜨더군요..그래서 생각해낸게 스위치라는 변수를 이용한건데..마치스위치가 제 기능을 못한다는 느낌이 드는..아, 그리고 모든 폼에 영향을 미칠수 있는 변수선언? 같은건 할 수 없을까요?

신청하기