Ana içeriğe atla

Visual Basic ile sekmeli WebBrowser

Visual Basic ile sekmeli WebBrowser




Öncelikle Normal Butonları Ekleyelim BACK,FORWARD vs.. (Bunları Fotolarla Yaparsanız Daha Güzel Olur.) 1 Adet Progressbar, 1 Adet TabSript Ekleyelim. WebBrowserda Sayfamızın Yüklenişine Göre ProgressBar Yüklensin Diyorsanız Formun Boş Kısmına ;
Kod:
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100
        Label1.Caption = "Bitti"
        ProgressBar1.Visible = False
        Image1.Visible = True
    If Progress > 0 And ProgressMax > 0 Then
        ProgressBar1.Visible = True
        Image1.Visible = False
        ProgressBar1.Value = Progress * 100 / ProgressMax
        Label1.Caption = "Yükleniyor..." & Int(Progress * 100 / ProgressMax) & "%"
    End If
    Exit Sub
End Sub

Yazıyoruz. Şimdi Gelelim Sekme Olayına Bunun İçin Formumuza Eklediğimiz TabStrip1'e Sağ Tıklayıp Propertiese Girelim Ordan Tabs 'a Tıklayalım. Caption : Yeni Sekme Key : yeni Yapalım. Sonra TabStrip1.Click() İçine ;
Kod:
TabStrip1.SelectedItem.Caption = WebBrowser1.L o c a t i o n Name (Boşlukları Silipde Yapın :)
Select Case TabStrip1.SelectedItem.Key

Case "Yeni"

WebBrowser1.GoHome



End Select

Kodunu Yapıştıralım. Daha Sonra Bir Command Daha Ekleyelim Ve Adını + Veya Yeni Sekme vs şey yazalım. Commandın Kodları İse ;
Kod:
TabStrip1.Tabs.Add.Caption = "Yeni Sekme "

Text1.Text = "about:blank"
WebBrowser1.Navigate Text1.Text
yenisekme.Left = yenisekme.Left + 1100[/QUOTE] Kendinize Göre Editleyebilirsiniz. Ve en çok karşılaşılan sorun Formu genişlettiğinde web browserin şeklinin bozulması bunun içinde formun boş bi yerine tıklayın ve [QUOTE]On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
TabStrip1.Width = Me.ScaleWidth
ProgressBar1.Left = Me.ScaleWidth - 1600

Yazın. WebBrowseriniz Hazır.
Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

Paraaaaaaaaaaaaaaaaaaaaaaaaaaaaa

şu uykulu halimle makaleyi yazıp bir an önce uyuyayım diyorum içimden ama olmaz çünkü artık her insan evladı gibi benimde artık uykumu düzene sokmam lazım sabah 6 da kalkıp akşam 8 de uyuyan kölelerden olmalıyım şu önümdeki 1-2 yıl kadar bildiğiniz gibi para olmadan wc yi bile kullanamadığımız için projeye para yetiştiremiyoruz kodumun ülkesinde yatırımcı bulmakda zor olduğu için kendi projemin parasını çıkartana kadar böyle devam. abi anlamıyorum böyle güzel projeler karanlıkda kalmamalı aydınlanmalı günde en az 2-3 özgün proje kuruyoruz kafamızda e hadi ne duruyoruz uygulayalım diyoruz ve sonuç hüsran neden çünkü paramız yok. çünkü fuckiriz en azından bi o projelerin zirvelere gelişini bi ucundan göreydik iyiydi.ne bileyim projenin hayata geçmesi bile yeterli gerçekten para kazanması umrumuzda bile değil çoğu projemizde evet para lazım geçinmeye lazım ekmeğa sigaraya çaya kahveye sekse diğer bütün gereksinim olarak hayatımıza soktuğum...
3 yorum
Devamı

Ceyhan Belediyesi Pentest

Adana Ceyhan Belediyesi Pentest Belediye ve gov tararken rasgeldi şifre yi kıramadım kendileri oluşturmuş sanırım. açığı bildirdim ve kapatıldı kapatıldıgına göre bunu yayınla mamın bi mahsur u yoktur umarım. Açıgın oluştugu link : http://www.ceyhan.bel.tr/haberler?id=3095%27 Sql syntax veya herhangi bi hata göremiyorum diyenler için haberler den birine tıklayın link in sonundaki id ye bi tırnak atın haber bölümü ndeki açıklama yerinde kırık resim linki olucak hata orada suan açık kapatıldı gerçi onu göremezsiniz ama yinede atayım dedim kolay gelsin. kadi                          sifre                             yetki alivre  f4afed1e4c5564ba798bf938891275c6  Adminstrator son kontrol lerimden sonra 4 açık daha buldum onları da bir ekliyeyim açıkları ben tekrar bildirdim onlar kapatana kadar burda gizlerim. 2. XSS XSS i E-belediye ...
3 yorum
Devamı

Eset Nod32 Hesapları Eset Nod32 Keyleri

ben eset kullanmayın derim ama yinede vereyim ha niye kullanmayın diyosun derseniz bilgisayarı acayip yavaşlatıyo onun yerine gidin avg kullanın avast kullanın ne bileyim hiç kullanmayın hatta windows defender bile yetiyo neyse en az 2 yıllık eset nod 32 hesapları yapışın Username – TRIAL-51656123 Password – sjobp5fgnu Valid Till – 07.03.2017 Username – TRIAL-50189673 Password – i26fdug4vo Valid Till – 21.06.2017 Username – TRIAL-54954109 Password – s27rfue1p6 Valid Till – 15.02.2017 Username – TRIAL-51361039 Password – gk2nrjydlq Valid Till – 21.06.2017 Username – TRIAL-57125513 Password – h4lasb7wtd Valid Till – 21.01.2017 both ess smart security and eav 8 keys : Username: EAV-0134434043 Password: 5u77n6x2hm Expiry Date: 15.03.2016 Username: EAV-0139062225 Password: dmdtpp3crd Expiry Date: 10.05.2016 Username: EAV-0146325437 Password: k7j7pxckhc Expiry Date: 17.11.2015 Username: EAV-0146325451 Password: fru6nbn4tr Expiry Date: 17.11.2015 Username: EAV-0146357998 Password: hx6stscr83 ...
3 yorum
Devamı