cara kerjanya seperti mouse yang tidak bisa diatur secara manual. otomatis akan meloncat kesana kemari, seperti tikus tidak bisa diam
Pertama kali kamu harus buat timer. Untuk timer1.timer, berada dibawah form. jadi tidak tampil pada screen di atas. maaf Y,..,Y
listing code pada timer:
Private Sub Timer1_Timer()
X = 1 + 2 + 3 + 4 + 5 + 6 - 2
Y = 1 + 2 * 800 + 200 - 400 + 130 + 700
SetCursorPos X, Y
End Sub
pada yang bertuliskan "mouse loncat", hanya dimasukan kode untuk pengaktifan timer1.timer tersebut. listing kodenya:
Timer1.Enabled = True
dan pada "Mouse normal", kebalikan dari pengaktifannya. lisitng kodenya:
Timer1.Enabled = false
ini masih berlanjut... sekarang kamu tinggal buat module, letaknya dibawah form. dengan listing code:
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Selamat Mencoba visual basic drag dan drop list box
Jika kalian suka dan bermanfaat dengan artikel visual basic Mouse bergerak tunjukan apresiasi kalian dengan membantu penyebaran link ini dengan mengklik tombol sosial network yang kalian sukai. Terima Kasih.
