수다닷컴

게시판이 올바른지 확인해주세요.
리스트뷰 클릭
Dim http As New WinHttp.WinHttpRequest
Private Sub Form_Load()lv.ColumnHeaders.Add , 번호, 번호, 650lv.ColumnHeaders.Add , 제목, 제목, 6000lv.ColumnHeaders.Add , 강의시간, 강의시간, 1000lv.ColumnHeaders.Add , 주소, 주소, 800
Call VisangEnd Sub

Public Function Visang()
Dim Temp As StringDim title() As StringDim Days() As String

http.Open GET, http://www.visangedu.com/Html/337Zone/pop_LecView.asp?l_idx=3730http.Sendhttp.WaitForResponse

Temp = StrConv(http.ResponseBody, vbUnicode)title = Split(Temp, subject)Days = Split(Temp, subject)FF = Split(Temp, num)For i = 1 To UBound(title)title(i) = Split(Split(title(i), value=)(1), input)(0)title(i) = Replace$(title(i), Split(Split(title(i), [)(1), ])(0), vbNullString)title(i) = Replace$(title(i), [], vbNullString)Days(i) = Split(Split(Days(i), td)(1), )(0)FF(i) = Split(Split(FF(i), value=)(1), onclick)(0)
Set Item = lv.ListItems.Add()Item.Text = i - 1 & 강Item.SubItems(1) = title(i)Item.SubItems(2) = Days(i)Item.SubItems(3) = FF(i)
DoEventsNext i
End Function파싱해서 리스트뷰에 나타나게한건데요해당 행을 더블클릭하면 메시지박스에 그 행의 주소가 뜨게하고싶은데요 어떻게해야하나요?

신청하기