Cara Membuat Browser Sederhana Dengan Visual Basic

Siang sobat blogger

Postingan kali ini yaitu Cara membuat browser sederhana. .
Udah bosen banget dengan mata kuliah hari ini jadi ane gunain aja waktunya buat posting hehehe . .




Yaudah langsung saja..
1.Buka vb nya trus pilih standar EXE

2.Klik Cttrl+t

3.Kemudian ceklis pada Microsoft html object library, Mirosoft internet controls, Microsoft Windows common control 6.0

4.Buat 5 comman buton, 1 text box, 1 label, 1WEbbrowser, 1proggress bar, 

Setelah semua selesai di desain masukan kode di bawah ini dengan cara klik kanan pada form lalu view code

Private Sub Command1_Click()

On Error Resume Next

WebBrowser1.GoBack

End Sub

Private Sub Command2_Click()

On Error Resume Next

WebBrowser1.GoForward

End Sub

Private Sub Command3_Click()

On Error Resume Next

WebBrowser1.Refresh

End Sub

Private Sub Command4_Click()

On Error Resume Next

WebBrowser1.Stop

End Sub

Private Sub Command5_Click()

On Error Resume Next

WebBrowser1.navigate Text1.Text

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 Form_Resize()

On Error Resume Next

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - 1680

End Sub

Jika sudah lalu runing atau tekan F5

Ini yang sudah di gunakan

Download Browser yg sudah jadi DI MARI

Selamat menncoba sob . .

JIka tidak berjalan silahkan coment.

oke sekian dulu p0stingan dari ane mau makan siang dulu niihh . . .

TRimakasih