- Код: Выделить всё
If e.KeyChar = Chr(13) Then
e.KeyChar = Nothing
sendmessage()
End If
но нечего не выходит... звук остается
If e.KeyChar = Chr(13) Then
e.KeyChar = Nothing
sendmessage()
End If
GPP писал(а):Подскажите как можно избавиться от "звука" кнопки Enter когда нажимаешь ее в TextBox-e? Проовал так:
- Код: Выделить всё
If e.KeyChar = Chr(13) Then
e.KeyChar = Nothing
sendmessage()
End If
но нечего не выходит... звук остается
Private Sub YourTextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles YourTextBox.KeyDown
e.SuppressKeyPress = CBool(e.KeyCode = Keys.Enter)
End Sub
Сейчас этот форум просматривают: Mail.ru [бот] и гости: 88