Cara Membuat Hyperlink Dengan Label

Cara Membuat Hyperlink Dengan Label. Bagaimanakah caranya membuat hyperlink dengan label..? Maksud dan tujuan membuat hyperlink tersebut adalah jika kita klik label hyperlink tersebut maka akan membuka sebuah web site atau blog yang telah di tentukan alamatnya. misalnya kita mau buka http://www.yahoo.com pada hyperlink tersebut.

Pada postingan sebelumnya saya pernah memposting sebuah komponen ocx yaitu HyperLabel.ocx dengan komponen tersebut kita dapat dengan mudah membuat Label Hyperlink tanpa menuliskan sebuah kode sedikitpun. Tapi pada kali ini saya akan membahas bagaimanakah caranya membuat hyperlink dengan label dengan cara manual yaitu dengan cara menuliskan kode-kode visual basic. Bagaimanakah caranya membuat hyperlink dengan label? Ikutilah langkah-langkahnya berikut ini semoga dapat bermanfaat.

Siapkan sebuah form kemudian taruhlah sebuah label di dalam form tersebut kemudian rubahlah caption label tersebut misalnya www.google.com atau sesuai dengan selera anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah klik labelnya kemudian rubahlah properties MousePointer menjadi 99 - Custom. Kemudian pada properties MouseIcon kamu klik tombolnya kemudian carilah salah satu cursor yang anda inginkan.( Disini saya sudah menyiapkan beberapa cursor di dalam file source code yang bisa anda download )

Tampilkan Gambar

 

Jika sudah silahkan double klik formnya kemudian tulislah kode berikut ini pada bagian general

Const defaultcolor = &H800000
Dim adress As String Private 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
 
Private Const SW_NORMAL = 1

Jika sudah silahkan double labelnya lalu tuliskan kode berikut ini:

Private Sub Label1_Click()
    ShellExecute 0, "open", adress, vbNullString, vbNullString, SW_NORMAL
End Sub

Kemudian pada bagian form load tuliskan kode berikut ini

Private Sub Form_Load()
    adress = Trim(Label1.Caption)
End Sub

Jika sudah silahkan di running dan dicoba hyperlinknya. Jika anda tidak ingin ribet membuatnya silahkan download source codenya di link di bawah ini.

Download Source Code

Keyword:
Cara Membuat Hyperlink Dengan Label, Hyperlink,Label Hyperlink, Membuat Hyperlink, Tips And Trik Hyperlink, Source Code Hyperlink