PGR21.com
이전 질문 게시판은 새 글 쓰기를 막았습니다. [질문 게시판]을 이용바랍니다.
Date 2009/04/11 02:27:02
Name 오래방
File #1 미치겠다.frm (0 Byte), Download : 19
Subject 비주얼 베이직 관련 질문이 있습니다..
Dim strname(10) As String

Private Sub Command1_Click()
strname(1) = "kwon"
strname(2) = "kim"
strname(3) = "lee"
strname(4) = "choi"
strname(5) = "park"
strname(6) = "jo"
strname(7) = "jung"
strname(8) = "kang"
strname(9) = "moon"
strname(10) = "seo"

For i = 0 To 9
If strname(0) = Text1.Text Then
MsgBox Text1.Text & "님 회원입니다."
Exit For
MsgBox Text1.Text & "님 회원이 아닙니다."
End If
Next i

End Sub


아이디 10개를 데이터에 입력해놓고
텍스트박스에 사용자가 아이디를 입력하였을때
데이터에 입력된 값이면 회원입니다 라는 메세지 박스가
데이터에 없는 값이면 회원이 아닙니다 라는 메세지 박스를 뛰우려고 하는데
도저히 진전이 않되네요... 처음부터 틀린거 같은데 몇시간째 헤매고 있는지 모르겠습니다..
혹시나 베이직 잘하시는분 있으시면 조금만 도와주셨으면 좋겠습니다^^

통합규정 1.3 이용안내 인용

"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.
법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
09/04/11 02:43
수정 아이콘
For i = 0 To 9
If strname(i) = Text1.Text Then
MsgBox Text1.Text & "님 회원입니다."
Exit For
Else
MsgBox Text1.Text & "님 회원이 아닙니다."
End If
Next i

End Sub

수업시간에 깔짝 배운걸로 어떻게 써보긴 했는데 맞을려나요..
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
53614 비주얼 베이직 관련 질문이 있습니다.. [1] 오래방1631 09/04/11 1631
53613 컴퓨터가 사망한거 같습니다 .. [3] 제로스1913 09/04/11 1913
53612 위닝에서의 코나미 이펙트 질문 [4] 까야제맛3069 09/04/11 3069
53611 비스타 소리 설정에 관한 질문입니다. 飛上夢2549 09/04/11 2549
53610 축구부하면 학업에.. [20] Ggobugi2124 09/04/11 2124
53609 견적 내는데 메인보드 질문좀요~ ^^; [7] OnlyJustForYou1720 09/04/11 1720
53607 생산가능곡선? 실효보호율? 오-굿!5790 09/04/11 5790
53606 제로보드 질문 다시 올립니다~~이번엔 위젯 [4] 래토닝1768 09/04/11 1768
53605 알보칠이 그렇게 무섭나요? [17] 관심좀2085 09/04/11 2085
53603 헤어고수님들~~ [3] DeStinY....2106 09/04/10 2106
53602 잡지사 취직 관련 질문입니다. [2] 나라당1973 09/04/10 1973
53601 익스프롤러 우클릭 했을때 생기는거 없에는 법좀 알려주세요~ Naraboyz1919 09/04/10 1919
53600 자동차 취득가액 질문입니다. 환타스틱2739 09/04/10 2739
53599 지금 제 상태에 조언이나 충고 부탁드립니다 [9] 앞마당감나무1737 09/04/10 1737
53598 MC (Multi Carrier) 라고 아시나요?? [5] dhkdlwm.1896 09/04/10 1896
53596 정말 '죽음'뒤엔 아무것도없는것일까요?? [24] DeStinY....2594 09/04/10 2594
53595 한국영화의 인지도 질문입니다 [6] 핸드레이크2285 09/04/10 2285
53594 Nightwish풍의 해외그룹 추천 부탁드립니다. [5] 2280 09/04/10 2280
53593 인터넷 새탭을 뛰우면 창이 사라져요;; [1] 라캉~2239 09/04/10 2239
53592 회계에서 분개할때 모르는 부분이 있어요. [2] kiss1793 09/04/10 1793
53591 웹에서 글이나 페이지를 클릭 할때 약간의 딜레이가 발생합니다 득이1527 09/04/10 1527
53590 언제부턴가 눈을 크게 뜨면 이마에 주름이 생기는데요... [8] Epicurean4236 09/04/10 4236
53589 화포수리병에 대한 질문입니다 [6] ILikeOOv3773 09/04/10 3773
목록 이전 다음
댓글

+ : 최근 6시간내에 달린 댓글
+ : 최근 12시간내에 달린 댓글
맨 위로