Artikel Terkait Tutorial VB6
Link merupakan suatu text yang dapat mengarahkan browser dalam suatu dokumen dengan dokumen yang lain. Link dapat berupa link yang mengarah pada alamat situs, email, ataupun file. Akan tetapi bagaimana jika link itu dipergunakan di visual Basic.
Ok. Begini, program yang akan kita buat di sini, pada hakikatnya adalah akan membuka browser default menggunakan perintah open dengan alamat tertentu. Dan tentu saja mempergunakan shell32.dll yang sudah terdapat pada system.
Lihatlah screenshot dari form about pada program Virus Simulator yang juga mengimplementasikan teknik kita kali ini, yang akan kita bahas.
Saat kursor mouse berada di atas link maka text akan berubah warna yang tadinya biru maka akan menjadi merah. Sedangkan kursor mousenya sendiri akan berubah bentuk menjadi gambar tangan.
Setidak-tidaknya teknik ini akan menghasilkan efek yang sama persis saat kita akan dan sedang mengarahkan pointer mouse ke suatu link di web browser. Hasil akhirnya adalah ketika kita meng-klik text link tersebut maka browser akan mengarah pada alamat yang sudah kita tentukan sebelumnya.
Berikut adalah Tutorial Membuat Link Alamat Situs dan File di Visual Basic 6.0
1. Sekarang bukalah ruang kerja VB 6.0. Coba buat form seperti berikut dan ubahlah nilai property sebagaimana yang terdapat pada table
Object | Properties | Value |
Form | Caption | Link Pada VB 6.0 |
Label1 | Caption | (kosongkan) |
Label2 | Caption | |
BackStyle | 0 - Transparant | |
ForeColor | &H00FF0000 (biru) | |
MousePointer | 99 - Custom | |
MouseIcon | (Cari icon, Misal gambar tangan) |
Maka form akan terlihat seperti berikut :
3. Buatlah sebuah modul dengan nama mdlShellExecutedengan isi sebagai berikut. Caranya pilih menu Project _ Add Module
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
4. Lalu pada label2 yang caption telah diubah menjadi Http://www.401xd.com, double klik dan ketikan kode berikut :Private Sub Label2_Click()
Call ShellExecute(Me.hWnd, "Open", "http://www.401xd.com", vbNullString, "c:\", 1)
End Sub
‘ Kode untuk membuka browser default dengan alamat http://www.401xd.com
‘ ketika Label2 di klik oleh user.
Setelah itu ketikan :
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF&
Label2.ToolTipText = "Virus Open Sources Site."
End Sub
‘ Kode agar ketika pointer mouse berada diatas Label2 yang ber-caption
‘ mengeluarkan ToolTip dengan isi ‘401XD Group Programming’.
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF0000
End Sub
‘ Kode agar ketika mouse pointer berada diatas Label1 atau berarti telah keluar atau
‘ tidak menyorot Label2 lagi maka akan mengubah Label2 menjadi warna biru kembali.
Sekarang coba jalankan dengan memilih menu Run _ start atau dengan menekan F5 pada keyboard. Lihatlah hasilnya.
Coba klik pada link yang telah dibuat dan lihat yang akan terjadi, Browser default anda akan terbuka dan mengunjungi alamat http://www.401xd.com.