Cara Membuat Tampilan Waktu dibawah Kursor Mouse di Visual Basic 6.0 - Tip selanjutnya adalah Cara Membuat Tampilan Waktu dibawah Kursor Mouse di Visual Basic 6.0.Untuk membuat tip Tampilan Waktu dibawah Kursor Mouse ini tidaklah terlalu sulit hanya membutuhkan label dan timer.
Dengan menggunakan tip berikut ini Anda dapat menampilkan waktu yang ditunjukan oleh sistem komputer Anda persis dibawah kursor mouse jadi tampilan waktu tersebut akan terus selalu mengikutinya kemanapun kursor mouse bergerak.
Fungsi yang digunakan untuk keperluan ini adalah Function GetCursorPos dan Function SetWindowPost.
Bagi Anda yang penasaran bagaimana cara membuatnya berikut adalah langkah-laqngkah pembuatannya:
1. Buka Form Standar EXE VB6
2. Letakan sebuah Label dan sebuah Timer pada Form
3. Atur Properti masing-masing seperti tabel dibawah:
Dengan menggunakan tip berikut ini Anda dapat menampilkan waktu yang ditunjukan oleh sistem komputer Anda persis dibawah kursor mouse jadi tampilan waktu tersebut akan terus selalu mengikutinya kemanapun kursor mouse bergerak.
Fungsi yang digunakan untuk keperluan ini adalah Function GetCursorPos dan Function SetWindowPost.
Bagi Anda yang penasaran bagaimana cara membuatnya berikut adalah langkah-laqngkah pembuatannya:
1. Buka Form Standar EXE VB6
2. Letakan sebuah Label dan sebuah Timer pada Form
3. Atur Properti masing-masing seperti tabel dibawah:
| KONTROL | PROPERTI |
| Form1 | Caption: kosongkan ControlBox:False Border Style:1-Fixed Single |
| Label1 | Autosize:True |
| Timer1 | Interval:1 |
3. Lalu pada jendela kode, ketikan kode berikut dibawah 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
.Top = 10
.Left = 10
.AutoSize = True
.BackStyle = 0
BackColor = vbWhite
Height = .Height + 50
Width = .Width + 30
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
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
.Top = 10
.Left = 10
.AutoSize = True
.BackStyle = 0
BackColor = vbWhite
Height = .Height + 50
Width = .Width + 30
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
4. Simpan hasil pekerjaan Anda, dan jalankan program maka hasilnya tampak seperti ini gambar
dibawah ini
dibawah ini
Demikian tip Cara Membuat Tampilan Waktu dibawah Kursor Mouse di Visual Basic 6.0. Selamat mencoba,Semoga berhasil....!!
No comments:
Post a Comment