Membuat shellexecute di vb
1. Buka VB 6.0 Anda2. Pilih Standart EXE
3. Lalu Masukin COde ini ke dalam Form
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 LongDim X As String
Langkah yang ke empat yaitu kalian buat sebuah prosedure (agar lebih mudah dalam pemanggilan)….
Sub buka()
Dim link As Long
link = ShellExecute(0, vbNullString, X, “”, “”, vbNormalFocus)
End Sub
Selanjutnya kalian ketikkan pada event Label Click pada form dan masukan kode berikut :
Private Sub Label1_Click()
X = “http://hamzahfansyuri560.blogspot.com” Alamat webnya terserah Waang
Call Buka
End SubDan langkah final,yaitu membuat evek pada saat mouse memasuki atau berada di label tsb,maka tulisan di label berubah warna (seperti evek hover di link web site)
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbGreen
End Sub
3. Lalu Masukin COde ini ke dalam Form
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 LongDim X As String
Langkah yang ke empat yaitu kalian buat sebuah prosedure (agar lebih mudah dalam pemanggilan)….
Sub buka()
Dim link As Long
link = ShellExecute(0, vbNullString, X, “”, “”, vbNormalFocus)
End Sub
Selanjutnya kalian ketikkan pada event Label Click pada form dan masukan kode berikut :
Private Sub Label1_Click()
X = “http://hamzahfansyuri560.blogspot.com” Alamat webnya terserah Waang
Call Buka
End SubDan langkah final,yaitu membuat evek pada saat mouse memasuki atau berada di label tsb,maka tulisan di label berubah warna (seperti evek hover di link web site)
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbGreen
End Sub
Nb: Label1 itu hanay CONTOH Kalau Mau Buat sendiri dengan label