ibarat yang kita ketahui website yaitu sebuah halaman yang berisikan sebuah informasi, baik tutorial, berita, dongeng dan hal hal lainya, pada aktivitas kali ini kita akan menciptakan sebuah aktivitas dimana kita dapat membuka sebuah website dengan mengklik tombol di aktivitas visual basic. Baiklah berikut tutorialnya :
1. Buka VB dengan project standar exe
2. Tambahkan 1 label, 1 text box dan 2 command button, ubah propertienya sehingga ibarat ini :
| Tool Box | Properties | Description |
| Form1 | Start Up | Center Screen |
| Label 1 | Caption | Website Address |
| Text 1 | Text | (Blank) |
| Command 1 | Caption | OPEN |
| Command 2 | END | |
| All | Font Size | 10 |
3. Buka Form Code kemudian tuliskan scrip berikut :
Option Explicit
Option Explicit
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
4. Jika sudah, tambahkan script berikut untuk membuka website
Public Function OpenUrl(addres As String, WindowState As Long) As Long
Dim Blues As Long
Dim Pedia As Long
'Buka Alamat Website
Pedia = ShellExecute(Blues, "open", addres, vbNullString, vbNullString, WindowState)
OpenUrl = Pedia
End Function
5. Klik 2 kali command1 kemudian tuliskan scrip berikut :
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Silahkan Isi Form Terlebih Dulu !", vbInformation, "Routeros Mikrotik"
Else
Dim BP As Long
Dim address As String
Dim url As String
url = "http://" & Text1.Text
address = Trim(url)
BP = OpenUrl(address, 1)
End If
End Sub
6. Begitu juga dengan command2,
Private Sub Command2_Click()
End
End Sub
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. Jika sudah, tambahkan script berikut untuk membuka website
Public Function OpenUrl(addres As String, WindowState As Long) As Long
Dim Blues As Long
Dim Pedia As Long
'Buka Alamat Website
Pedia = ShellExecute(Blues, "open", addres, vbNullString, vbNullString, WindowState)
OpenUrl = Pedia
End Function
5. Klik 2 kali command1 kemudian tuliskan scrip berikut :
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Silahkan Isi Form Terlebih Dulu !", vbInformation, "Routeros Mikrotik"
Else
Dim BP As Long
Dim address As String
Dim url As String
url = "http://" & Text1.Text
address = Trim(url)
BP = OpenUrl(address, 1)
End If
End Sub
6. Begitu juga dengan command2,
Private Sub Command2_Click()
End
End Sub
7. Silahkan jalankan dan coba programnya,
Tuliskan alamat website yang akan anda buka, untuk format penulisanya, cukup tuliskan namawebsite.domain, misalnya routerosmikrotik.net atau google.com,
kalau sudah silahkan klik command1 "OPEN", maka otomatis web browser (default) akan aktif dan membuka halaman website yang dituliskan.
Sekian tutorial kali ini
biar bermanfaat
Comments
Posting Komentar