Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 1405
Благодарности: 135

Профиль | Отправить PM | Цитировать


Там где вызывается DownloadSuccess попробуйте вызвать функцию DownloadSuccess2

Код: Выделить весь код
    Sub DownloadSuccess2()
            ' Собственно завершение загрузки
            ResultQuery = FlName
            ' Снимаем синхблок
            FileDownloading = False

            ' Вызов события ПолученОтвет
            RaiseEvent ReceivedResponse(Me, New EventArgs)

    End Sub

-------
Ehhh.. what's up, doc?..

Это сообщение посчитали полезным следующие участники:

Отправлено: 02:20, 18-12-2013 | #25