Başlangıç > Kodlar > Visual Basic 6 ile Web browser

Visual Basic 6 ile Web browser


Basit bir internet tarayıcısı

'Forma
'1 Adet toolstrip,1 Adet statusstrip,2 Adet timer,1 Adet web browser

'toolstrip üzerinde 1 Adet geri butonu,1 adet ileri butonu,1 adet adres yazılı label,1 Adet textbox,1 adet git butonu
'Statusstrip üzerine ise 1 Adet label ve 1 Adet progressbar ekliyoruz.

'toolstrip üzerindeki textboxın name özelliğine adre adını veriyoruz.
'statusstrip üzerindeki labelın name özelliğine setiket progressbarında name özelliğineyse bar adını veriyoruz.
'webbrowserın name özelliğinede web adını veriyoruz.

'Formun load olayına
timer1.stop()
timer2.stop()

'menustripteki git butonuna
web.navigate(adres.text)
bar.visible=true
bar.value=0
timer1.start()

'toolstripteki geri butonuna
web.goback

'toolstripteki geri butonuna
web.goforward

'Timer 1 ye
bar.value=bar.value + 1
if bar.value=100 then bar.value=0

'timer 2 ye
bar.visible=false
timer2.stop

'eklediğimiz web browserın üzerine çift tıklayarak
bar.value=100
timer2.start()
timer1.stop()
setiket.text=adres.text & "Adresi yüklendi"
me.text=web.documentitle.tostring
adres.text=web.url.originalstring


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: