[VB.NET] eventi pulsanti key down , press , up ?

[danielspc]

ciao a tutti sono da due giorni che cerco di capire l'errore ma non lo trovo.. devo gestire un pulsante tramite i vari eventi (key up,down, press) ma non funziona quando rilascio il pulsante..
questo è il codice mi potreste dare una mano ? grazie

Private Sub alto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Private Sub alto_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyValue = Keys.W Then
            SendMessage("8")
            MsgBox(" non invia")

        End If
    End Sub


    Private Sub alto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        If Asc(e.KeyChar) = 87 Then
            SendMessage("8")
            MsgBox(" non preme")

        End If
    End Sub





    Private Sub alto_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp

        If e.KeyValue = Keys.W Then

            SendMessage("5")
            MsgBox("non rialza")
        End If
    End Sub


End Class

[gibra]

Direi che alto è un Form, non un pulsante.
Spiega bene cosa stai facendo, altrimenti non capiamo.

Ad esempio, a 'chi' mandi con SendMessage() ???

[danielspc]

Allora ho un command button che lo ho rinominato alto e quando premo w esso dovrà fare una tale operazione fino a che non lo rilascio.
Quindi quello è sbagliato giusto ?
Attualmemte quando premo il tasto w questo inizia a fare tale operazione ma quando lo rilascio continua ancora invece di fermarsi

[danielspc]

Il sendmessage lo invio ad arduino che mi fa da server

[oregon]

Non devi inserire alcun button. Utilizza gli eventi del Form e non mettere MsgBox. Utilizza solo KeyUp e KeyDown

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Me.KeyPreview = True
End Sub

Private Sub alto_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) HandlesMyBase.KeyDown
   If e.KeyValue = Keys.W Then
      SendMessage("8")
   End If
End Sub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) HandlesMyBase.KeyUp
   If e.KeyValue = Keys.W Then
      SendMessage("5")
   End If
End Sub

[danielspc]

Grazieee mille funziona alla grande senti un altra cosa volevo chiederti.. dovrei fare in visual basic un programma in cui vedo in diretta il video della mia ip cam.. sai come fare ? Sai qualche codice da seguire ? Grazie ancora

[MItaly]

senti un altra cosa volevo chiederti..

Un problema per thread, grazie.
(e nel prossimo ricordati di specificare il linguaggio nel titolo )