Membuat Hyperlink pada Visual Basic 6

Beberapa diantara kita pasti bingung bagaimana caranya membuat text hyperlink pada visual basic 6. Karena pada vb6 ini tidak menyediakan tools khusus seperti Label untuk membuat hyperlink, berbeda pada Visual Basic .NET yang dengan mudah kita bisa membuatnya melalui LinkLabel.

Untuk membuat text hyperlink pada VB6 ini relatif mudah, langkah pertama yang perlu kita lakukan adalah mendeklarasikan fungsi untuk hyperlink itu sendiri. Buatlah sebuah Module baru, lalu letakkan script berikut kedalam module pada aplikasi VB6 anda.

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   

Lalu panggil fungsi tersebut dengan perintah :
ShellExecute 0, "open", "url", vbNullString, vbNullString, 1
"url" diisi dengan alamat url tujuan

Contoh (lihat baris yang ditandai). Buatlah sebuah Label atau Button (disini contohnya menggunakan Label) dengan tulisan "Klik Disini", lalu lakukan Double Klik pada label tersebut. Copy code diatas kedalamnya.

Private Sub LabelUrl_Click()
ShellExecute 0, "open", "http://www.santoss.web.id", vbNullString, vbNullString, 1
End Sub

Baca Juga :

Older Post
Newer Post