none
Juntar dos mensajes de dos botones en un textbox

    Pregunta

  • Como dice el titulo desearía juntar estos dos valores en un textbox, es decir en el textbox deseo que se escriba conforme oprimo ya sea (AB) o (BA) que los pueda juntar yo solo puedo hacer que se escriba el valor mas no se que se junten, alguien me puede ayudar, gracias.

    Public Class Form1    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
          TextBox1.Text = "A"    
    End Sub    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
          TextBox1.Text = "B"   
     End Sub
    End Class

    lunes, 29 de agosto de 2016 1:05

Respuestas

  • Cael1020,


    Es una operación de concatenación simple, sin embargo debes validar que la cantidad de caracteres no excedan a dos (en caso así lo necesites)

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            'Colocar etiqueta A y B como texto de cada boton (para conveniencia del ejercicio)
            btnA.Text = "A"
            btnB.Text = "B"
    
            'Vincular ambos objetos a un único controlador de eventos (para utilizar un único evento)
            AddHandler btnA.Click, AddressOf Concatenar
            AddHandler btnB.Click, AddressOf Concatenar
        End Sub
    
        Private Sub Concatenar(sender As Object, e As EventArgs)
    
            'Recuperar en la variable btn el objeto Button pulsado
            Dim btn As Button = DirectCast(sender, Button)
    
            'Si ya existen dos caracteres limpiar la caja de texto (en caso sea necesario)
            If txtValor.Text.Length = 2 Then
                txtValor.Text = String.Empty
            End If
    
            'Acumular el caracter -según el botón pulsado- al valor de la propiedad Text
            txtValor.Text += btn.Text
        End Sub
    End Class


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.

    lunes, 29 de agosto de 2016 1:46
  • Hola,

    si se pone TextBox1.Text = "A", quiere decir que el texto del textbox será solo a, si quieres poner a y b, entonces se puede hacer de varias maneras:

    Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox1.Text += "A" 'Poniendo el signo de + antes del igual.

    ' O también: TextBox1.Text = TextBox1.Text & "A" End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        TextBox1.Text += "B" 'Poniendo el signo de + antes del igual.

    ' O también: TextBox1.Text = TextBox1.Text & "A"

    End Sub End Class

    Espero que te sirva,

    GerrySoft

    lunes, 29 de agosto de 2016 8:05

Todas las respuestas

  • Cael1020,


    Es una operación de concatenación simple, sin embargo debes validar que la cantidad de caracteres no excedan a dos (en caso así lo necesites)

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            'Colocar etiqueta A y B como texto de cada boton (para conveniencia del ejercicio)
            btnA.Text = "A"
            btnB.Text = "B"
    
            'Vincular ambos objetos a un único controlador de eventos (para utilizar un único evento)
            AddHandler btnA.Click, AddressOf Concatenar
            AddHandler btnB.Click, AddressOf Concatenar
        End Sub
    
        Private Sub Concatenar(sender As Object, e As EventArgs)
    
            'Recuperar en la variable btn el objeto Button pulsado
            Dim btn As Button = DirectCast(sender, Button)
    
            'Si ya existen dos caracteres limpiar la caja de texto (en caso sea necesario)
            If txtValor.Text.Length = 2 Then
                txtValor.Text = String.Empty
            End If
    
            'Acumular el caracter -según el botón pulsado- al valor de la propiedad Text
            txtValor.Text += btn.Text
        End Sub
    End Class


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.

    lunes, 29 de agosto de 2016 1:46
  • Hola,

    si se pone TextBox1.Text = "A", quiere decir que el texto del textbox será solo a, si quieres poner a y b, entonces se puede hacer de varias maneras:

    Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TextBox1.Text += "A" 'Poniendo el signo de + antes del igual.

    ' O también: TextBox1.Text = TextBox1.Text & "A" End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        TextBox1.Text += "B" 'Poniendo el signo de + antes del igual.

    ' O también: TextBox1.Text = TextBox1.Text & "A"

    End Sub End Class

    Espero que te sirva,

    GerrySoft

    lunes, 29 de agosto de 2016 8:05
  • Muchas gracias por el interés en ayudarme, le agradezco Maestro.
    miércoles, 31 de agosto de 2016 19:41
  • Muchas gracias por la ayuda en verdad me ayudo mucho gracias.
    miércoles, 31 de agosto de 2016 19:42