VBNet - Форум - Цикл недаёт покоя!!

Вопрос: Цикл недаёт покоя!! Добавлено: 25.07.03 15:35

Автор вопроса: V!RU$™ | Web-сайт: cxodnya.narod.ru | ICQ: 132309822

Згначит так вот код:
Private Sub cmdSend_Click()
Title = "Massaga: Error"
'On Error GoTo ErrorcmdSend_Click
cmdAdd.Enabled = False
cmdDel.Enabled = False
cmdAddList.Enabled = False
cmdListClear.Enabled = False
cmdSend.Enabled = False
lstUsersList.Enabled = False
Timer1.Interval = 10
lblBlue.Visible = True
' делим строку на порт и АПИ
For i = 0 To lstUsersList.ListCount - 1
sValue = Split(lstUsersList.List(i), ":")
sIPValue = sValue(0) ' вот вы выделили апи
sPortValue = sValue(1) ' и выделили порт
If Len(sPortValue) = 0 Then
    GoTo NextValue
        Else
            If Len(sIPValue) = 0 Then
                GoTo NextValue
                    Else
' Устанавливаем порт
tcpList.RemotePort = sPortValue
' Устанавливаем АПИ
tcpList.RemoteHost = sIPValue
End If
            End If
' Раз уж всё прощло успешно то тоды конектимся! ПОСТИ УРА! :)
        tcpList.Connect
'Теря надо послать данные !
If tcpList.State = sckClosed Then GoTo NextValue

'If tcpList.State = 7 Then
   tcpList.SendData frmClient.txtSend.Text
'Else
'    GoTo NextValue
'End If
NextValue:
tcpList.Close
sMakeValue = sMakeValue + 1
DoEvents
Next
cmdAdd.Enabled = True
cmdDel.Enabled = True
cmdAddList.Enabled = True
cmdListClear.Enabled = True
cmdSend.Enabled = True
lstUsersList.Enabled = True
tcpList.Close
ErrorcmdSend_Click:
If Err.Number <> 0 Then
            Title = "Massaga: Error"
            Style = vbOKOnly + vbCritical + vbDefaultButton1
            Msg = eNoOfError & " " & Err.Number & vbNewLine & _
                  eErrorText & " " & Err.Description
            Response = MsgBox(Msg, Style, Title)
            ErrorsLog "Ошибка при нажатии на cmdSend на форме frmList", "ClientErrors.log"
            Err.Clear

End If
Timer1.Interval = 0
lblBlue.Visible = False
End Sub

вобщем получается так-что винсок неуспеает подключится !!! как после вызова свойства Коннект приостановить выполнение цикла? Slipp не предлогать .. неработает .... он всё останавливает!

Ответить