Minggu, 04 Maret 2012

BIKIN MOZILA SEDERHANA DENGAN VBS 6

oh langsung saja
yang dibutuhkan
vb6
pertama
masukan 6 Comand Button ke form
dan berinama seperti berikut



☻ Back Diberi Nama = cmdBack
capation =back
☻ Forward Diberi Nama = cmdForward
capation =forward
☻ Refresh Diberi Nama = cmdRefresh
capation =refresh
☻Stop Diberi Nama = cmdStop
capation =stop
☻ Home Diberi Nama= cmdHome
capation =home
☻ Go Diberi Nama= cmdGo
capation =go
☻1 Text Box Diberi Nama txtURL☻
capation=kosongkan
☻1Web Browser ☻



ko ga ada ada ko caranya
(Tekan ctrl+T di VB Cari Microsoft Internet Control trus Di Centang) Diberi Nama wWeb
selesai deh tinggal masukan code nya code nya di bawah ini

Private Sub cmdBack_Click()
wWeb.GoBack
End Sub
Private Sub cmdForward_Click()
wWeb.GoForward
End Sub
Private Sub cmdGo_Click()
wWeb.Navigate (txtURL.Text)
End Sub
Private Sub cmdRefresh_Click()
wWeb.Refresh
End Sub
Private Sub cmdStop_Click()
wWeb.Stop
End Sub
Private Sub Form_Load()
wWeb.Navigate ("http://buricak-burinyay.net/")
End Sub
Private Sub Home_Click()
wWeb.GoHome
End Sub
Private Sub wWeb_StatusTextChange(ByVal Text As String)
txtURL.Text = (wWeb.LocationURL) Form1.Caption = (wWeb.LocationName)
End Sub

NB.kalo error mungkin ada nama yang salah dan bisa mengakibatkan error
dan jika error trus mungkin di komputer agan belum meng instal Microsoft Office Word

PERLENGKAPAN CARI SENDIRI YAHH

 
Loading...
arifinzyt. Diberdayakan oleh Blogger.

Translate