Kamis, 24 Juni 2010

Tips Visual Basic - Cara Membuka Sebuah Link Website dan Email

    
Form Visual BasicDalam sebuah program, sebaiknya kita ikut menyertakan halaman homepage situs atau alamat email kita di dalam form Info/About agar orang lain dapat mengakses alamat homepage tersebut jika ingin mendapatkan update atau info terbaru tentang program. Namun, bagaimana caranya agar saat user meng-klik link website pada form, kemudian program browser (IE, firefox, Opera, atau yang lain) jalan secara otomatis untuk membuka link website tersebut seperti pada gambar di samping ini? Atau membuka program Outlook Express atau Thunderbird saat user meng-klik alamat email kita? Berikut ini caranya:

Teks berisi link website atau alamat email bisa menggunakan kontrol Label. Label tersebut diubah property-nya agar berwarna biru layaknya sebuah link di browser seperti gambar di atas. Selanjutnya untuk event-nya menggunakan event click. Berikut ini kodenya: (di sini saya menggunakan label bernama Label_Link dan Label_Email).

Option Explicit

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 Sub Label_Email_Click()
    ShellExecute hwnd, "open", "mailto:tipsdaninfoku@abcdefg.com", _
    vbNullString, vbNullString, 1
End Sub

Private Sub Label_Link_Click()
    ShellExecute hwnd, "open", "http://tipsdaninfoku.blogspot.com/", _
    vbNullString, vbNullString, 1
End Sub

Pada kode di atas, kode berwarna biru adalah fungsi API Windows, kode ini harus ada agar bisa jalan. Selanjutnya kode berwarna merah adalah alamat email dan alamat website. Saat label email diklik, maka program pembuka email (yang default) akan berjalan dan membuka alamat email tersebut. Dan jika label link diklik, maka browser (IE, firefox, Opera, atau yg lain) akan berjalan membuka alamat URL tersebut. Alamat URL harus diawal dengan http:// atau https://, sedangkan alamat email harus diawali dengan mailto:.

Artikel Lain Yang Berkaitan:

Diposting oleh Asri di 11.44
Label:

4 komentar:

  1. Unknown28 Maret 2013 pukul 21.58

    gan kalonya VB 2010 gimn caranya??, apakah sama codingnya dengan VB6??

    BalasHapus
    Balasan
    1. Asri17 Maret 2014 pukul 17.07

      maaf banget baru reply sekarang. coding di atas memang untuk vb6. dan untuk vb 2010 yang menggunakan vb.net saya kurang jelas apa masih bisa menggunakan fungsi API di atas atau tidak.

      tapi untuk vb.net bisa menggunakan fungsi "Process.Start(url)" contohnya:

      Process.Start("http://www.tipskomputer33.com/")

      atau

      Dim url As String = “http://www.tipskomputer33.com“
      Process.Start(url)

      Hasilnya akan membuka url tersebut menggunakan browser default. misalnya kalo yg default adalah firefox maka akan terbuka di firefox.

      Hapus
  2. Unknown17 Maret 2014 pukul 10.23

    gan kode 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 masukin dimana ya

    BalasHapus
    Balasan
    1. Asri17 Maret 2014 pukul 17.23

      agan masih pakai vb6?
      kalau masih pakai vb6, kode deklarasi fungsi API tersebut dimasukkan ke posisi paling atas. Tekan CTRL+HOME lalu letakkan di situ. kalau ada teks "Option Explicit" maka letakkan di bawahnya seperti pada kode di atas. Kalau agan mendapatkan error, coba ganti "Private" menjadi "Public". Kalau masih error juga, coba buat "Module" baru, lalu masukkan ke dalam Module tersebut.

      Kalau agan menggunakan vb.net coba gunakan:

      Process.Start("http://www.tipskomputer33.com/")

      jadi fungsi API tersebut tidak diperlukan lagi.

      Hapus

Langganan: Posting Komentar (Atom)