From 558769ded20f23cb17f81e29bb1cdead54ceb959 Mon Sep 17 00:00:00 2001 From: Ralf Ren Date: Tue, 3 Apr 2018 14:38:50 +0800 Subject: [PATCH] 2.0.1 Code snippets now append after cursor. --- .gitignore | 1 + Automator/Automator/MainWindow.xaml.vb | 29 ++++++++++++------- .../Automator/My Project/AssemblyInfo.vb | 4 +-- 3 files changed, 21 insertions(+), 13 deletions(-) diff --git a/.gitignore b/.gitignore index f1e3d20..0a9a983 100644 --- a/.gitignore +++ b/.gitignore @@ -250,3 +250,4 @@ paket-files/ # JetBrains Rider .idea/ *.sln.iml +*.psd diff --git a/Automator/Automator/MainWindow.xaml.vb b/Automator/Automator/MainWindow.xaml.vb index 194fd02..0548628 100644 --- a/Automator/Automator/MainWindow.xaml.vb +++ b/Automator/Automator/MainWindow.xaml.vb @@ -40,14 +40,14 @@ Class MainWindow Private Sub btnInput_Click(sender As Object, e As RoutedEventArgs) If tgbReturn.IsChecked = True Then - txtCode.AppendText(vbCrLf & "DigiKeyboard.println("""");") + InsertString(vbCrLf & "DigiKeyboard.println("""");") Else - txtCode.AppendText(vbCrLf & "DigiKeyboard.print("""");") + InsertString(vbCrLf & "DigiKeyboard.print("""");") End If End Sub Private Sub btnDelay_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.delay();") + InsertString(vbCrLf & "DigiKeyboard.delay();") End Sub Private Sub btnAdd_Click(sender As Object, e As RoutedEventArgs) @@ -82,38 +82,45 @@ Class MainWindow End If End If strAdd &= ");" - txtCode.AppendText(vbCrLf & strAdd) + InsertString(vbCrLf & strAdd) End Sub Private Sub btnSendGUI_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(0, MOD_GUI_LEFT);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(0, MOD_GUI_LEFT);") End Sub Private Sub btnSendReturn_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ENTER);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ENTER);") End Sub Private Sub btnSendSpace_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_SPACE);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_SPACE);") End Sub Private Sub btnSendDown_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_DOWN);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_DOWN);") End Sub Private Sub btnSendUp_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_UP);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_UP);") End Sub Private Sub btnSendLeft_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_LEFT);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_LEFT);") End Sub Private Sub btnSendRight_Click(sender As Object, e As RoutedEventArgs) - txtCode.AppendText(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_RIGHT);") + InsertString(vbCrLf & "DigiKeyboard.sendKeyStroke(KEY_ARROW_RIGHT);") End Sub Private Sub btnInfo_Click(sender As Object, e As RoutedEventArgs) Process.Start("https://github.com/CYRO4S/Automator") End Sub + + Private Sub InsertString(ByVal Prompt As String) + Dim index As Integer = txtCode.SelectionStart + txtCode.Text = txtCode.Text.Insert(index, Prompt) + txtCode.SelectionStart = index + Prompt.Length + txtCode.Focus() + End Sub End Class diff --git a/Automator/Automator/My Project/AssemblyInfo.vb b/Automator/Automator/My Project/AssemblyInfo.vb index b77d3a7..7da2d3c 100644 --- a/Automator/Automator/My Project/AssemblyInfo.vb +++ b/Automator/Automator/My Project/AssemblyInfo.vb @@ -55,5 +55,5 @@ Imports System.Windows ' 方法是按如下所示使用“*”: : ' - - + +