Mostrar mensajes previos
Ordenar por
por k0ws Paranóico
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-
por linkgl Usa camisa de fuerza
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
//mHmm..
por linkgl Usa camisa de fuerza
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.
//mHmm..
Temas similares
Desofuscar codigo javascript por JoseManuel en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “Otros lenguajes”