Re: testo colorato

[Lucio Liberi <lucioing at tin dot it>]

Benchè abbia studiato... perche' ancora non funziona?


  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"))

    pos=Len(EditField1.text)-L

    If Num>500 then
      EditField1.StyledText.TextColor(pos,l)=RGB(255, 0, 0)
    else
      EditField1.StyledText.TextColor(pos,l)=RGB(0,0,0)
    end if

  next