Membuat Link Di Visual Basic Dengan Fungsi ShellExecute

Bagi para programmer yang newbie, ada baiknya mempelajari cara ini bila ingin membuat teks label yang mengarah ke url tertentu.
Kebetulan gue dapet dari google nih, langsung aja deh.

1. Tambahkan Label pada Form
2. Membuat fungsi ShellExecute, salin kode dibawah

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  

3. Membuat object general untuk membuka link, salin kode dibawah

Sub OpenLink()
Dim link As Long
link = ShellExecute(0, vbNullString, X, "", "", vbNormalFocus)
End Sub

4. Double klik pada Label dan masukkan kode di bawah

Private Sub Label1_Click()
X = "http://senaaa.tk"   'Ganti url disamping dengan url Anda
Call OpenLink
End Sub

5. Masih di Label, cari procedure MouseDown, lalu salin kode di bawah

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

End Sub

6. Kalau sudah selesai jalankan programnya ;)

Posted in: Tips and Trick