💡

@dnaspider v2.2.5.8
dnaspider · Dec 31, 2017 · 7a940ea · 7a940ea
1 parent c62edff
commit 7a940ea
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/dna.vb b/dna.vb
@@ -7967,8 +7967,13 @@ noformat:
             If txtString.Text.Length = 3 Then
                 If GetAsyncKeyState(Keys.LControlKey) Or GetAsyncKeyState(Keys.RControlKey) Then txtString.AppendText(":")
             Else
+                Select Case e.KeyValue
+                    Case 17
+                        My.Settings.SettingSpecialKey = Keys.RControlKey
+                    Case Else
+                        If IsNumeric(e.KeyValue) Then My.Settings.SettingSpecialKey = e.KeyValue
+                End Select
                 clearTxtString()
-                If IsNumeric(e.KeyValue) Then My.Settings.SettingSpecialKey = e.KeyValue
             End If
             Exit Sub
         End If