cara membuat aplikasi web browser pakai visual basic 6.0

Assalamualaikum wr.wb

            Kali ini saya akan membahas mengenai cara membuat aplikasi web browser pakai visual basic pertama anda harus mempersiapkan segalanya agar tidak jenuh berhadapan bersama komputer/laptop anda seperti :snac,kopi,susu,music sedikit .dan anda juga memerlukan perangkat keras maupun lunaknya yaitu :komputer 1 set lengkap,aplikasi visual basic 6.0 jika anda membelinya di gramedia maka anda harus membayar kira-kira sebesar 20.000.okai langsung saja pertama mari kita buka aplikasi Vbnya nah jika sudah terbuka maka akan tampil jendela seperti berikut ini :

Nah pilih standard exe dan kalau sudah klik open ,nah lankah selanjutnya adalah menambahkan komponen klik project lalu klik components atau tekan tombol ctrl+t maka ada jendela baru seperti ganbar berikut ini 

Nah sekarang kita ceklist yang disebut ya ,yang di ceklist antara lain :

-         Microsoft HTML object library

-         Microsoft internet control

-         Microsoft internet transfer control 6.0 (SP4)

-         Dan microsoft windows common control 6.0 (SP6)

Dan kalau sudah klik ok nah sekarang kita beralih ke penambahan komponen yang diperlukan untuk komponennya adalah sebagai berikut :

Yang diperlukan	banyaknya
Common button	5
Tex box	1
label	1
Webrowser	1
Proggress bar	1
scriptlet	1

Nah semuanya udah ditambahkan mari kita edit componen tadi mari kita simak :

Nama componen	Componen yang diedit/diganti	sara
Command1	caption	Back
Command2	caption	Forward
Command3	caption	Refresh
Command4	caption	Stop
Command5	caption	home
Label1	caption	done
Texbox1	none	none
Webrowser1	none	none
Scriptlet11	none	none
Progressbar1	none	none

Lalu kalau sudah masukin deh code berikut ini :

Private Sub Command1_Click()

WebBrowser1.GoBack

End Sub

Private Sub Command2_Click()

WebBrowser1.Refresh

End Sub

Private Sub Command3_Click()

WebBrowser1.GoForward

End Sub

Private Sub Command4_Click()

WebBrowser1.stop

End Sub

Private Sub Command5_Click()

WebBrowser1.navigate (Text1.Text)

End Sub

Private Sub Command6_Click()

WebBrowser1.navigate ("http:// google.co.id/")

End Sub

Private Sub Form_Load()

WebBrowser1.navigate ("http:// google.co.id/")

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 ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

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 WebBrowser1_StatusTextChange(ByVal Text As String)

Text1.Text = (WebBrowser1.LocationURL)

Form1.Caption = (WebBrowser1.LocationName)

Form1.Caption = WebBrowser1.LocationName + " -RBI TEcnology aplikasi web browser"

End Sub

nah itu dia script /codenya

Yang berwarna merah :itu tadi kalau kita buka web browser yang kita buat maka ia akan pergi ke alamat web tersebut.

Nah jika semuanya beres mari kita jalankan caranya klik start atau menekan tombol f5 maka semuanya akan seperti ini 

“peringatan”-jika ada tulisan yang berwarna merah di jendela view code harap di perbaiki atau kalau mengalami kesulitan bisa mengomentari post ini

Nah itu dari saya sekian cara membuat aplikasi web browser pakai VB ,nah jika anda ingin tahu aplikasi web browser buatanya saya busa mendownloadnya disini <tampilkan link unduh>