Moze ovako:
-Na formu stavi 2 tekt kontrole, nazovi ih text1 i text2
-text1 neka bude samo jedna linija
-text2 neka bude siroka koliko ima prosotra a visoka barem 7-8 linija.
-Forma neka se zove form1
Kod bi isao ovako:
kod za CLICK event za form1:
Code:
text2.multiline=true
text2.setfocus
kod za CHANGE event za text1:
Code:
if len(text1.text)>0 then
with text2
p=instr(text2.text, .text)
if p>0 then
.selstart=p
.sellength=len(text1.text)
else
.selstart=1
.sellength=0
end if
end with
else
.selstart=1
.sellength=0
end if
Upotreba:
U text2 (ono veliko tekst polje) upisujes tekst. kada u text1 upises bilo sta,program pokusa da to pronadje u text2 i ako pronadje, markira taj deo teksta
[Ovu poruku je menjao Aleksandar Ružičić dana 30.03.2007. u 00:33 GMT+1]