В ЧЕМ ДЕЛО?

[bevaine2000]

Код: Выделить всё

Private Sub MSComm1_OnComm()
a = MSComm1.Input
Select Case EndProc
Case 1
    SendStr = Chr$(129) + Chr$(0) + Chr$(3)
    MSComm1.Output = SendStr
    MSComm1.PortOpen = False
    Close
    t = 1
    GoTo EndStr
End Select
'...................
'...................
'...................
EndStr:
If t = 1 Then Unload Me
End Sub


VB закрывается и выдает об ошибке приложения

[ANDLL]

А что за инструкция Close?

[bevaine2000]

Закрывает, ранее открыты файл, перед выходом из процедуры.

[ism]

Может у тебя сабкласинг какой-то есть еще и неверно выгружается. Или UserControl с динамическим созданием элементов. А это всево лишь место выгрузки.
Может оператор GoTo, как всегда глючит.

[ANDLL]

А где именно вылетает?

[bevaine2000]

Ни сабкласинг, ни UserControl, не участвут в процессе. Вылетает после того, как завершается событие MSComm1_OnComm(). Мне какжется что здесь дело в MSComm1.PortOpen = False, но как этого избежать мне не известно.

[ism]

А может, то что записывал отправится неуспевает (MSComm вродебы асинхронный).
И почему ты не анализируешь, что именно произошло в MSComm1.CommEvent, может все циклится?

[bevaine2000]

А может, то что записывал отправится неуспевает (MSComm вродебы асинхронный).
И почему ты не анализируешь, что именно произошло в MSComm1.CommEvent, может все циклится?

Насчет первого, я сделал задержку, но это не помогло.
Насчет второго, объясни по подробнее, что может циклиться. Моя задача просто отправить последний пакет, на порт, закрыть порт, закрыть форму.

[bevaine2000]

Может в OnComm() нельзя порт закрывать?

[ism]

Насколько я знаю событие OnComm() поисходит не только при поступлении новых данных, но и при других каких-то событиях. О поступлении новых данных свидетельствует в этом событии MSComm1.CommEvent = 2.
Происходит еще при ошибках. Неуверен, но вродебы может происходить и при начале записи.

[bevaine2000]

Вот сам исходник!