-->

Mebuat ShellExecute Di vb


Membuat shellexecute di vb

Hai Sob Ketemu lagi nih kali ini gua akan posting tentang Membuat shellexecute di vb gak pake lama langsung aja 


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 Long
Dim 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 Sub
Dan 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

Note: Only a member of this blog may post a comment.