Vložení tabulátoru do RichTextBoxu

Procedura:
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyTab Then
        RichTextBox1.SelText = vbTab
        KeyCode = 0
    End If

End Sub

Zpět

Autor: The Bozena