Jumat, 22 Juni 2012

Home » » Membuat Link Di Visual Basic Dengan Fungsi ShellExecute

Membuat Link Di Visual Basic Dengan Fungsi ShellExecute

Bagi para programmer yang newbie, ada baiknya mempelajari cara ini bila ingin membuat teks label yang mengarah ke url tertentu.
Kebetulan gue dapet dari google nih, langsung aja deh.

  1. Tambahkan Label pada Form
  2. Membuat fungsi ShellExecute, salin kode dibawah
  3. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long
    Dim X As String
     
  4. Membuat object general untuk membuka link, salin kode dibawah
  5. Sub OpenLink()
    Dim link As Long
    link = ShellExecute(0, vbNullString, X, "", "", vbNormalFocus)
    End Sub
  6. Double klik pada Label dan masukkan kode di bawah
  7. Private Sub Label1_Click()
    X = "http://senaaa.tk"   'Ganti url disamping dengan url Anda
    Call OpenLink
    End Sub
  8. Masih di Label, cari procedure MouseDown, lalu salin kode di bawah
  9. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbBlue
    End Sub
  10. Kalau sudah selesai jalankan programnya ;)

0 Komentar:

Poskan Komentar

Subscribe My Article via Email

Enter your email address:

Sena Aji Buwana

Twitter Delicious Facebook Digg Stumbleupon Favorites More