Membuat HyperLink Label Menggunakan Visual Basic 6

Mengenai cara membuat link label atau hyperlink label menggunakan VB6 - Link label atau hyperlink label merupakan label yang apabila diklik akan membuka browser dengan alamat website atau blog yang kita miliki. Bagaimana kode mengenai hiperlink label ini, berikut merupakan kode untuk membuat link label atau hyperlink label menggunakan Visual Basic 6:

'simpan kode ini pada module, atau satukan dengan form, jika ingin disatukan dengan form 
'gantilah Public menjadi Private 
Option Explicit 
 
Public 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 
Public Const SW_SHOW = 5 

contoh penggunaan fungsi API di atas:

'simpan kode ini pada form 
'gantilah label caption dengan alamat blog atau website 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    ShellExecute hwnd, "open", "http://khoiriyyah.blogspot.com", vbNullString, vbNullString, SW_SHOW 
End Sub 

Demikianlah mengenai cara pembuatan hyperlink label atau link label menggunakan Visual Basic 6. Selamat mencoba.

READ MORE - Membuat HyperLink Label Menggunakan Visual Basic 6

Membuat Label Yang Berkedip-Kedip

Bagaimana cara membuat label yang berkedip-kedip, simak kodenya di bawah ini:

Private Sub Form_Load() 
    Label1.Caption = "http://4basic-vb.blogspot.com" 
    Timer1.Interval = 300 
End Sub 
 
Private Sub Timer1_Timer() 
    Label1.Visible = Not Label1.Visible 
End Sub 

READ MORE - Membuat Label Yang Berkedip-Kedip