OK,
priva questo:
Dim i, pos, l As Integer
Dim Num As Double
EditField1.text=""
for i=0 to 100
Num=Rnd()*1000
EditField1.appendtext format(Num, "####.##0")+chr(13)
l=Len(format(Num, "####.##0"))
pos=Len(EditField1.text)-l-1
editfield1.selstart = pos
EditField1.SelLength = 100
If Num>500 then
EditField1.SelTextColor=RGB(255, 0, 0)
else
EditField1.SelTextColor=RGB(0,0,0)
end if
next
Il giorno 01/feb/08, alle ore 12:39, Lucio Liberi ha scritto:
Si, Giulio.. infatti... Ma si ostina a non funzionare...
Dim i, pos, l As Integer
Dim Num As Double
EditField1.text=""
EditField1.TextColor=RGB(0,0,0)
for i=0 to 100
Num=Rnd()*1000
EditField1.text=EditField1.text+format(Num, "####.##0")+chr(13)
l=Len(format(Num, "####.##0")) <------- guardo quanto è
lungo il numero formattato...
pos=Len(EditField1.text)-l <---------- ne individuo la
posizione del cursore...
Immagino che la posizione sia data dalla lunghezza di
tutta la stringa meno la
lunghezza dell'ultimo numero
If Num>500 then
EditField1.StyledText.TextColor(pos,l)=RGB(255, 0, 0) <----
cambio colore a partire dal pos-iesimo carattere per "l" caratteri
else
EditField1.StyledText.TextColor(pos,l)=RGB(0,0,0)
end if
next
-----------------
Allora, bastardo... che altro vuoi? Perchè non funzioni? Non mi
esprimo sul mestiere delle tue sorelle....
|