Cara Menjalankan/Mengeksekusi Link Dari Program Visual Basic 6.0

Cara Menjalankan/Mengeksekusi Link Dari Program Visual Basic 6.0 | Visual Basic Magazine - Ada yang bertanya kepada saya, bagaimana cara menempatkan sebuah link di form Visual Basic 6.0 yang apa bila link tersebut di klik maka otomatis akan menjalankan browser dan langsung menuju ke URL dari link yang dipasang tersebut.

Kali ini saya akan membagikan cara sederhananya, gak perlu coding yang panjang dan ribet koq..., nah sekarang silakan sobat ikuti langkah-langkah sederhana berikut ini :

• Buka sebuah form, letakkan 1 buah Label di form tersebut kemudian ubah Caption Label dengan URL (Mis : http://gho-blogs.blogspot.com) yang sobat inginkan.

• Kemudian buka Coding View nya, dan letakan coding berikut di bagian General Declaration :

Option Explicit 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

• Setelah itu double klik pada Label1 yang berada di Form tadi, dan masukkan coding berikut ini tepad diantara Private Sub Label1_Click() dengan End Sub :

Dim buka buka = ShellExecute(Me.hwnd, "Open", "http://gho-blogs.blogspot.com", "", App.Path, 1)

• Jika sudah, coba running program ini, kemudian klik link yang berada di Label tersebut dan lihat apa yang terjadi.

Pengembangan :

Nah, jika tadi kita menggunakan Label sebagai control nya, sekarang kita coba menggunaka sebuah Textbox yang apabila kita menginputkan sebuah URL ke textbox tersebut dan meng-klik button browser akan secara otomatis membuka URL tersebut. Jadi disini kita tidak hanya monoton pada satu URL saja seperti saat menggunakan Label tadi. Sehingga URL apapun yang sobat inputkan akan bisa dieksekus. untuk itu silakan sobat ikuti langkahnya berikut ini :

• Kita tetap menggunakan form yang sama dengan form yang kita gunakan sebelumnya, sobat cukup menambahkan 1 buah Textbox (Text1) dan 1 buah Button (Command1) ke dalam form.

• Sekarang double klik pada Command1 dan masukkan coding berikut ini tepat diantara Private Sub Command1_Click() dengan End Sub :

Dim url As String Dim buka url = Text1.Text buka = ShellExecute(Me.hwnd, "Open", url, "", App.Path, 1)

• Running form tadi, kemudia ketikkan URL yang ingin sobat buka melalui Textbox kemudian klik Button GO dan lihat hasilnya.

Jika sobat masih bingung, silakan download contoh project nya melalui link berikut ini :

Sekian dulu posting saya yang berjudul Cara Menjalankan/Mengeksekusi Link Dari Program Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.