Saturday, July 11, 2015

Cara Membuat form mengikuti mouse dengan visual basic 6.0

Cara Membuat form mengikuti mouse dengan visual basic 6.0 - Hai sobat naga kali ini saya akan membagikan cara membuat form mengikuti mouse dengan Visual Basic 6.0. 
Visual Basic 6.0

Buatlah :
   1. Buat 1 buah form
  • Pilih Standard Exe
2. Buat 1 buah timer.
  • Name : tmrMouse
  • Interval : 1
Ketik atau copy kode dibawah ini, di bagian General (Declarations) :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

Private Type POINTAPI

X As Long

Y As Long

End Type
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2
End Sub

Private Sub tmrMouse_Timer()
Dim p As POINTAPI

GetCursorPos p

Me.Left = (p.X * Screen.TwipsPerPixelX) + 100

Me.Top = (p.Y * Screen.TwipsPerPixelY) + 100

End Sub

Contoh Aplikasi yang Sudah Jadi

Sekian, Tutorial Cara membuat form mengikuti mouse dengan visual basic 6.0. Terima Kasih Telah berkunjung
Temukan Artikel lainnya di Bapaknaga

Cara Membuat form mengikuti mouse dengan visual basic 6.0 Rating: 4.5 Diposkan Oleh: media tion