Yang Kita Butuhkan:
Visual Basic 6
Visual Basic 6
Cara Membuat:
1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.
2. Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan key Ctrl + T .
3. Kemudian Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4. Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.
2. Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan key Ctrl + T .
3. Kemudian Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4. Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
CommandButton Captionnya saya ganti dengan Back, Forward, Refresh, Stop dan Go.
Label caption saya ubah jadi done. Text box biarkan saja.
Sekarang Masukkan Kode berikut
Caranya: Double klik pada tool yang sudah kita buat
Back
On Error Resume Next
WebBrowser1.GoBack
Forward
On Error Resume Next WebBrowser1.GoForward
Refresh
On Error Resume Next WebBrowser1.GoRefresh
Stop
On Error Resume Next WebBrowser1.GoStop
Go
On Error Resume Next WebBrowser1.Navigate Text1.Text
Progress Bar
Langsung copy ke Form Code
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
Resize Form
Langsung copy ke form code
Private Sub Form_Resize() On Error Resume Next WebBrowser1.Width = Me.ScaleWidth WebBrowser1.Height = Me.ScaleHeight - 1680 End Sub
Pastikan
Pastikan sudah tak ada error :) alias di test / go
Compile
Tinggal di Compile deh :)
Jika ada yang ingin ditanyakan, lewat komentar ^^
Tweet
This comment has been removed by the author.
ReplyDeleteMakasih Tutorialnya gan :D pngen belajar VB
ReplyDelete