Cara membuat link ke email dan website (open link in browser) VB6

Berikut ini adalah cara membuat hyperlink ke alamat email dan situs (website) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 2 Label.
2. Beri nama label masing-masing lblEmail dan lblSitus
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

         'Jika Anda ingin agar ketika mouse berada di atas kedua label tersebut

          'berubah menjadi kursor bergambar tangan, set property MouseIcon saat
          'design-time dengan file icon bergambar tangan yang Anda miliki, dan
          'property MousePointer menjadi "99 - Custom".

          '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 = "masino_sinaga@yahoo.com"  'Email
            lblEmail.Font.Underline = True
            lblEmail.ForeColor = vbBlue  'Warna link mula-mula biru

            lblSitus.Caption = "http://www30.brinkster.com/masinosinaga/" '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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module