elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  msgbox al comparar textbox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: msgbox al comparar textbox  (Leído 2,404 veces)
rapbyone

Desconectado Desconectado

Mensajes: 173


Ver Perfil
msgbox al comparar textbox
« 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


En línea

Cj2009z

Desconectado Desconectado

Mensajes: 52


Ver Perfil
Re: msgbox al comparar textbox
« Respuesta #1 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




En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
Re: msgbox al comparar textbox
« Respuesta #2 en: 12 Mayo 2014, 10:47 am »

Código
  1. If Text1.Text <> Text2.Text Then
  2.    MsgBox ("Hay una nueva actualizacion...")
  3. End If
  4.  
En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
elezekiel

Desconectado Desconectado

Mensajes: 246


Ver Perfil
Re: msgbox al comparar textbox
« Respuesta #3 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!!!
En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
Re: msgbox al comparar textbox
« Respuesta #4 en: 18 Mayo 2014, 11:41 am »

Código
  1. If lcase(Text1.Text) <> lcase(Text2.Text) Then
  2.    MsgBox ("Hay una nueva actualizacion...")
  3. End If
  4.  
En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines