Cara Membuat OpenURL Di Visual Basic 6.0 (VB6)

Assalamualaiakum Wr. Wb.

Selamat Sore para pengunjung Setia Dunia Rahul, Sudah lama kali ya, saya tidak posting di blog ini, soalnya saya tertalu banyak hal-hal penting di perkuliahan, yang mana mengerjakan Tugas, dan belajar untuk bisa melewati Ujian Semester nanti. Untung saja saya pada kali ini ada jam kosong, jadi saya sempat-sempatkan untuk memposting tentang Tutorial Visual Basic, kok jadi curhat jadinya langsung aja lah ya ke intinya, sekarang kita menuju Ke Laptop.

Kali ini Saya Menggunakan Versi Visual Basic 6.0 atau sering dibilang VB6, untuk lebih jelasnya ikuti langkah-langkah membuat OpenURL Di bawah ini.

1.      Pada Tab New Project, Pilih Standard EXE untuk memulai membuat applikasinya, lalu klik Open

2.      Ini adalah gambar awal untuk membuat Project Aplikasinya

  

3.      Nah Sekarang tinggal membuat tampilan dan tombol untuk membuat suatu aplikasi tadi

1)      Klik icon Picture Box untuk membuat layar background

2)      Klik icon Label untuk membuat keterangan suatu aplikasi tersebut

3)      Klik icon Command Button untuk membuat tombol akan kita gunakan untuk membuka suatu Link yang telah kita buat

4)      Klik icon Frame untuk membuat batas gari dan judul keterangan untuk tombol tersebut

4.      Sekarang kita ganti nama-nama seperti From1 sesuai yang ingin anda buat

Pada Angka 1,2,3,dan 4, ganti nama tersebut menggunakan Caption, seperti gambar yang dibawah ini yang berada di sebalah kanan bawah.

5.      Pada tombol command1 atau yang sudah saya edit menjadi Dunia Rahul, Double Klik Tommbol Tersebut sehingga keluar Tab Code untuk Command1,

Isi Command Tersebut dengan kode

Private Sub Command1_Click()

OpenURL "http://www.dunia-rahul.blogspot.com", Me.hwnd

End Sub

Nb: Pada tulisan berwarna Merah Anda bisa mengganti Alamat tersebut dengan Alamat Blog Anda

6.      Sekarang tambahkan Module untuk menambahkan code, supaya link yang kita buat bias terbuka di browser yang anda gunakan

Klik Tab Project à Add Module à Maka Akan keluar tab seperti di bawah ini à Lalu Open

 

7.      Nah Sekarang akan muncul tab Module1 (Code)nya.

1)      Pada Tab Module1 (Code), isikan Script tersebut

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

2)      Jika sudah mengisi Script tersebut, klik Start untuk menjalankan aplikasi yang sudah kita buat

8.      Nah Sekarang aplikasi yang kita buat, sudah bias dijalankan, sekarang tinggal mengikuti langkah selanjutnya. Klik Tombol Dunia Rahul, maka akan keluar situs blog yang kita buat tadi seperti gambar di bawah ini, pada gambar nomer 2.

Sekian dulu Postingan dari saya, semoga apa yang saya postingkan bisa bermanfaat bagi Anda pengunjung Setia Dunia Rahul.
Jika Anda mendapatkan pesan Error pada saat menjalankan aplikasi yang telah dibuat, berikan saran anda di komentar dibawah ini.

Wassalamualaikum Wr. Wb.