수다닷컴

안녕하세요 비베 왕초보 입니다책으로 공부중에 있는데소스를 다적었는데 실행이 되지않아질문올립니다..ㅠㅠㅠ+ 문제: 콤보박스의 목록을 클릭하면 (cbo문자열_change()) 텍스트박스에 콤보박스의 선택된 문자열을 출력하도록 한다. 그리고 콤보박스의 문자열을 선택한후 enter키를 누르면 입력한문자열을 콤보박스의 항목으로 추가되면서 텍스트 박스의 문자열에 나타나게 된다.그래서아래와 같이 적어서 실행하면 콤보박스에서 선택해서 enter를 치면요..컴파일오류입니다.: 변수가 정의되지 않았습니다.라고 떠서 실행이 안되요..책보고 그대로 적었는데도 이러네요..ㅠㅠPrivate Sub txt출력_Change()
txt출력.Text = txt출력.Text & cbo문자열.Text
End Sub
Private Sub cbo문자열_keyPress(keyAscii As Integer)
If keyAscii = vbKeyReturn Then
cbo문자열.AddItem cbo문자열.Text
txt출력.Text = text출력.Text & cbo문자열.Text
cbo문자열.SetFocus
cbo문자열.SelStart = 0
cbo문자열.SelLength = Len(cbo문자열.Text)
End IfEnd SubPrivate Sub Form_Load()
cbo문자열.AddItem 내가알고있는 유명인은
cbo문자열.AddItem 김 병헌
cbo문자열.AddItem 박 찬호
cbo문자열.AddItem 박 지성
cbo문자열.AddItem 이 영표
cbo문자열.AddItem 안 정환
cbo문자열.AddItem 등이 있습니다.
cbo문자열.ListIndex = 0End Sub

신청하기