MEMBUAT TEKS BERWARNA-WARNI

September 13, 2008 at 6:42 am Leave a comment

 

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..

Entry filed under: Ms Access. Tags: .

MENENTUKAN TANGGAL AKHIR BULAN Property Field Access

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 94,725 hits

Twitter Updates

Iklan


%d bloggers like this: