Demetrio Cassarino
25 lines
717 B
VB.net
25 lines
717 B
VB.net
Public Class InputExpanderV
|
|
|
|
Sub New()
|
|
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
'TextBoxFocus.Focus()
|
|
AddHandler Map.refInputExpanderVM.m_FocusOnTextBox, AddressOf FocusOnText
|
|
End Sub
|
|
|
|
Friend Sub FocusOnText()
|
|
Me.Txt.Focus()
|
|
End Sub
|
|
|
|
Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
|
|
If e.Key = Key.Enter And Keyboard.Modifiers = ModifierKeys.Shift Then
|
|
Txt.AcceptsReturn = True
|
|
Txt.TextWrapping = TextWrapping.Wrap
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|