close
close

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
Membuat Link Alamat Situs dan File di Visual Basic 6.0, Download Program dan Source Coding Link Alamat Situs, Email dan File, program Virus Simulator, pointer mouse ke suatu link di web browser
 
2. Buatlah Label1 menutupi seluruh form dan usahakan Label2 berada di daerah Label1
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 :
Membuat Link Alamat Situs dan File di Visual Basic 6.0, Download Program dan Source Coding Link Alamat Situs, Email dan File, program Virus Simulator, pointer mouse ke suatu link di web browser

3. Buatlah sebuah modul dengan nama mdlShellExecute dengan 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
http://www.401xd.com maka akan berubah warna menjadi merah dan
‘ 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.


Bagaimana jika untuk link email. Ganti saja ShellExecute dengan sebagai berikut :
Call ShellExecute(Me.hWnd, "Open", "mailto:belajarcoding@ymail.com", vbNullString, "c:\", 1)

Coba ganti dengan perintah yang lain.
Misalnya untuk menjalankan aplikasi Task Manager.
Call ShellExecute(Me.hWnd, "Open", "taskmgr", vbNullString, "c:\", 1)

Berikut beberapa dari daftar program yang dapat dijalankan dengan ShellExecute :
Microsoft Word          winword
Notepad                      notepad
Wordpad                     wordpad
Windows Explorer      explorer
MS Paint                     mspaint
Task Manager             taskmgr
Microsoft Excel          excel
MS Config                  msconfig
Registry Editor           regedit
Calculator                   calc

Membuat Link Alamat Situs dan File di Visual Basic 6.0, Download Program dan Source Coding Link Alamat Situs, Email dan File, program Virus Simulator, pointer mouse ke suatu link di web browser


Terima kasih semoga bermanfaat.

Tag : Membuat Link Alamat Situs dan File di Visual Basic 6.0, Download Program dan Source Coding Link Alamat Situs, Email dan File, program Virus Simulator, pointer mouse ke suatu link di web browser.