12 lines
418 B
VB.net
12 lines
418 B
VB.net
Public Class InputExpanderV
|
|
|
|
Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
|
|
If e.Key = Key.Enter And Keyboard.Modifiers = ModifierKeys.Shift Or e.Key = Key.V And Keyboard.Modifiers = ModifierKeys.Control Then
|
|
Txt.AcceptsReturn = True
|
|
Txt.TextWrapping = TextWrapping.Wrap
|
|
'Txt.AppendText(Environment.NewLine)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|