Cara Membuat Aplikasi Browser dengan Visual Basic 6.0
Handaru | Cara
Membuat Aplikasi Browser dengan Visual Basic 6.0 – hi, gan. Setiap hari
surfing web ke seluruh dunia dengan aplikasi browser yang saya gunakan sehingga
saya ingin membuat aplikasi browser saya sendiri dengan tampilan yang saya
inginkan sehingga aplikasi browser yang saya buat lebih nyaman digunakan dibanding
aplikasi yang lain, membuat aplikasi browser anda bisa membuatnya dengan
program delphi, c++, vb.net atau yang lainya. Di tutorial kali ini saya akan
menjelaskan cara membuat aplikasi browser dengan visual basic 6.0 atau vb.net,
di program yang saya tutorialkan hanya aplikasi sederhana dan saya hanya
menjelaskan yang dasar-dasar juga penting.
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
End Sub
Membuat aplikasi browser ini anda bisa menggunakan visual
basic 6.0 portable atau visual studio, oke langsung saja tutorialnya.
Pertama – jalankan
visual basic > pilih standard exe > open
Kedua – di
toolsbar klik kanan > pilih components atau yang lebih cepat ctrl+T
Ketiga – di tab
controls pilih atau centangi beberap nama tools :
·
Microsoft HTML Object Library
·
Microsoft Internet Control
·
Microsoft Windows Common Control 6.0
Kemudian, klik ok.
Keempat :
§
buatlah 2 buah label
§
Tambah 1 text
box
§
Tambah 5 command
button
§
tambah 1 web
browser
§
tambah 1 progress
bar
Kelima – di properties ganti caption :
o
command1 = GO,
o
command2 = kembali,
o
command3 = maju,
o
command4 = refresh,
o
command5 = stop,
o
Label1 = Http://
o
Label2 = Loading bar
Keenam – klik 2 kali button
kembali , ketikan script tsb :
Private Sub command2_Click()
On Error Resume Next
WebBrowser1.GoBack
On Error Resume Next
WebBrowser1.GoBack
End Sub
Klik 2
kali button go, copy-paste script
dibawah :
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub
Untuk Button Maju, copy-paste script dibawah :
Private Sub command3_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Untuk Button Stop , copy-paste script dibawah:
Private Sub command5_Click()
On Error Resume Next
End Sub
Untuk Button Refresh, copy-paste script dibawah :
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub
Untuk Button Maju, copy-paste script dibawah :
Private Sub command3_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Untuk Button Stop , copy-paste script dibawah:
Private Sub command5_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub
Untuk Button Refresh, copy-paste script dibawah :
Private Sub command4_Click()
On Error Resume Next
WebBrowser1.refresh
End Sub
On Error Resume Next
WebBrowser1.refresh
End Sub
Klik 2x
di web browser dan masukan script 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
End Sub
Kemudian
f5 , untuk menjalankan program borwser sederhana ini. Kemudian klik file >
make exe project1. Seperti yang saya screenshot dibawah browser sederhana yang
saya buat masih sederhana, sangat cepat dan belum didesain. Tapi walau
sederhana ini bisa untuk menambah ilmu tentang visual basic dan anda bisa
mengembangkan aplikasi browser ini agar lebih menarik. Oke tutorial membuat
aplikasi browser di visual basic 6.0 selesai menjadi aplikasi browser sederhana
dan walau tampilanya seperti internet explorer, dan semoga juga aplikasi ini
tidak terlalu lemot ketika dipakai :v .
Comments
Post a Comment