Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 26 Abril 2014, 04:09 am

Título: msgbox al comparar textbox
Publicado por: rapbyone en 26 Abril 2014, 04:09 am

Amigos tengo el siguiente código que me muestra un mensaje cuando los valores de dos textbox son diferentes:

Código:

  If Val(Text1.Text) <> Val(Text2.Text) Then
    MsgBox ("Hay una nueva actualizacion...")
    End If

El problema es que solo funciona con números enteros, lo que quiero es que funcione también con texto, por ejemplo:

Text1 = version 2.1
Text2 = version 2.2

y que aparezca el mensaje
gracias amigos ;D

Título: Re: msgbox al comparar textbox
Publicado por: Cj2009z en 12 Mayo 2014, 09:13 am

podrias intentar con esto:

Código:

Private Sub Command1_Click()
    If Val(Text1.Text) <> Val(Text2.Text) Then ' para enteros
        MsgBox "nueva version"
    ElseIf (Text1.Text) <> (Text2.Text) Then 'para texto
        MsgBox "nueva versión"
    else
        msgbox "no hay nada"
    End If
End Sub

Título: Re: msgbox al comparar textbox
Publicado por: Mad Antrax en 12 Mayo 2014, 10:47 am

Código

If Text1.Text <> Text2.Text Then
    MsgBox ("Hay una nueva actualizacion...")
End If

Título: Re: msgbox al comparar textbox
Publicado por: elezekiel en 18 Mayo 2014, 04:25 am

Quiero agregar el Option compare text para evadir problemas de distincion de minusculas o mayusculas (en el caso que necesites usarlo)

el Code de madantrax es correcto pero si hubiera diferencia de mayuscula y el option compare no estuviera te lo tomaria como distinto a pesar de la igualdad!

saludd!!!

Título: Re: msgbox al comparar textbox
Publicado por: Mad Antrax en 18 Mayo 2014, 11:41 am

Código

If lcase(Text1.Text) <> lcase(Text2.Text) Then
    MsgBox ("Hay una nueva actualizacion...")
End If