Como buscar palabras en vb6

[eldiabloxico]

Weno mi pregunta es como hacer para buscar las palabras, me explico, lo que quiero es que cuando escriba una palabra le envie a un form o otro y si no existe diga que esa palabra no existe

[((( SPAWN )))]

hola, no entiendo en q parte debe realizar la busqueda de la palabra por ejemplo: en un textbox, en un richtextbox, en archivos, en base de datos explica un poco mas.
Saludos.

[yovaninu]

si se dan cuenta todos, este tipo de preguntas estan reinando por este y otras secciones del foro muy a pesar que en el regflamento general del foro dice que se eliminaran aquellos mensajes que solo dicen "ayudaaa por favooooooooor", es mas hace mucho pero mucho tiempo tambien se dijo que el foro ya es de level 2 osea un poco mas avanzado pero todo es letra muerta, sino miren estos post si ir mas lejos aqui mismo

http://foro.elhacker.net/index.php/topic,207595.0.html

o este otro

http://foro.elhacker.net/index.php/topic,207187.0.html


en fin... y los moderadores?

[eldiabloxico]

hola, no entiendo en q parte debe realizar la busqueda de la palabra por ejemplo: en un textbox, en un richtextbox, en archivos, en base de datos explica un poco mas.
Saludos.

pues mira, are un programa que tiene muchos form y lo que quiero es que cuando una persona escriba en un textbox la palabra o nombre del form si existe lo mande alli y sino diga que no existe por ejemplo
un programa que tiene 1 form llamado por ejemplo principal y alli estara el textbox y aparte de ese form existe otro que se llama prueba1 y prueba2
aora lo que yo digo es que si la persona escribe prueba 1 en el texbox lo mande al form prueba 1 y si escribe por ejemplo prueba3 como no existe le diga que no existe espero aberme explicado

[((( SPAWN )))]

Hola como estas, este codigo q hice, recorre todo los formularios q tiene tu proyecto y verifica los caption de cada uno con el nombre q ingresaste en el textbox, si se da la coincidencia pasa a mostrar el form llamado.
Al cargar el form "Principal" cargar en memoria tambien todos los form del proyecto.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim ok As Boolean
    For i = 0 To Forms.Count - 1 '---> Recorre todos los formularios con el objeto "Forms"
        If Text1 = Forms(i).Caption Then '---> Compara con el q tipeaste
            Forms(i).Show '---> Lo ejecuta
            ok = True
        End If
    Next
    If ok = False Then
        MsgBox "El Form " & Text1 & " no existe."
    End If
End Sub

Private Sub Form_Load()
    Form1.Hide '---> Carga el Form1 pero no lo muestra
    Form2.Hide '---> Carga el Form2 pero no lo muestra
End Sub

Private Sub Form_Unload(Cancel As Integer)
    For i = Forms.Count - 1 To 0 Step -1
        Unload Forms(i) '---> Cierra todos los form
    Next
End Sub


Esta es una forma de verificar, otra seria con un Select Case verifiques cada uno de los caption de todos los form con el q escribiste en el textbox, claro q, tendras q escribir todos los caption, de cada form para cada Case.

No se si sera lo q necesitas. Saludos.