Cara Membuat Link Hover di VB6

Bagi Anda sering berselancar di dunia maya tentu tidak asing lagi yang namanya link yang kita sering jumpai pada suatu halaman website baik didalam artikel maupun navigasi. Link sangat penting peranannya dalam membangun sebuah website, tanpa link maka website tidak ada artinya.

Link/tautan di Form VB6

Link adalah sebuah teks atau gambar yang berisi tautan yang menghubungkan antara halaman  yang satu dengan halaman yang lain dari satu website atau antara website yang satu dengan website yang lain.

Pada pertemuan kali ini saya akan memberikan trik bagaimana membuat link hover di form Visual Basic 6.0 yang akan kita hubungkan ke halaman website tertentu. Link Hover adalah sebuah tautan yang mempunyai efek tertentu apabila kita menggerakan kursor mouse diatas link tersebut, maka akan timbul efek-efek tertentu misalnya link teks berubah warna, link teks berkedip dan masih bayak lagi efek-efek link lainnya.

Cara Membuat Link Hover di VB6 :

1. Buka Form VB Anda
2. Tempatkan 1 Label di form yang bertuliskan nama link misalnya Label1 ubah Captionnya : "http://tipandtrickunikvb.blogspot.com"
3. Tambahkan Sebuah Module, lalu ketik kode dibawah ini di Module :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub OpenUrl(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)

4.Setelah membuat module sekarang kembali ke form, buka jendela kode dan copy kode dibawah ini di bagian General-Declaration :

'set CursorTangan
Option Explicit
Private Declare Function LoadCursor Lib "User32.dll" Alias "LoadCursorA" (ByVal hinstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "User32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_Hand As Long = 32649
Private Type CursorTangan
cursor As Long
End Type
Dim Hand As CursorTangan

Private Sub Form_Activate()
'tulisan atau keterangan saat di atas link
Label1.ToolTipText = "Tutorial Visual Basic 6.0"
End Sub

Private Sub Form_Load()
'Cursor Saat di Load normal
Hand.cursor = LoadCursor(0, IDC_Hand)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'warna ketika melewati teks (normal)
Label1.ForeColor = vbBlack

'garis bawah ketika melewati teks hilang
Label1.FontUnderline = False
End Sub

Private Sub Label1_Click()
'link tujuan
OpenUrl "http://tipandtrickunikvb.blogspot.com", Me.hwnd
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'warna teks/link ketika diatas mouse
Label1.ForeColor = vbBlue

'Bentuk Cursor Tangan saat di atas link
SetCursor Hand.cursor

'memunculkan garis bawah pada saat diatas link
Label1.FontUnderline = True
End Sub

5.Simpan hasil pekerjaan Anda dan jalankan Program.

Selamat mencoba semoga sukses....

Related Post: Internet Label/Text