Description

Performs a predefined action when pressing numeric keys 0..9, combined with supershift keys Alt, Shift and Ctrl.

Works for keys on standard keyboard.

Syntax

strKey

"0".."9"

Code

  Public Sub KeyPressX(ByVal strkey)

    ' replaces KeyPress0... KeyPress9

    ' to simulate KeyPress1, use KeyPressX("1")

    Dim intkey = CInt(strkey)

    Dim q = Fred.GetQualifier

    If strkey = "0" Then

      Select Case q

        Case 0, 1  ' single or shift

          KeyPress(0, 0)

        Case Else

          KeyP(q, intkey)  ' call aux sub that handles apply of pref.values for stroke and fill

      End Select

    Else

      KeyP(q, intkey)  ' call aux sub that handles apply of pref.values for stroke and fill

    End If

  End Sub

See also

KeyP Script, Keypress Script