Página 1 de 1

[SRC] Codigo para buscar palabras y cadenas en VB6

Publicado: 23 Mar 2011, 13:32
por k0ws
Bueno,lo meten en un modulo y listo,alguna utilidad le daran:

Código: Seleccionar todo

Function Buscar(Palabra As String) As String
Dim Codigo As String
Codigo = InStr(1, Form1.Text1.Text, Palabra)
If Codigo = 0 Then
MsgBox "No Encontrado",vbexclamation,me.caption
Else
MsgBox "Encontrado",vbinformation,me.captio
End If
End Function
Luego para usarlo:

Código: Seleccionar todo

Buscar("Indetectables")
-Saludos-

Re: [SRC] Codigo para buscar palabras y cadenas en VB6

Publicado: 23 Mar 2011, 15:44
por linkgl
xD bueno, gracias por compartirla aunque pues la función buscar es la misma que instr no tiene mucho chiste meter una función en otra función xD además un consejo es que las funciones que hagas retornen un valor ya sea tipo BOOL (True, False) o Integer en este caso, para después poder manipularla en el programa x) pero bueno yo no le veo mucho caso una función para otra función pero bue.. Es un consejo

Re: [SRC] Codigo para buscar palabras y cadenas en VB6

Publicado: 23 Mar 2011, 19:44
por k0ws
Bueno,uno hace lo que puede xD.

-Saludos-

Re: [SRC] Codigo para buscar palabras y cadenas en VB6

Publicado: 24 Mar 2011, 16:17
por linkgl
xD mejor como ejercicio más práctico y para ir aprendiendo más podrías hacer una función instr que sea tuya es decir que hagas una funcion que busque una cadena pero sin usar instr usando solo bucles y un par de condicionales :P sin usar funciones de vb. Es un buen ejercicio.