수다닷컴

다만들었는데.... 자꾸 로그인 을 하라고 떠요,,,,- 이건 고쳤음,,,

그리고,,, 고유번호,,, 만드는 방법좀 알려주세요 ~ 고정 번호라 해야하나?... 미리 제 고유번호가 등록되있고 그건 삭제 안되게끔 하게 만드는 방법좀 ~

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub
Private Sub Command2_Click()
If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
List1.ListIndex = 0
Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
On Error Resume Next

If List1.ListIndex List1.ListCount - 1 Then

WebBrowser1.Navigate http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = List1.ListIndex + 1

Else

WebBrowser1.Navigate http://minihp.cyworld.com/pims/main/pims_main4.asp?tid= & List1.List(List1.ListIndex)
List1.ListIndex = 0
End If

End Sub

이렇게 만들었음,, 설명서에 나온데로,,, 제번호를 고정시키는 방법좀 ~

신청하기