Salve, oggi mi sto imbattendo in questo problema.. L' evento KeyDown non funziona. Per testarlo, ho provato con un codice semplice, il codice completo è il seguente.
codice:
Public Class Form2
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
contatore.Text = TrackBar1.Value
If Timer1.Enabled = True Then
Timer1.Enabled = False
Timer1.Interval = TrackBar1.Value * 100
Timer1.Enabled = True
Else
Timer1.Interval = TrackBar1.Value * 100
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim totale As Integer = 0
totale = totale + 1
totpack.Text = totale
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("{ENTER}")
End Sub
Private Sub Form2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
MsgBox(e.KeyCode)
End Sub
End Class
E' un codice semplice come si può notare, non capisco perchè premendo un tasto non appaia il suo Code come specificato. (PS: C'è solo Form2 come form, il primo è stato cancellato pensando che si fosse "buggato" con questo problema)