HERBERS Excel-Forum - die Dialoge

Thema: Sonderzeichen einfügen

Home
Abbildung - Sonderzeichen einfügen
Sonderzeichen einfügen
  • Prozedur: txtInsert_KeyDown
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Sonderzeichen einfügen
  • Ablaufbeschreibung:
    • Boolean-Variable außerhalb der Prozeduren bilden, damit sie ihren Wert auch nach dem Verlassen der Prozedur behält
    • Rahmen um das TextBox-Objekt bilden
    • Wenn die Steuerungstaste gedrückt wurde...
    • Boolean-Variable auf True setzen
    • Sonst wenn das Zeichen r und als vorige Taste die Steuerungstaste gedrückt wurde...
    • Das Sonderzeichen ® einfügen
    • Sonst wenn das Zeichen t und als vorige Taste die Steuerungstaste gedrückt wurde...
    • Das Sonderzeichen TM (hochgestellt) einfügen
    • Sonst...
    • Boolean-Variable auf False setzen
  • Code:

    
    Dim blnCtrl As Boolean
    
    Private Sub txtInsert_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       With txtInsert
          If KeyCode = 17 Then
             blnCtrl = True
          ElseIf KeyCode = 82 And blnCtrl Then
             .Text = Left(.Text, .SelStart) & Chr(174) & Right(.Text, Len(.Text) - .SelStart)
             blnCtrl = False
          ElseIf KeyCode = 84 And blnCtrl Then
             .Text = Left(.Text, .SelStart) & Chr(153) & Right(.Text, Len(.Text) - .SelStart)
             blnCtrl = False
          Else
             blnCtrl = False
          End If
       End With
    End Sub