Demetrio Cassarino
51 lines
1.6 KiB
VB.net
51 lines
1.6 KiB
VB.net
Public Class ScriptWindowV
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
Map.SetRefScriptWindowV(Me)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "EVENTS"
|
|
|
|
Private Sub EgtMainWindow_PreviewKeyDown(sender As Object, e As KeyEventArgs)
|
|
If e.Key = Key.Escape Then
|
|
Annulla.IsCancel = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub sNameFile_RichTxBx_TextChanged(sender As Object, e As TextChangedEventArgs)
|
|
If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.ChangeTimer()
|
|
End Sub
|
|
|
|
Private Sub sNameFile_RichTxBx_SelectionChanged(sender As Object, e As RoutedEventArgs)
|
|
If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.SetToolbar()
|
|
End Sub
|
|
|
|
Private Sub sNameFile_RichTxBx_PreviewKeyDown(sender As Object, e As KeyEventArgs)
|
|
If e.Key = Key.Enter Then
|
|
Map.refScriptWindowVM.InsertText(sNameFile_RichTxBx, vbCrLf)
|
|
e.Handled = True
|
|
ElseIf e.Key = Key.Tab Then
|
|
e.Handled = True
|
|
Map.refScriptWindowVM.Tabulation(sNameFile_RichTxBx)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub sNameFile_RichTxBx_PreviewMouseWheel(sender As Object, e As MouseWheelEventArgs)
|
|
' Ottieni il numero di righe da scorrere
|
|
Dim linesToScroll As Integer = e.Delta / 5
|
|
' Scorri il contenuto della RichTextBox
|
|
sNameFile_RichTxBx.ScrollToVerticalOffset(sNameFile_RichTxBx.VerticalOffset - linesToScroll)
|
|
End Sub
|
|
|
|
#End Region ' Events
|
|
|
|
End Class |