수다닷컴

리스트를 이용한 싸이투데이프로그램이요

고유번호를 하나 더 새기고싶은데 어떻게해야하죠..?

소스요 ㅠㅠ
──────────────────────────
private sub command1_click()
if len(text1) = 8 then list1.additem text1.text
end sub
private sub command2_click()
timer1.enabled = false
end sub
private sub command3_click()
timer1.enabled = true
end sub
private sub timer1_timer()
on error resume next
webbrowser1.silent = true
timer1.interval = 16000 / list1.listcount
if list1.listindex list1.listcount - 1 then
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & list1.list(list1.listindex)
list1.listindex = list1.listindex + 1
else
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & list1.list(list1.listindex)
list1.listindex = 0
end if
end sub
private sub form_load()
list1.additem 46465594
webbrowser1.navigate2 http://minihp.cyworld.com/pims/main/pims_maun4.asp?tid=46465594
end sub
──────────────────────────

수다님의 강좌를 보고 만들었어요ㅠㅠ

신청하기