Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6

Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6 - Pada pertemuan kali ini tip dan trik visual basic ingin memeberikan sebuah tip yang unik yaitu membuat tampilan teks yang yang berjalan mengikuti kursor mouse.

Tip berikut ini merupakan ide dari seorang pengunjung blog dimana kita dapat menggabungkan dua buah tip yang terdapat dalam tip dan trik visual basic yaitu "tampilan waktu dibawah kursor mouse" dan "membuat teks berjalan" yang sebelumnya sudah kita buat tipnya.

Setelah saya mencoba tip ini para sobat akan dibuat terkagum-kagum melihat tampilan teks berjalan yang mengikuti gerakan kursor mouse, karena mungkin baru kali ini mereka melihatnya. Untuk keperluan tersebut akan di gunakan 2 buah fungsi yaitu fungsi GetCursorPos dan fungsi SetWindowPos.

Fungsi GetCursorPos digunakan untuk mendapatkan posisi kursor agar form yang berisi teks berjalan dapat dibuat terus mengikutinya.Sedangkan fungsi SetWindowPos digunakan untuk membuat form selalu berada diatas (Always on Top), sehingga teks berjalan akan terus terlihat pada saat melewati aplikasi lain yang sedang aktif.Tanpa fungsi SetWindowPos, teks berjalan tersebut tidak akan terlihat pada saat melewati sebuah aplikasi yang sedang aktif, hal itu tentu saja akan mengurangi kekaguman teman-teman.

Jika Anda sudah tidak sabar bagaimana proses mebuatnya, silahkan ikuti langkah-langkah pembuatanya berikut ini :

Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor

1. Buka Form Standar VB6 Anda
2. Letakan sebuah Label dan sebuah Timer pada form Anda
3. Atur properti masing-masing berikut dibawah ini:

   Form1                      BorderStyle   : 1-Fixed Single        ControlBox: False   Caption:
   Label Autosize         : True Caption      : Visual Basic
   Timer1                    Interval          : 1

4.Setelah properti di atur maka form akan berbentuk flat alias datar tanpa tombol Close
5.Sekarang buka jendela kode dengan menekan F7 kemudian ketik kode dibawah ini:

Private Declare Function GerCursorPos 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 PONTAPI

Private Sub Form_Load()
With Label1
.Top = 10
.Left = 10
.AutoSize = True
.BackStyle = 0
.BackColor = vbWhite
.Height = .Height + 50
.Width = .Width - 50
End With
End Sub

Private Sub Timer1_Timer()
SetWindowPos hWnd, -1, 0, 0, 0, 0, 1 or 2
GerCursorPos pos
Move pos.x * 15 + 10 * 15, pos.y * 15 + 20 * 15
Label1.Move Label1.Left - 25
if Label1.Left < -Label1.Width Then Label1.Left = Label1.Width
End Sub


6. Simpan hasil pekerjaa Anda dan jalankan program

Catatan:
Untuk mengubah teks yang akan dijalankan ubah properti Caption pada Label1.
Dan untuk menambah kecepatannya ubah properti Interval pada Timer1

Demikina tip Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6. Semoga bermanfaat.selamat mencoba semoga berhasil.

Cara Menghasilkan Bitcoin

Silahkan komentar pada kolom dibawah ini jika ada yang ingin ditanyakan tentang Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6.

0 Response to "Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6"

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.