2015-05-29 3 views
-1

Мне нужно остановить звук «звонка» при нажатии ввода, но я использую его для отправки сообщения. Существует мой код:Как остановить звук «звонка» при нажатии ввода

Private Sub textbox2_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) _ 
Handles TextBox2.KeyDown 
    If e.KeyCode = Keys.Enter Then 
     TextBox3.ReadOnly = True 
     If TextBox2.Text = ("") Then 
     Else 
      Dim PostData = "token=" & TextBox1.Text & "&msg=" & TextBox3.Text & ": " & TextBox2.Text 
      Dim request As WebRequest = WebRequest.Create("http://url.com/msg.php") 

      request.Method = "POST" 
      Dim byteArray As Byte() = Encoding.UTF8.GetBytes(PostData) 
      request.ContentType = "application/x-www-form-urlencoded" 
      request.ContentLength = byteArray.Length 
      Dim dataStream As Stream = request.GetRequestStream() 
      dataStream.Write(byteArray, 0, byteArray.Length) 
      dataStream.Close() 
      Dim response As WebResponse = request.GetResponse() 
      dataStream = response.GetResponseStream() 
      Dim reader As New StreamReader(dataStream) 
      Dim responseFromServer As String = reader.ReadToEnd() 
      reader.Close() 
      dataStream.Close() 
      response.Close() 
      TextBox2.Clear() 
     End If 
    End If 
End Sub 

Я использую другой звук уведомления, когда текстовое поле меняется, но это TextBox2 для отправки сообщений, и когда он посылает его с помощью входа в «динь» играет и другой звук вместе.

+0

Этот код действительно имеет отношение к звуку? Если звук является одним из звуков Windows, тогда код несколько неактуальен. См. Http://stackoverflow.com/help/mcve –

ответ

0

Попробуйте установить e.Handled и e.SuppressKeyPress на номер True.

Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown 
    If e.KeyCode = Keys.Enter Then 
     ' Your code... 

     e.Handled = True 
     e.SuppressKeyPress = True 
    End If 
End Sub 

Это должно подавлять «динг».