Membuat Web Browser Sederhana Dengan VB 6

Selamat siang para blogger di seluruh indonesia, pada kali ini isengcom akan sharing bagaimana cara membuat web browser sederhana dengan VB 6.0 . langkah pertama yang harus disiapkan tentu saja Software Visual Basic 6.0 yang portable maupun yang tidak. kalau belum punya silahkan searching di mbah google.

selanjutnya buat form dengan nama terserah anda, kemudian tekan CTRL+T atau Pilih menu Project > Componet setelah itu pilihlah komponen seprti di bawah ini :

# Microsoft HTML Library
# Microsoft Internet Control
# Microsoft Windows Common Control 6.0
kemudian Klik apply

Setelah itu siapkan

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

Setelah itu ketikan kode di bawah ini :

Untuk Button Back—————————————————————————————
Private Sub back_Click()
On Error Resume Next
End Sub
Untuk Button Go—————————————————————————————
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub
Untuk Button Exit—————————————————————————————–
Private Sub exit_Click()
Unload Me
End Sub
Untuk Button Forward————————————————————————————
Private Sub forward_Click()
On Error Resume Next
End Sub
Untuk Button Home—————————————————————————————
Private Sub home_Click()
On Error Resume Next
End Sub
Kode untuk webbrowser———————————————————————————–
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
Untuk Button Refresh————————————————————————————–
Private Sub refresh_Click()
On Error Resume Next
End Sub

Sekian tutorial membuat web browser dengan vb 6.0, SELAMAT MENCOBA ๐Ÿ˜€



Add yours →

  1. Howdy I am so grateful I found your webpage, I really found you by mistake, while I was browsing on Aol for
    something else, Regardless I am here now and would just like to say many thanks
    for a fantastic post and a all round interesting blog (I also love
    the theme/design), I don’t have time to look over it all at the minute but I have saved it and also added in your RSS feeds, so when I have time I will be back to read much more, Please do keep up the awesome job.

  2. Pretty portion of content. I simply stumbled upon your website
    and in accession capital to claim that I get in fact enjoyed account your blog posts.
    Anyway I’ll be subscribing for your feeds and even I success you get admission to constantly quickly.

  3. you have an important weblog right here! would you wish to make some invite posts on
    my weblog?

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:


You are commenting using your account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: