Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: usuario oculto en 5 Julio 2011, 19:42 pm

Título: Duda con "If InStr"
Publicado por: usuario oculto en 5 Julio 2011, 19:42 pm

con esto...
el code me busca una cosa y si la encuentra sale mensaje:

Código:

'la parte del código es la que se aseugra de haberlo encontrado:

 If InStr(Titulo_Win, El_titulo) <> 0 Then

 msgbox ("hola mundo")

lo que pretendo es que cuando lo busque si no lo encuentra me salga algo tipo

msgbox ("no encontrado")
'o lo que me la gana, ejemplo , cerrar un timer o reiniciar el pc..

20:14 sin resolver

Título: Re: Duda con "If InStr" sin resolver
Publicado por: AlxSpy en 5 Julio 2011, 20:32 pm

agregale un else:

Código:

'la parte del código es la que se aseugra de haberlo encontrado:

 If InStr(Titulo_Win, El_titulo) <> 0 Then

 msgbox ("hola mundo")
else
 msgbox "No se encontro"
end if

Título: Re: Duda con "If InStr" sin resolver
Publicado por: usuario oculto en 5 Julio 2011, 20:44 pm

no funciona de esa manera, siempre me sale la que pongo debajo del "else" aunque sea correcta la búsqueda

Título: Re: Duda con "If InStr"
Publicado por: AlxSpy en 5 Julio 2011, 21:03 pm

es sencillo asi te va quedar claro el uso de esa funcion:

Código

Private Sub Form_Load()
    Dim CadenaDondeBuscar As String
    Dim CadenaABuscar As String
 
    CadenaDondeBuscar = "hola que tal"
    CadenaABuscar = "que"
 
    If InStr(1, CadenaDondeBuscar, CadenaABuscar) <> 0 Then
        MsgBox "cadnena encontrada", vbInformation
    Else
        MsgBox "no se encontro la cadena", vbCritical
    End If
 
    End
End Sub

en CadenaABuscar cambiale por otra cosa como "qpow" y se va ejecutar el else.

Título: Re: Duda con "If InStr"
Publicado por: Edu en 5 Julio 2011, 22:02 pm

Código

Dim text As String
Dim palabra As String
 
text = "Hola mundo"
palabra = "mun"
 
If InStr(text, palabra) Then
MsgBox "el string palabra se encuentra dentro de texto"
Else
MsgBox "el string palabra no se encuentra dentro de texto"
End If