Cara Membuat Jam Mengikuti Cursor Mouse Menggunakan VB6

Bismillah....

    Pada kesempatan kali ini, kita akan membahas tentang bagaimana cara membuat tampilan Jam bergerak mengikuti kemanapun mouse anda diarahkan.

   Dengan menggunakan tip berikut ini, anda dapat menampilkan waktu yang ditunjukkan oleh system komputer anda persis dibawah kursor mouse. Jadi, tampilan waktu tersebut akan terus mengikuti kemanapun cursor mouse anda bergerak.

  Fungsi yang akan digunakan untuk keperluan ini adalah Function GetCursorPos dan Function SetWindowPos.

   Langkah - langkah pembuatannya yaitu :

• Letakkan sebuah Label dan sebuah Timer pada form, sehingga terlihat seperti gambar di bawah ini.

Gambar 1. Kontrol - Kontrol Pada Form

• Atur Properti masing2 Kontrol Sebagai Berikut : Form1 (BorderStyle : 1-Fixed Single, Caption :      , ControlBox : False). Label1 (Autosize : True). Timer1 (Interval : 1), sehingga berbentuk seperti gambar dibawah ini.

Gambar 2. Tampilan Form Setelah Melakukan Seting Pada Kontrol

• Setelah semua selesai anda atur, maka langkah selanjutnya yaitu membuka jendela kode dan ketikkan kode berikut ini.

----------------------------------------------------

Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long

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 Type pointapi

x As Long

y As Long

End Type

Dim pos As pointapi

Private Sub Form_Load()

With Label1.Caption = Time

Label1.Top = 10

Label1.Left = 10

Label1.AutoSize = True

Label1.BackStyle = 0 - transparent

Label1.BackColor = vbWhite

Height = Label1.Height + 50

Width = Label1.Width - 190

End With

End Sub

Private Sub Timer1_Timer()

SetWindowPos hWnd, -1, 0, 0, 0, 0, 1 Or 2

Label1.Caption = Time

GetCursorPos pos

Move pos.x * 15 + 10 * 15, pos.y * 15 + 20 * 15

End Sub

----------------------------------------------------

• Setelah semua kode anda masukkan, silahkan jalankan program anda dan lihat. Jika ada sebuah waktu di bawah cursor anda dan bergerak mengikuti cursor anda, berarti program yang anda buat telah berhasil. Jika tidak, coba cek lagi kode program anda kalau2 ada yang ketinggalan.

Jika anda merasa bingung dengan program diatas, silahkan anda unduh source code yang sudah saya sediakan dibawah ini.

Happy Programming And Succes 4 U All.