Membuat Hyperlinks di Visual Basic 6.0

Disini kita akan belajar membuat link yang dapat menghubungkan ke alamat situs atau menampilkan program berformat EXE pada Visual Basic 6.0.
Berikut trik pembuatannya :
1. Buka Program Visual Basic 6.0 yang ada di komputer dan kita mulai dengan form baru.
2. Buat 3 komponen CommandButton di dalam area form. Dan ubah propertis Name masing-masing menjadi link.
3. Ubah propertis Caption masing-masing tombol seperti gambar berikut.

4. Selanjutnya tuliskan kode perintah seperti berikut ini pada bagian General.


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
Const SW_SHOWNORMAL = 1


Pada perintah tersebut mendeklarasikan fungsi API dan mendeklarasikan variabel konstan SW_SHOWNORMAL untuk menentukan hasil dalam menampilkan jendela aplikasi.


Selanjutnya tuliskan kode perintah seperti berikut ini pada bagian prosedur Link_Click. 

Private Sub link_Click(Index As Integer)
  Select Case Index
  Case 0
    result = ShellExecute(Me.hwnd, vbNullString, _
    "http:\\www.arizpk.blogspot.com", vbNullString, _
    vbNullString, SW_SHOWNORMAL)
  Case 1
    result = Shell("rundll32.exe shell32.dll," & _
    "Control_RunDLL", 5)
  Case 2
    result = Shell(App.Path & "\namaprogram.exe", 5)
  End Select
End Sub

Pada kode tersebut melakukan perintah kondisi lebih dari satu berdasarkan patokan index pada masing-masing tombol.
Jika Case 0 (index = 0) tombol link www.arizpk.blogspot.com diklik, maka akan dibuat link ke alamat http://www.arizpk.blogspot.com dengan menggunakan perintah API.
Jika Case 1 (index = 1) tombol Open Control Panel diklik, maka file rundll32.exe shell32.dll, Control_RunDLL akan dipanggil untuk menampilkan jendela Control Panel.
Jika  Case 2 (index = 2) tombol Open File EXE diklik, akan ditampilkan file bertipe exe yang ada pada perintah tadi. namaprogram (yang tercetak merah) silahkan diganti dengan nama program yang akan dibuka, dan harus berada dalam satu folder yang sama dengan program yang telah kita buat ini.


5. Untuk mencobanya, tekan tombol F5 pada keyboard.



Sekian tutorial ini. Semoga bermanfaat.
Ditulis Oleh Aris Pujud Kurniawan

Posted in: Visual Basic,Visual Basic 6.0