Cara membuat link di form Visual Basic

Disini yang saya maksud adalah link yang jika kita klik pada form aplikasi,maka akan langsung membuka browser yang menuju alamat web yang kita inginkan.Dalam hal ini tentunya kalian sering melihat penggunaan dari link di aplikasi - aplikasi komputer.

Caranya cukup mudah dan simple...Ikuti langkah-langkah berikut :


Pertama kalian tambahkan satu buah Label pada form,lalu

Kedua kalian membuat fungsi ShellExecute…seperti yang ada dibawah ini …

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long

Dim X As String

Langkah yang ke Tiga yaitu kalian buat sebuah prosedure (agar lebih mudah dalam pemanggilan)….

Sub buka()
Dim link As Long
link = ShellExecute(0, vbNullString, X, “”, “”, vbNormalFocus)

End Sub

Selanjutnya kalian ketikkan pada event Label Click pada form dan masukan kode berikut :

Private Sub Label1_Click()
X = “http://indrawan21.blogspot.com” Alamat webnya terserah Anda…
Call Buka

End Sub

Dan langkah final,yaitu membuat evek pada saat mouse memasuki atau berada di label tsb,maka tulisan di label berubah warna (seperti evek hover di link web site)

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue

End Sub

Cukup sampai situ ajah tutorialnya cara membuat link di dalam vb ini...
Kalian coba run dan tes hasilnya,jika ada pertanyaan silahkan tinggalkan pesan (klik tulisan komentar,atau via fb comment)

Klik Like/share jika anda menyukai tulisan ini 

Download Sample :

Download Source code