MEMBUAT TEKS BERWARNA-WARNI

 

TEKS label yang berwarna adalah hal yang biasa, tetapi jika teks tersebut bisa beganti warna sendiri hingga tampak kelap-kelip, mungkin akan membuat kesan berbeda.

    Berikut ini adalah trik membuat efek warna-warni pada teks label:

  1. perhatikan Gambar.Katakanlah label teks tersebut bernama Label6.
  2. pada event timer interval isilah dengan nilai 200.
  3. pada event on timer, masukkan kode berikut:

 

Private sub form _timer

r=Int ((6 *rnd )+1)

Select case r

Case 1

    Me.label6.fore color = 255
Case 2

    Me.label6.fore color = 65535
Case 3

    Me.label6.fore color = 32768
Case 4

    Me.label6.fore color = 16711680
Case 5

    Me.label6.fore color = 16711808
Case Else

    Me.label6.fore color = 128
End Select

End Sub

Pada kode di atas kita menentukan angka random sebanyak 6. Terserah angka yang muncul, angka tersebut mewakili warna. Dengan demikian, teks Label6 akan terlihat berkelap-kerlip dengan warna yang berbeda..

Leave a Reply

Your email address will not be published. Required fields are marked *