KeyPress

'************************************************************

' Intercetta la pressione di un tasto

'************************************************************




Private Sub Menu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
'################################# End Menu Menu_KeyPress

If e.KeyChar = ChrW(27) Then
MyTrasparenze("-")
EsciToolStripMenuItem_Click(sender, e)
End If
End Sub



' ' Gestione dello spostamento dei controlli premendo ENTER.

Private Sub TextBox0_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox0.KeyPress
If e.KeyChar = ChrW(13) Then
SendKeys.Send("{TAB}")
End If
End Sub


vate Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = ChrW(13) Then
SendKeys.Send("{TAB}")
End If
End Sub