Buat Vb 6 menjadi Web Browser

Halooooo,, kawan dumay semua, kali ini ane mau berbagi kepada kawan-kawan yang cantik cakep semua. Bukan berbagi duit yaah ! hehe, maksudnya berbagi ilmu dikit tentang membuat visual basic 6 menjadi web browser, seperti web browser lainnya tuh. Ayo ikuti langkah berikut ini :

1. Seperti biasa buat 1 form baru untuk web browsernya
2. Ctrl+T pilih Microsoft internet controls untuk menampilkan dalam toolbox komponen Webbrowser

 

3. buatlah 4 objek commandbutton, 1 label, 1 textbox, 1 image, dan 1 webbrowser

 dan desain lah web browser seperti contoh gambar dibawah ini :

4. Masukan Koding Listing pada :
~tombol BACK
     On Error Resume Next
     WebBrowser1.GoBack

~tombol FORWARD
    On Error Resume Next
    WebBrowser1.GoForward 

~tombol REFRESH
    On Error Resume Next
    WebBrowser1.Refresh

~tombol STOP
    On Error Resume Next
    WebBrowser1.stop

~tombol FORWARD
    On Error Resume Next
    WebBrowser1.navigates=text1.text

~WeBrowser dengan Event ProgressChange
   Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    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

~ Form Event Resize
    Private Sub Form_Resize()
    On Error Resume Next
    WebBrowser1.Width = Me.ScaleWidth
    WebBrowser1.Height = Me.ScaleHeight - 1680
    End Sub  

~Form Event Load
  Private Sub Form_Load()
  WebBrowser1.Navigate ("www.google.co.id")
  End Sub 

Capek juga ngetik kodingnya.. hehe..
Ok3y Kawan Dumay........ Semoga Bermanfaat.. _Salam_Berbagi_
Maaf, jika banyak salah kata....

Read More

Animasi Form Vb 6

Hai Guys, kali ini ane akan membahas tentang cara membuat animasi form gerak pada visual basic 6.0, ok3y guys kita cekidot aja !....
Ikuti langkah-langkahnya yah :) :

1. Buatlah 1 form baru untuk animasi form gerak

 

2. Tambahkan objek commandbutton

Object	Name
commandbutton	cmdcancel

3. Masukan code listing pada tombol cmdcancel

4. Buat listing animasi dalam form dgn event unload

kode gambar diatas merupakan kode animasi gerak form dari gerak ke atas, bawah, kanan dan kiri. (untuk mencoba beberapa jenis gerak, silahkan hapus tanda petik agar kode berfungsi)

Selamat Mencoba

~ Semoga Bermanfaat ~

_Salam_Berbagi_ :-D

Read More