드로우홀릭 더베이직

안녕하십니까, 질문하나 드리려 합니다.


spr1 라는 이름의


[1-1][1-2][1-3][1-4]

[2-1][2-2][2-3][2-4]

[3-1][3-2][3-3][3-4]


이런 목록상자가 있고,


언바운드의 txt_1, txt 2, txt 3, txt 4 이라는 텍스트상자가 있습니다.


spr 1에서  3번째 row를 클릭 했을 시, 

각각 3-1...3-4 의 col 값들이 txt 1....txt 4에 들어가게 하고 싶습니다.



Private Sub spr1_Click(ByVal Col As Integer, ByVal row As Integer)

    Col = spr1.Col

    row = spr1.row

    txt1.value = Col & "," & row

End Sub


이런식으로 spr1 클릭이벤트 vb코드를 짜봤는데, 코드가 돌기도 전에 

'프로시저 선언은 동일한 이름을 가지고 있는 이벤트나 프로시저 설명과 일치하지 않습니다.'


라고 나옵니다.

목록상자의 클릭한 col, row 값을 vb 코드로 받아올 수 있는 방법이 있을까요?

profile

윈드님

2017.12.15 16:09:50
*.149.161.117

목록상자의 Column 속성과 ItemsSelected 속성을 사용 하시면 됩니다.

목록상자.column(col, row) 를 하면 해당 값을 가져올 수 있습니다.
이 때 col은 0부터 시작합니다. 
row는 ItemsSelected 로 가져 올 수 있습니다.

아래 예시대로 해 보시면 될 것 같습니다.

Private Sub List0_AfterUpdate()
    
    txt1.Value = Nz(spr1.Column(0, spr1.ItemsSelected), "")
    txt2.Value = Nz(spr1.Column(1, spr1.ItemsSelected), "")
    txt3.Value = Nz(spr1.Column(2, spr1.ItemsSelected), "")
    txt4.Value = Nz(spr1.Column(3, spr1.ItemsSelected), "")

End Sub

쐬주도사

2017.12.15 16:41:14
*.232.247.182

정말 감사합니다. 속 시원하게 해결됐어요!

List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 FAQ: 어떤 과정을 수강하는 것이 좋을까요? 외 돌직구 2017-08-29 31087
공지 좋은 답변을 이끌어 내는 방법 [1] 돌직구 2017-07-14 27402
공지 액세스 Q/A 게시판 형식을 변경합니다. 돌직구 2014-09-10 22917
236 vba에서 날짜 포멧 변환 질문드립니다. 1 1 쐬주도사 2017-12-18 26243
235 저장폼 관련 문의 드립니다 vba 1 Ssari 2017-12-18 1816
234 고유속성에서 예/아니오 선택 메뉴가 없는 이유에 대해 file 2 kame7788 2017-12-17 2097
» 목록상자 클릭시 클릭한 COL, ROW의 값 vb로 받아오기 2 쐬주도사 2017-12-15 26459
232 테이블형식이나 데이터시트 형식에서의 반복색상관련 file 2 수민아빠 2017-12-13 2480
231 학습 커리큐럼 문의 1 빅데이터 2017-12-13 1815
230 폼에 넣은 하위폼의 변경 file 1 하이누스 2017-12-06 2678
229 실무액세스2 질문드려요. file 1 열공액세스 2017-12-04 2110
228 로그인 암호기반 만들기 극대화 2017-11-28 1714
227 외부데이터-저장된 데이터 내보내기 1 활명수 2017-11-23 1839
226 ADP 온라인 과정 개설 계획 문의 1 빨강마티즈 2017-11-22 3131
225 조회폼의 결과를 엑셀로 출력할 수 있나요? 3 스피도프 2017-11-16 18498
224 자동 내보내기 기능에 대하여 1 그루터기 2017-11-16 2123
223 거래처명 정렬하는 방법 문의 2 열공액세스 2017-11-10 2103
222 [엑세스]엑셀 업로드 폼 만들기 질문드립니다. file 1 스피도프 2017-11-07 2606
221 서식있는 텍스트 문의~! file 1 열공액세스 2017-10-20 2515
220 ID와 암호 기반의 로그인 기능 1 그러므로호프 2017-10-16 1689
219 날짜 입력 오류 file 2 공원벤치 2017-10-09 12684
218 액세스문의 file 1 다이아몬드 2017-10-06 2000
217 2013 구입 후 중급 강의 들으려고 하는데요 1 엄마 2017-09-30 2377


  주소  12925 경기도 하남시 미사대로 540, B동 917호 (현대지식산업센터 한강미사2차) ㈜팀데이터이십일  |  고객센터 전화번호  02-467-2998  |  대표이사  염기웅
개인정보관리책임자  염기웅 (ml_privacy@td21.com)  |  사업자등록번호  120-86-79260  |  통신판매업신고번호  제 2021-경기하남-1166 호  [사업자 정보 확인]
  TD21의 사전 서면 동의 없이 TD21 사이트 일체의 정보, 콘텐츠 및 UI 등을 상업적 목적으로 전시, 전송, 스크래핑 등 무단 사용할 수 없습니다.