드로우홀릭 더베이직
안녕하십니까, 질문하나 드리려 합니다.
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 코드로 받아올 수 있는 방법이 있을까요?
목록상자의 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
