- Home >
- Tips and Trick >
- Cara Membuat Browser Sendiri menggunakan Visual Basic 6.0
Posted by : Unknown
Minggu, 08 September 2013
langsung aja siapkan bahannya :
- Visual Basic 6.0
Cara :
- Buka Visual Basic 6.0 yang udah didownload
- Buat 1 Project Baru
- Pilih Standard EXE
- Klik CTRL + T
- Maka akan ada tampilan seperti ini
- Pilih/Centang
a. Microsoft HTML Object Library
b. Microsoft Internet Control
c. Microsoft Windows Common Cotrol 6.0
- Klik Apply dan Klik Close
- Siapkan :
a. 2 label
b. 1 text box
c. 5 Command button
d. 1 WebBrowser
e. 1 Progress Bar
- Gue saranin Atur kayak gini :
- Ganti Captionnya : ( Command 1 : GO
Command 2 : Kembali
Command 3 : Maju
Command 4 : Refresh
Command 5 : Stop
Label 1 : Http://
Label 2 : Loading Bar)
- Masukin Code ini :
Untuk Button Kembali :
Private Sub back_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
---------------------------------------------------------------------------------------------------------------
-Untuk Button GO :
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub
---------------------------------------------------------------------------------------------------------------
-Untuk Button Maju :
Private Sub Maju_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
---------------------------------------------------------------------------------------------------------------
-Untuk Button Stop :
Private Sub Stop_Click()
On Error Resume NextWebBrowser1.Stop
End Sub
---------------------------------------------------------------------------------------------------------------
-Untuk Button Refresh :
Private Sub refresh_Click()
On Error Resume Next
WebBrowser1.refresh
End Sub
---------------------------------------------------------------------------------------------------------------
-Klik 2x di web browser dan masukan code di bawah ini :
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 = "Loading Bar"
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
- Klik F5 untuk mencoba project berhasil atau tidak.. jika berhasil klik File --> Make Project1.exe
jika berhasil project akan seperti ini
Klik Disini untuk download browser bikininan gue :D
{ 17 komentar... read them below or Comment }
DILARANG KOMENTAR SEBAGAI BERIKUT :
- RUSUH
- MENGANDUNG UNSUR SARA
- MENGANDUNG KATA KASAR
KOMENTAR LAH DENGAN KATA-KATA YANG BAIK + SOPAN
Boss Kok kgk Bisa di MakePRoject ???
BalasHapusmungkin masih ada yang salah.. coba cek lagi
HapusSudah benar semua boss tapi tetep gak bisa di makeProject, ituh knpa yah tolong dong solusinya
HapusVB nya cacat kali ..
Hapuscoba install ulang VB nya ..
@Anonim : Key Reg "Allow EXE Creation" nya belum di set,Saja bisa og !
BalasHapuscara ganti comand bgmn
BalasHapuspunten mas gmncara masukin kodenya?
BalasHapusThanks Sob berguna Banget.... :D
BalasHapusIzin Comot Gan Hihihihi ^_^
BalasHapusBisa ga pake ponsel.?
BalasHapusmin di gue ga ada Progress Bar itu gmna ?
BalasHapuszzzz ane lagi mau contreng Microsoft HTML Object Library, Microsoft Internet Control, Microsoft Windows Common Cotrol 6.0
BalasHapusmalah kluar notif erorr
ieframe.dll << ane udah tambahin manual ke system32 tetep juga ga bisa :D
Wih makasih ka infonya. kapan"buat ah :D
BalasHapusGan biar tampilan awal browser search engine google gimana scriptnya?
BalasHapusGan biar tampilan awal browser search engine google gimana scriptnya?
BalasHapusmas apakah ini menggunakan data bases
BalasHapusImage1 itu yang mana ya kak?
BalasHapus