Cara membuat tombol yang menuju website anda

Pada siang hari ini saya akan membagikan ilmu sesuai judul,
Langsung saja,

Pertama buka VB6.0 anda (jika belum ada bisa search di google)
Kedua pada menu "New Project" pilih "Standard EXE"
kemudian masukkan code berikut kedalam CommandButton/label/image anda

OpenURL "http://www.nyit-nyit.net", Me.hwnd 'http://www.nyit-nyit.net bisa di ganti dengan website anda

Setelah itu buat 1modul baru dan isikan code berikut

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
Public Sub OpenURL(situs As String, sourceHWND As Long)
                Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub

Nb : Jika error bisa post di bawah dgn bukti SS

Socializer Widget By Blogger Yard

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →