Cara Memasukkan Link Ke dalam Aplikasi Vb6

Seperti biasa buka atau buat dulu projectnya pada visual basic, caranya buka visual basic pilih Run Visual Basic kemudian pilih Standard EXE dan Open.Kemudian setelah muncul silahkan klik 2x pada form / daerah yang abu-abu dan masukkan kode berikut ke dalam General, caranya pada kotak bagian ujung kiri bisa di ganti ke General jelasnya lihat screenshot berikut:








Setelah itu tetap pada bagian general masukkan kode berikut:

      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 Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _
    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As Long
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Pastikan semuanya sama seperti di bawah ini:


Setelah di pastikan sama close form codenya dan buat satu command button bebas pakai label juga boleh seperti ini tinggal di klik Command Button lalu di gambar ke dalam form :


Pastikan command button sudah kalian buat, contoh seperti ini :


Kemudian klik 2x pada command1 dan masukkan kode berikut ke dalamnya tinggal di paste saja.

ShellExecute Me.hwnd, "Open", "http://www.kenhondar.blogspot.com", vbNullString, vbNullString, 3

Ganti yang saya underline dengan link yang kalian mau, pastikan sama semuanya seperti ini setelah di paste:


Nah bagian Coding sudah selesai, sekarang kita ubah nama command1 nya menjadi nama yang kalian mau caranya: klik pada command1 ingat kliknya 1x saja dan pada panel di samping bagian Caption hapus nama command1 dan ubah sesuai dengan nama yang kalian mau.


Maka akan jadi seperti ini

Nah untuk mencobanya cukup mudah kalian tinggal tekan tombol F5 pada keyboard kalian dan lihat hasilnya, Have Fun!

2 Responses to "Cara Memasukkan Link Ke dalam Aplikasi Vb6"