Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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:

  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:


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 (vb) [Seleccionar]

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 (vb) [Seleccionar]

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