Membuat Form Bergetar di Visual Basic 6
Terbit pada 2016-10-13, 18:24:00 WIB. Oleh : Fuad Nur Hasan, Dibaca : 741 kaliMembuat Form Bergetar di Visual Basic 6 - Pada posting kali ini saya akan membagi listing untuk membuat form visual basic anda akan bergetar pada saat di runing.
Mau tau listingnya????
Nih Fuad, Kasih tau listingnya....
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 Timer
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 / 100
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub
Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub
Gampang kan????
SELAMAT MENCOBA!!!!!!!!!
Bagikan Artikel :
Baca Juga :
- Membuat Laporan Dengan Crystal Report 8.5
- Membuat Koneksi/Modul di VB 6.0 untuk Koneksi DB MySQL
- Membuat Form Loading Pada VB 6
- Cara Mengkonversikan DBGRID32