Membuat Efek Getar Form

Coding untuk animasi dan efek kali ini adalah membuat form bergetar-getar, seperti orang kedinginan. Oke gan langsung ke tutorialnya

Langkah-langkahnya :

Siapkan 1 form

Kemudian copikan coding ini ke form

'----------------------------------------------------------------------------

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)

Dim Lft As Long, Tp As Long

Dim i

Lft = frm.Left

Tp = frm.Top

For i = 1 To Times

frm.Move Lft + Sgn(rScale)

Pause 20

frm.Move Lft + rScale

Pause 20

frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height

Pause 20

frm.Move Lft, Tp + rScale, frm.Width, frm.Height

Pause 20

Next i

End Sub

Private Sub Pause(ms)

Dim secs

Dim g

secs = ms / 1000

g = Timer

Do While Timer - g < secs

DoEvents

Loop

End Sub

Private Sub Form_Activate()

Vibrate Me, 100, 20

End Sub

'----------------------------------------------------------------------------

Klik gambar untuk memperbesar

Sekarang coba jalankan program, Selamat Mencoba.

Untuk memudahkan proses belajar Anda, Ane sudah siapkan file tersebut.

Silahkan download DISINI