Pertama-tama, buka aplikasi Visual Basic 6.0 . Kemudian pilih Standard.EXE untuk merancang aplikasi baru. Setelah muncul form baru, kita terlebih dahulu membutuhkan komponen tambahan. Caranya, tekan Ctrl+T dan pilihlah komponen seperti dibawah ini:
- Microsoft HTML Library
- Microsoft Internet Control
- Microsoft Windows Common Control 6.0
Kemudian siapkan komponen-komponen yang diperlukan seperti dibawah ini:
- 1 Label
- 6 Command Button
- 1 Text Box
- 1 Web Browser
- 1 Progress Bar
Dan rancanglah form seperti gambar dibawah ini:
Kemudian ketikkan code berikut:
Tombol Go:
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub
Tombol Home:
Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub
Tombol Refresh:
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub
Tombol >:
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
Tombol <:
Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Tombol Exit:
Private Sub Command6_Click()
Unload Me
End Sub
Web Browser1:
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading... " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub
Jika sudah, jalankan program tersebut dengan menekan F5 pada keyboard.
Semoga Bermanfaat!!!
Time Published : 07.25 WIB.
Rating : 7/10.
Rating : 7/10.