1. Buka Visual Basic 6.0 dan buatlah sebuah form.
2. Buat 6 CommandButton, 1 TextBox, 1 WebBrowser. Untuk memasukkan WebBrowser ke dalam form, Klik menu project, lalu centang Microsoft Internet Controls > OK
3. Ganti caption pada CommandButton menjadi seperti berikut, dan kosongkan teks di dalam TextBok.
Command1
= Back
Command2
= Forward
Command3
= Stop
Command4
= Refresh
Command5
= Home
Command6
= GO
4. Lalu masukkan kode berikut.
Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command3_Click()
WebBrowser1.Stop
End Sub
Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub
Private Sub Command5_Click()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
Private Sub Command6_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command3_Click()
WebBrowser1.Stop
End Sub
Private Sub Command4_Click()
WebBrowser1.Refresh
End Sub
Private Sub Command5_Click()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
Private Sub Command6_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
5. Selanjutnya
program tersebut kita buat menjadi file ".exe"
Klik File > Make Project1.exe > Tentukan lokasi penyimpanan > OK.
Klik File > Make Project1.exe > Tentukan lokasi penyimpanan > OK.
DI BAWAH INI APILIKASINYA BISA DI DOWNLOAD :

No comments:
Post a Comment