Плиз не пинаите :-))) туплю безбожно хелп ,в строку,,,,,,

[Волкер]

в текст бокс передается инфа с некоторго устроиства, нужно сделать чтоб когда придет ентер управление было передано в процедуру какую то

[MEMBER]

Откуда передаётся? С клавиатуры, с порта, или с помощью святаго духа является?

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

Private Sub Text1_Change()
If Chr(Left(Text1.Text, 1)) = 13 Then SubRoutine
End Sub


[Волкер]

естесвенно не с духом
сканер штрих кодов висит на компорту
оттуда читает и с помощью утилиты пихает что считал в буфер клавы
сканер настроен так ,что когда считает код в конце шлепает в последовательность Ентер вот и все

[MEMBER]

Ну тады код выше.

[Волкер]

сенки вери матч

[Волкер]

а вот не пашет блин !!!!!!!!
во первых наверно не Char а Asc
во вторых когда ентер нажимается или падает в буфер клавы чегоито не происходит события textbox_change
не могу понять в том тут собака порылась ((

[boevik]

Верно, что не Char, а Asc
и во вторых не Left, a Right
и в третих Enter это два символа 13 и 10. Притом последний 10.

[Волкер]

у меня не происходит переход по событию textbox_change
когда вводится символ ентера

[Волкер]

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

[boevik]

Забыл добавить.
Установи у textbox.MultiLine = true

[alibek]

Народ, вы что?

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

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
  KeyAscii=0
  MsgBox TextBox1.Text
End If
End Sub

Это если на форме нет кнопок со свойством .Default=True. Если есть, то это свойство надо снять.

[Волкер]

я так вот сделал
и заработало


Private Sub Text1_Change()
If Text1.Text <> "" Then If Asc(Right(Text1.Text, 1)) = 10 Then Command2_Click
End Sub

ну и мультилаин включен

[MEMBER]

Рву волосы везде.