Доброго Вам времени суток
Уважаемые господа

прошу вас помочь мне
просмотрите ниже указанный код
---------------------------------------------------
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
If MSComm1.InBufferCount Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Text1.Text = ""
MSComm1.InputLen = 13
Text1.Text = MSComm1.Input
MSComm1.InBufferCount = "0"
Timer2.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
-------------------------------------------------------------

данный код дает мне возможность
получить данные с ручного сканера в текстовое поле (считываю штрихкод)
все работает отлично

но если номер порта указан неверно
то ничего не происходит.

Посоветуйте пожалуйста как написать обработчик этой ситуации.
Мне необхадимо чтобы при неверном указании порта,
к которому подключен сканер, программа выдавала ошибку

типа - MsgBox "порт указан неверно"

С Уважением и Благодарностью
Намик

к сожалению я не знаю этот компонент

можно по подробнее

С Уважением и Благодарностью
Намик

Это было бы верно если бы я знал
к какому точно порту будет подключен сканер

но я этого не знаю

может есть код инициализации сканера ?

С Уважением и Благодарностью
Намик

Да Уважаемый
Вы не представляете как мне помогли

позвольте объяснить

я очень долго искал OCX который позволял бы печатать штрихкод
и нашел его по вашей ссылке
за что Вам огромное спасибо

пришлите пожалуйста Crack

жду Вашего ответа

С Уважением и Благодарностью
Намик

P.S. Уважаемый big-duke (к сожалению не имею чести знать Вашего имени) я в свое время Вам писал на Email получали ли Вы мои сообщения?

Вот мой E-mail

r.namik@azdata.net

С Уважением и Благодарностью
Намик