ANIMASI
TOOLTIP
Tutorial kali ini kita
akan membahas trik visual basic untuk membuat animasi pada tampilan tooltip
saat pointer mouse anda mengarah pada salah satu objek.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Masukkan sebuah komponen Timer dan CommadnButton kedalam area form, kemudian ubahlah propertis Inerval dari Timer1 menjadi 100.
3.
Selanjutnya klik ganda di dalam area
form dan ketiklah perintah di bawah ini pada bagian General dan Form_Load.
1
2
|
Dim
ShowString As String
Dim
a As Single
|
3
4
5
|
Private
Sub Form_Load()
ShowString = “Anda yakin akan keluar ?”:
a = 1
End
Sub
|
Keterangan
Kode
1-2
4
|
Mendeklarasikan
variabel Showstring dan a pada bagian General, supaya dapat dibaca pada semua prosedur.
Mangisi
Showstring dan a dengan nilai awal pada saat form
pertama kali tampil.
|
4.
Kembali ke tampilan desain form,
kemudian klik ganda komponen Timer
dan ketiklah perintah dibawah ini:
1
2
3
4
5
6
7
8
|
Private
Sub Timer1_Timer()
command1.ToolTipText
= command1.ToolTipText & Mid$(showstring, a, 1)
If
a > Len(showstring) Then
a = 1: command1.toot = ltiptext =
""
Else
a = a + 1
End
If
End
Sub
|
Keterangan
Kode
2
3-4
5-6
|
Mengisi
propertis ToolTipText pada
komponen Command1 dengan
menggunakan perintah Mid untuk
menampilkan teks pada variabel Showstring
secara satu persatu.
Jika
nilai variabel a lebih besar dari
panjang karakter pada variabel Showstring,
maka variabel a diisi dengan nilai
awal 1 dan mengosongkan nilai ToolTipText
pada Command1.
Apabila
kondisi pada barid 3 tidak terpenihu, maka nilai variabel a akan selalu ditambah dengan nilai
1.
|
EmoticonEmoticon