Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6

Cara Membuat Tampilan Teks Berjalan Mengikuti Kursor di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : 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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

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

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel