Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6

Ditulis olehMC Project -
Artikel Terkait Tutorial 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 kami 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

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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).
Tag