Cara Membuat Browser Sendiri Dengan Visual Basic 0.6 Simple & Mudah

Cara Membuat Browser Sendiri Dengan Visual Basic 0.6 Simple & Mudah

Punom Xp - Hai semua! Kali ini admin akan mengajarkan kepada kalian bagaimana cara membuat browser sendiri, jadi kita bisa sedikit berkarya dan bisa di pamerin ke teman. Ingat ini hanya browser simple dan tidak seperti Mozilla/Chrome. Jadi tidak sebagus kedua browser tersebut. Tapi gapapakan? Yang penting ini hasil karya sendiri dan tanpa ada campur tangan orang lain. Yaudah Begini caranya :

Alat & Bahan :

• Visual Basic 0.6
• Cemilan / Kopi biar ga ngantuk.

Cara Membuat : 
1. Buka Visual Basic 6 nya. Trus pilih Standard Exe.
2. Selanjutnya Pilih menu Project > Componet.
3. Setelah itu pilihlah komponen seperti di bawah ini : 

• Microsoft HTML Object Library
• Microsoft Internet Control
• Microsoft Windows Common Control 6.0

4. Setelah itu siapkan :

- 2 Label
- 1 Text box
- 6 Button
- 1 Webbrowser
- 1 Progress Bar

5. Saya sarankan tata nya seperti gambar dibawah ini :

6. Setelah itu klik kanan pada tulisan "Form1 (Form1.frm)" dan pilih tulisan "View Code"

7. Kemudian paste kan kode di bawah ini :

Private Sub back_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub 

Private Sub exit_Click()
Unload Me
End Sub 

Untuk Button Forward :

Private Sub forward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub 

Private Sub home_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub

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

Private Sub refresh_Click()
On Error Resume Next
WebBrowser1.refresh
End Sub

8. Jika sudah, klik file > Make Project1.exe

9. Selesai deh ^^ Mudah sekali bukan?

Nb : 

• Jika masih ada error silahkan hubungi admin

Semoga Bermanfaat :)

Budayakan hidup berkomentar ya!

Regards

From : Gidhan

Share this

Share on FacebookPlus on Google+