Hyperlinks
Trik berikut akan
mengajarkan anda bagaimana membuat link yang menghubungkan ke alamat situs atau
menampikan program bertipe EXE.
1.
Buka program Visual Basic 6.0 dan
mulailah dengan form baru.
2.
Masukkan tiga komponen CommadButton ke dalam area form dan ubah
propertis Name pada amasing-masing
komponen menjadi link.
3.
Ubah propertis Caption masing-masing tombol seperti yang terlihat pada gambar
dibawah ini :
4.
Selanjutnya klik ganda pada salah satu
tombol dan ketiklah perintah di bawah ini pada bagian General dan prosedur link_Click.
1
2
|
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
|
3
4
5
6
7
8
9
10
11
12
13
|
Private
Sub link_Click(Index As Integer)
Select
Case Index
Case
0
result = ShellExecute(Me.hwnd,
vbNullString, "http:\\www.google.co.id", vbNullString,
vbNullString, SW_SHOWNORMAL)
Case
1
result = Shell("rundll32.exe
shell32.dll," & "Control_runDLL", 5)
Case
2
result = Shell(App.Path & "\form
transparan.exe", 5)
End
Select
End
Sub
|
5.
Untuk mencobanya, silahkan anda tekan F5.
EmoticonEmoticon