BUSCA DE TEXTO DIGITADO
Caros Colegas,
Estou com dificuldades para efetuar uma pesquisa em um campo texto por palavra. Este campo é multiline,
Agradeço antecipadamente
DHFF
Estou com dificuldades para efetuar uma pesquisa em um campo texto por palavra. Este campo é multiline,
Agradeço antecipadamente
DHFF
tente:
Sub LocalizarMeuTexto(Texto as string)
dim p as integer, pe as integer, ue as integer
p = instr(1,Text1.text,Texto)
pe = instrRev(Text1.text," ",p)
ue = instr(p,text1.text,Texto)
Text1.SelStart = pe
Text1.SelLenght = ue - pe
end sub
Sub LocalizarMeuTexto(Texto as string)
dim p as integer, pe as integer, ue as integer
p = instr(1,Text1.text,Texto)
pe = instrRev(Text1.text," ",p)
ue = instr(p,text1.text,Texto)
Text1.SelStart = pe
Text1.SelLenght = ue - pe
end sub
Tópico encerrado , respostas não são mais permitidas