Cara Membuat Form Dengan Efek Vibrate (bergetar) di VB6

Cara Membuat Form Dengan Efek Vibrate (bergetar) di VB6. - Tentunya Anda dan Saya masih setia dengan tip dan trik visual basic vb6. Pada pertemuan Kali ini tetap. Tip dan trik Visual Basic akan membahas bagaimana cara membuat form dengan efek vibrate atau bergetar.

Sebenarnya banyak sekali efek-efek untuk tampilan form yang ada di VB6 ini, salah satunya adalah membuat efek form dengan efek seperti meledak yang saya buat nanti setelah ini.Tapi pada kesempatan kali ini saya ingin memberikan tip yang satu ini dulu yaitu bagaimana cara membuat form yang bergetar seperti layaknya gedung yang terkena gempa bumi.Untuk membuat efek ini sangat sederhana Anda hanya cukup memasang form polos tanpa kontrol  apapun di dalam form itu, Anda juga bisa membuatnya di aplikasi Anda yang sudah jadi.

Bagaimana cara membuatnya? ikuti langkah-langkah berikut dibawah ini :

Cara Membuat Efek Bergetar pada Form :

1. Tambahkan sebuah form pada project Anda
2.Double klik area Form hingga jendela kode terbuka,bila ada kode yang lain di jendela kode hapus saja semua hingga menjadi kosong
3. Lalu Copy-paste kode di bawah ini :

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

4. Simpan hasil pekerjaan Anda dan jalankan program dengan F5 dan lihat hasilnya

Catatan: Pada saat anda menjalankan program pastikan tidak ada gempa dirumah Anda,hehehe....

Demikian tip cara Cara Membuat Form Dengan Efek Vibrate (bergetar) di VB6. Selamat mencoba semoga berhasil.

Related Post: Animasi Form