수다닷컴

Private Sub Command1_Click()

If Text1.Text = 네이버 Then
Shell explorer http://www.naver.com/
Unload Me
Else
MsgBox잘못 입력하셨습니다., vbCritical, 오류
End If
If Text1.Text = 다음 Thne
Shell explorer http://www.daum.net/
Unload Me
Else
MsgBox잘못 입력하셨습니다., vbCritical, 오류
End If
End Sub

제가 이런식으로 소스를 짯는데요.
텍스트박스1에 네이버를 칠경우 네이버가 뜹니다. 근데 메세지박스(잘못 입력하셨습니다)가 하나 더뜨네요 ..
저메세지박스가 네이버와 다음이 아닌 경우에만 뜨게 하도록 수정 좀 해주세요 ..
제가 해결책을 찾다가 한번 더짜본 소스입니다..

Private Sub Command1_Click()

If Text1.Text = 네이버 Then
Shell explorer http://www.naver.com
End If

If Text1.Text = 다음 Then
Shell explorer http://www.daum.net
End If

If Text1.Text = 네이버 & 다음
Else
MsgBox 잘못된 명령어입니다., vbCritical, 오류
End If

이렇게 했는데도 결과는 똑같더군요 .. 수정부탁드려요 ..

신청하기