none
No poder eliminar el contenido de un textbox pero si agregar palabra.

    Pregunta

  • Buenos días a todos.

    Necesito poder agregar frases o palabras a un textbox pero no eliminar lo que hay escrito.

    Sabría alguien decirme como puedo hacer esto.?

    Muchas gracias.

    viernes, 21 de octubre de 2016 7:21

Respuestas

  • Hola:

    En un Form con 1 TextBox, copia y pega el siguiente codigo
    Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.KeyPreview = True
        End Sub

        Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
            Select Case keyData
                Case Keys.Delete
                    Return True
                Case Keys.Back
                    Return True
            End Select
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan Martinez F lunes, 24 de octubre de 2016 14:43
    sábado, 22 de octubre de 2016 8:50

Todas las respuestas

  • Hola, sí:

    textBox1.Text += "palabras que quiero agregar";

    Podés utilizar el operador concatenar, es lo mismo que si hicieses:

    textBox1.Text = textBox1.Text + "palabras que quiero agregar";

    Salu2

    viernes, 21 de octubre de 2016 7:30
  • Gracias Matias.

    Pero me refiero que lo que haya escrito en el textbox no se pueda modificar.

    Es decir que el usuario pueda agregar texto sin poder modificar lo que ya hay

    viernes, 21 de octubre de 2016 7:32
  • Hola:

    En un Form con 1 TextBox, copia y pega el siguiente codigo
    Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.KeyPreview = True
        End Sub

        Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
            Select Case keyData
                Case Keys.Delete
                    Return True
                Case Keys.Back
                    Return True
            End Select
            Return MyBase.ProcessCmdKey(msg, keyData)
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan Martinez F lunes, 24 de octubre de 2016 14:43
    sábado, 22 de octubre de 2016 8:50