You'll need to do a bit more but here's a good start:vb.net Code:
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown e.SuppressKeyPress = True Dim parts As New List(Of String) If e.Control Then parts.Add("Ctrl") End If If e.Shift Then parts.Add("Shift") End If If e.Alt Then parts.Add("Alt") End If Select Case e.KeyCode Case Keys.ControlKey, Keys.ShiftKey, Keys.Menu 'Ignore modifier keys alone. Case Else parts.Add(e.KeyCode.ToString()) End Select Me.TextBox1.Text = String.Join(" + ", parts) End Sub




Reply With Quote