HYPERLINKS

Hyperlinks

Assalamualaikum, wr, wb...

Tentunya program aplikasi kita akan terlihat lebih menarik apabila pada program aplikasi kita tedapat hyperlinks yang menuju ke suatu situs tertentu atau juga bisa membuka Control panel system pada komputer anda. Karna itu simak Trik membuat Hyperlinks berikut ini :

1. Buka program Visual Basic anda, lalu buat form baru
2. Masukan tiga objek CommandButton
• Command1.Caption = www.bercode.blogspot.com
• Command2.Caption =Buka Control Panel
• Command3.Caption =Buka file EXE
3. Selanjutnya Double klik pada salah satu objek lalu masukan perintah dibawah ini pada bagian General dan Prosedur tombol klik.
4. 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
   
   Private Sub Command1_Click()
   result = ShellExecute(Me.hwnd, vbNullString, "https:\\bercode.blogspot.com", vbNullString, vbNullString, SW_SHOWNORMAL)
   End Sub
   
   Private Sub Command2_Click()
   result = Shell("rundll32.exe shell32.dll," & "Control_RunDLL", 5)
   End Sub
   
   Private Sub Command3_Click()
   result = Shell(App.Path & "\RifqiCellApplication.exe", 5)
   End Sub 

Wassalam.. n smoga bermanfaat..