Kali ini Admin akan berbagi kode untuk membuat efek garis rainbow pada mouse ketika digerakan, cara kerjanya adalah dengan menggerakan mouse maka secara otomatis kemanapun mouse melagkah angkat terbentuk garis rainbow warna pelangi, untuk membuat sangat gampang cukup copy-paste kode dibawah ini :
 |
| Mouse Rainbow |
' Variabel untuk menyimpan posisi terakhir mouse
Dim lastX As Single
Dim lastY As Single
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3 ' Pixel
Command1.Caption = "Clear"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Gambar garis dari posisi sebelumnya ke posisi saat ini
If lastX <> 0 And lastY <> 0 Then
' Ganti warna agar terlihat keren
Dim warna As Long
warna = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' Warna acak
Me.Line (lastX, lastY)-(X, Y), warna
End If
lastX = X
lastY = Y
End Sub
Private Sub Command1_Click()
Me.Cls ' Hapus semua gambar di Form
lastX = 0
lastY = 0
End Sub
Catatan :
Jangan lupa tambahkan 1 Commannbutton pada form
No comments:
Post a Comment