none
Como podría imitar el hacer tabulaciones incrementables y desincrementables en un richtextbox RRS feed

  • Pregunta

  • saludos amigos del foro de vb.net, les traigo una inquietud, como podría incrementar y des incrementar tabulaciones en un richtextbox, la verdad que no se como a ver si me ayudan, el nombre de mi richtextbox es rtbNotas, les dejo el código para su ayuda y gracias de antemano,

    rudolf heiner.

    Código:

        Private Sub btnParagraphIncreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphIncreaseIndentation.Click
      
            Try
                SendKeys.Send("{TAB}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End Sub

        Private Sub btnParagraphDecreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphDecreaseIndentation.Click

            Try
                SendKeys.Send("{BACKSPACE}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End Sub




    domingo, 22 de noviembre de 2015 5:49

Respuestas

  • Public Class Form1
        Private Sub btnParagraphIncreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphIncreaseIndentation.Click
    
            Try
                rtbNotas.Focus()
                SendKeys.Send("^{TAB}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
        End Sub
    
        Private Sub btnParagraphDecreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphDecreaseIndentation.Click
    
            Try
                rtbNotas.Focus()
                SendKeys.Send("{BACKSPACE}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
        End Sub
    End Class
    

    • Marcado como respuesta Rudolf Heiner domingo, 22 de noviembre de 2015 11:00
    domingo, 22 de noviembre de 2015 10:39

Todas las respuestas

  • Public Class Form1
        Private Sub btnParagraphIncreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphIncreaseIndentation.Click
    
            Try
                rtbNotas.Focus()
                SendKeys.Send("^{TAB}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
        End Sub
    
        Private Sub btnParagraphDecreaseIndentation_Click(sender As Object, e As EventArgs) Handles btnParagraphDecreaseIndentation.Click
    
            Try
                rtbNotas.Focus()
                SendKeys.Send("{BACKSPACE}")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
    
        End Sub
    End Class
    

    • Marcado como respuesta Rudolf Heiner domingo, 22 de noviembre de 2015 11:00
    domingo, 22 de noviembre de 2015 10:39
  • Gracias AlterEgo, con eso ya funciona, muchas gracias, saludos,

    rudolf heiner.

    domingo, 22 de noviembre de 2015 11:00