Membuat Hyperlink Email & Situs Menggunakan VB 6.0


Assalamualaikum

Posting kali ini saya akan share bagaimana cara membuat hyperlink (tautan) untuk email dan sebuah situs, jadi cara kerjanya seperti ini pada saat form di running akan muncul nama situs dan email sesuai dengan yang kita tuliskan di codingnya pada saat kita klik situsnya atau emailnya akan terbuka secara otomatis tertarik?? Oke berikut step by stepnya.

1. Buat project baru, lalu desaign formnya dengan menambahkan 2 label dan beri nama pada labelnya (lblemail & lblsitus) seperti gambar di bawah ini

2. Kalau sudah berikut listing untuk formnya

'Deklarasikan fungsi API untuk mengeksekusi suatu 'Hyperlink
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  'Konstanta untuk menampilkan 'jendela normal

Private Sub Form_Load()  'Tampilkan nama untuk setiap 'label
  lblEmail.Caption = "z.k.alqarany@gmail.com"  'Email
  lblEmail.Font.Underline = True
  lblEmail.ForeColor = vbBlue  'Warna link mula-mula
  'biru
  lblSitus.Caption = _
  "http://www.google.com" 'Situs
  lblSitus.Font.Underline = True
  lblSitus.ForeColor = vbBlue  'Warna link mula-mula
 'biru
End Sub

Private Sub lblEmail_Click()
  Dim email As Long
  'Tampilkan program default untuk mengirim e-mail ke
 'alamat lblEmail
  email = ShellExecute(0, vbNullString, _
         "mailto:" & lblEmail, "", "", vbNormalFocus)
  lblEmail.ForeColor = &H8000& 'Setelah diklik, berubah
                               'warna
End Sub

Private Sub lblSitus_Click()
  Dim situs As Long
  'Tampilkan program default untuk membuka situs ke
 'alamat lblSitus
  situs = ShellExecute(0, vbNullString, _
          lblSitus, "", "", vbNormalFocus)
  lblSitus.ForeColor = &H8000& 'Setelah diklik, berubah
 'warna
End Sub



Kalau sudah tinggal di running deh lalu klik coba pada labelnya semoga bermanfaat ^_^

 

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: