Botão com função do teclado backpace

Question

• Boa tarde 
• eu gostaria de saber como posso codificar um botão que remova o ultima palavra escrita no textbox com multiline que tem as propriedade readonly true então não aceita o botão do teclado deletar não funciona porem nao posso apagar tudo que estiver com o textbox.clear

Answer 1

Calorio...

Vê se isso te ajuda

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim palavrasTotais As MatchCollection = Regex.Matches(RichTextBox1.Text, "\S+")
        Dim NovoTexto As String

        For i = 0 To palavrasTotais.Count - 2

            NovoTexto = NovoTexto & palavrasTotais(i).ToString & " "

        Next

        RichTextBox1.Text = Trim(NovoTexto)

    End Sub

Abraço!

---

Natan

Answer 2

Usando a função split() em um textbox comum:

    Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
        Me.TextBox1.ReadOnly = True
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'agrupa em fila as palavras depois de um "return" ascii 13
        Dim xStr() As String = TextBox1.Text.Split(New Char() {Chr(13)})
        Dim xNew As String = Nothing
        'inicia-se do zero e remove a ultima palavra
        For i As Integer = 0 To xStr.Length - 2
            'concatena a palavra e um return (pular linha vb classico)
            xNew += String.Concat(xStr(i), vbCrLf)
        Next
        'recebe o novo valor
        Me.TextBox1.Text = xNew
    End Sub

---

Microsoft Technology Associate (MTA)