bueno esta ves le traigo algo simple que es
buscar un textbox dentro de un textarea es fácil
lo hice por si alguien no sabe como se hace
bueno como norma
Ubuntu 9.10
gambas 2.13
Gnome
por defectos
bueno creo que todo me puede correguir
aja lo que interesa "codigo"
PUBLIC a AS Integer
PUBLIC SUB Button1_Click()
bus
END
PUBLIC SUB Button2_Click()
bus(a + 1)
END
PUBLIC SUB bus(OPTIONAL bs AS Integer)
DIM b AS String
DIM p AS Integer
b = TextBox1.Text
IF Len(b) THEN
a = 0
a = InStr(TextArea1.Text, b, bs + 1)
IF a > 0 THEN
TextArea1.Select(a - 1, Len(b))
TextArea1.SetFocus
ELSE
Message.Info("No hay mas")
ENDIF
ENDIF
END
PUBLIC SUB Button1_Click()
bus
END
PUBLIC SUB Button2_Click()
bus(a + 1)
END
PUBLIC SUB bus(OPTIONAL bs AS Integer)
DIM b AS String
DIM p AS Integer
b = TextBox1.Text
IF Len(b) THEN
a = 0
a = InStr(TextArea1.Text, b, bs + 1)
IF a > 0 THEN
TextArea1.Select(a - 1, Len(b))
TextArea1.SetFocus
ELSE
Message.Info("No hay mas")
ENDIF
ENDIF
END
puede comentar con confianza
******* mejora creo
******
buscar mientas escribes tipo firefox
'
gambas class file
PUBLIC a AS Integer
PUBLIC SUB Button1_Click()
bus
END
PUBLIC SUB Button2_Click()
bus(a + 1)
END
PUBLIC SUB bus(OPTIONAL bs AS Integer)
DIM b AS String
DIM p AS Integer
b = TextBox1.Text
IF Len(b) THEN
a = 0
a = InStr(TextArea1.Text, b, bs + 1)
IF a > 0 THEN
TextArea1.Select(a - 1, Len(b))
ELSE
Message.Info("No hay mas")
ENDIF
ENDIF
END
PUBLIC SUB TextBox1_Change()
bus
END
PUBLIC a AS Integer
PUBLIC SUB Button1_Click()
bus
END
PUBLIC SUB Button2_Click()
bus(a + 1)
END
PUBLIC SUB bus(OPTIONAL bs AS Integer)
DIM b AS String
DIM p AS Integer
b = TextBox1.Text
IF Len(b) THEN
a = 0
a = InStr(TextArea1.Text, b, bs + 1)
IF a > 0 THEN
TextArea1.Select(a - 1, Len(b))
ELSE
Message.Info("No hay mas")
ENDIF
ENDIF
END
PUBLIC SUB TextBox1_Change()
bus
END
