Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6

Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6 - Tip dan Trik Unik Visual Basic kali ini akan memberikan tip bagaimana membuat label dengan efek amimasi mengecil dan lambat laun akan membesar sesuai dengan ukuran FontSize yang telah di tentukan dan dengan menambahkan sebuah kontrol timer untuk mengatur kecepatan perubahan.Dimana animasi label yang kita buat ini terdiri dari berbagai Caption.

Tip berikut ini akan menunjukan kepada Anda cara untuk membuat animasi sederhana dengan kontrol Label.Pada saat program dijalankan, label yang Anda buat akan semakin membesar ukurannya jika sudah mencapai ukuran maksimum.Jika sudah mencapai ukuran maksimum label tersebut akan menghilang kemudian muncul caption yang lain.

Animasi ini tidak jauh berbeda dengan animasi label berkedip perbedaanya terletak pada kata yang muncul.Pada Label berkedip kata yang muncul saat berkedip itu-itu saja sedangkan pada  animasi ini tiap label berkedip selalu berganti kata.Untuk bisa melihat perbedaan yang jelas coba sekarang Anda praktekan tip berikut ini.

Anda tertarik?.Berikut adalah langka-langkah cara pembuatannya :

Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar

1. Letakan sebuah Label dan sebuah Timer pada Form Anda

2. Atur properti masing-masing seperti berikut dibawah ini:

   Label1 Autosize : True

   Timer1 Interval  : 10

3. Buka jendela kode dengan menekan F7, lalu ketik kode dibawah ini :

Dim x, y As Integer

Dim z As Boolean

Private Sub Form_Load()

x=1

Label1.FontSize = 1

End Sub

Private Sub Timer1_Timer()

if z = False Then

x = x + 1

if x = 20 Then z = True

else

Label1.Visible= False

x = 1

z = False

Label1.Visible = True

y = y +1

End If

Select Case y

Case 0

Label1.Caption = " Ini"

Case 1

Label1.Caption = " adalah"

Case 2

Label1.Caption = " contoh"

Case 3

Label1.Caption = " animasi"

Case 4

Label1.Caption = " label"

Case 5

Label1.Caption = " contoh animasi label"

Case 6

Timer1.Enabled = False

End Select

If x <= 0 Then x = 1

Label1.FontSize= x

End Sub

4. Simpan hasil pekerjaan anda dan jalankan program, lihat apa yang terjadi.

Catatan :

Pada kode diatas terdapat baris kode "if x = 20 Then z = True.Angka 20 pada kode tersebut adalah ukuran maksimum Label sebelum menghilang, bisa Anda rubah sesuai dengan keinginan Anda.

Pada dasarnya ini hanyalah permaina Timer.Anda bisa kasi kondisi macem-macem ke kontrol yang Anda ingin rubah.Silahkan bereksprimen.

Sekian tip cara Cara Membuat Animasi Label dengan Efek Mengecil dan Membesar di VB6. Semoga bermanfaat, Selamat mencoba semoga berhasil.

Related Post: Animasi Label/Text