Cara Membuat Link Pada Vb6


Kali ini saya akan membagikan source kode yang di gunakan untuk membuat link dan caranya, oke kalo begitu langsung saja.

Klik dual kali pada sembarang form pada masuk dan ganti ke bagian GENERAL terdapat pada bagian kiri atas kemudian pilih dan masukkan saja kode berikut ke dalamnya
      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
Setelah itu pilih mana yang ingin di klik untuk masuk ke link kamu, bisa Label atau Button, kemudian masukkan kode ini ke label atau button yang telah anda siapkan.
ShellExecute Me.hwnd, "Open", "http://www.kenhondar.blogspot.co.id", vbNullString, vbNullString, 3
Oke segitu saja mudah bukan? di simpan saja di notepad kode di atas jika sewaktu-waktu kalian membutuhkannya tinggal di selipkan saja.. hehe..

3 Responses to "Cara Membuat Link Pada Vb6"