selamat soree... pada kesempatan kali ini saya akan memberikan tutorial membuat browser dengan vb6 perhatikan ya...
1. Pertama buka VB6 anda jika tidak punya silahkan klik
link ini
2. Setelah terbuka pilih Standard EXE
3. lalu anda tekan Ctrl+T di keyboard anda maka akan ada pilihan lalu cari dan pilih yg saya ceklis, lalu klik apply atau klik ok
4. Lalu Desain formnya seperti gambar
5 Lalu masukan kode berikut pada form
Untuk Back :
Webbrowser1.GoBack
Untuk Forward :
Webbrowser1.GoForward
Untuk Refresh :
Webbrowser1.Refresh
Untuk Stop :
Webbrowser1.Stop
Untuk Go :
Webbrowser1.Navigate Text1.Tetxt
Untuk Resize Form :
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 10
dan tambahkan kode ini di browser anda
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
Select Case Command
Case 1 'Forward
Command2.Enabled = Enable
Case 2 'Back
Command1.Enabled = Enable
End Select
End Sub
selesai sekarang tinggal anda jalankan atau pencet F5
jika anda ingin menambahkan fitur pada browser anda silahkan pilih code dibawah ini untuk ditambahkan pada Browser anda
Zoom :
Paling Kecil :
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0), vbNull
Kecil :
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull
Medium :
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(2), vbNull
Besar :
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(3), vbNull
Paling Besar
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4), vbNull
JavaScript Handling :
Webbrowser1.Silent = True
Internet Options :
Shell "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl"
Search :
IntBrowser18.WebBrowser1(GetWebIndex).ExecWB OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER
Open New Window :
Dim Frm As Form1
Set Frm = New Form1
Dim ppDisp As Object
Set ppDisp = Frm.WebBrowser1.object
Frm.Show
Open File HTML :
With CommonDialog1
.DialogTitle = "Open File"
.Filter = "Web page (*.htm;*.html) | *.htm;*.html|" & _
"Gambar yang disupport formats|*.gif;*.tif;*.pcd;*.jpg;*.wmf;" & _
"*.tga;*.jpeg;*.ras;*.png;*.eps;*.bmp;*.pcx|" & _
"Text formats (*.txt;*.doc)|*.txt;*.doc|" & _
"All files (*.*)|*.*|"
.ShowOpen
.Flags = 5
WebBrowser1.Navigate2 .Filename
End With
View Source Code Page :
Dim Frm As frmPageCode
Dim tulis
tulis = FreeFile
Open App.Path & "\Code.INT" For Output As tulis
Print #tulis, Me.WebBrowser1.Document.documentElement.innerHTML
Close tulis
Set Frm = New frmPageCode
Frm.Caption = "Page Code"
Frm.Show vbModal
Paste :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DONTPROMPTUSER
Print Preview :
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
Propertis :
WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
Print :
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
Page Setup :
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
Select All :
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
Save As Page :
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
selesai.........
sekian dari saya klo lebihnya mohon maaf klo kurangnya silahkan cari digoogle :D
wassalamualaikum Wr.Wb