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

Error : Invalid Property Value pada ListView Vb 6

Hy.. Agan Dumay.. yg lagi surfing google.
Kali ini ane akan membahas tentang ListView pada Vb 6.  Kebetulan ane lagi pusing ngerjain tugas Dosen Matkul Visual Basic 6. Bingungnya ni,, saat menampilkan data dari database ke dalam ListView. Debug selalu,, error selalu,, pening ane. Pesan Errornya saat Run ("Invalid Property Value").

Ada gak yg pernah dapat kasus seperti itu ?.... Ya udah  dari pada pusing,, ane gunakan om jin google buat ngebantuin masalah debug nya..
Dan ternyata jawabannya ketemu !.. horeee...... hehehe :D ..
Katanya : Itu akibat ListViewnya gak ada Header.. makanya error..

Langkah yang simpel.. cukup agan klik kanan ListView..

lalu setting deh headernya... :

Klik tab coloumn header (1)... Insert Column (2).. beri nama header field (3).. atur lebar kolom (4).. lalu OK (5)...

Okey.. kawan.. semoga bermanfaat..

~Salam Berbagi~

Read More

Cerita BlogQ

       

 Manusia memiliki beberapa kelebihan dibandingkan dengan makhluk atau benda mati lain di bumi ini. Manusia adalah makhluk berfikir yang bijaksana (homo sapiens). Keunggulan manusia sebagai makhluk yang berbudaya dan beradab makin menjulang oleh ketekunannya memantau berbagai gejala dan peristiwa seantero alamnya. Setiap pengalaman manusia meninggalkan jejak berupa pengetahuan (knowledge). Hal inilah yang kemudian meningkatkan pengetahuan manusia sampai pada perwujudannya sebagai ilmu (science).

          So, belajarlah dari apa yang ada disekelilling mu, tak harus dibangku sekolah atau pun dibangku kuliah. Kehidupan adalah sekolah seumur hidup. Pengalaman adalah Guru terbaik sepanjang hidup, dan Masalah adalah Ujian hidup yang akan membawamu menjadi lebih baik dari apa yang kita bayangkan.

          Kata Orang Sukses "Kesuksesan itu dapat diraih dengan 99% Tindakan dan 1% Pemikiran". 

 "Salam Pengetahuan"

Read More