Membuat Form Bergetar di Visual Basic 6

Membuat Form Bergetar di Visual Basic 6

Terbit pada 2016-10-13, 18:24:00 WIB. Oleh : Fuad Nur Hasan, Dibaca : 741 kali

Membuat 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 :