[Gambas-user] Blinking

[Pino Zollo]

Nice.....but for not loosing the color I did:

Public Colore As Integer = Color.VisitedForeground

.......

Public Sub BlinkTimer_Timer()

    If Label2.Foreground = Colore Then
      Label2.Foreground = Label2.Background
  Else
      Label2.Foreground = Colore
    Endif

END

Saluti

Pino

El 3/4/20 a las 17:21, user-request at lists.gambas-basic.org escribió:
>
>
> Il giorno ven 3 apr 2020 alle ore 22:40 T Lee Davidson
> <t.lee.davidson at gmail.com <mailto:t.lee.davidson at gmail.com>> ha scritto:
>
>
>     Public Sub Timer1_Timer()
>
>        If Label1.Foreground = Color.Background Then
>          Label1.Foreground = Color.Foreground
>        Else
>          Label1.Foreground = Color.Background
>        Endif
>
>     End
>
>
> Nice I like it :-)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20200403/8146b5ad/attachment.html>