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

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ı

Kali Linux Pulse Audio Sorunu

 kali linuxun son sürümünde bu pulse audio hatasını veriyordu yani hiçbir ses çıkış ayıgıtını ses giriş aygıtını göstermiyor çalıştırmıyordu  ses iconu sadece id şifre yazılan yerde görünüyor ve onunla kalıyor. peki bu sorunu nasıl çözeriz ; aşağıda verdiğim kodları terminale girerek bu sorunu çözebilirsiniz yalnız şöyle birşey var o ses veya hoparlor iconu gözükmüyor yine hiçbir şekilde sesi kısamıyorsunuz veya daha fazla açamıyorsunuz sadece o id şifre yazılan kısımda yapabiliyorsunuz ses açma kapama  işlemini. apt-get update rm -rf .pulse/ rm -rf .pulse-cookie rm -rf .config/pulse/  Etiketler: kali linux mikrofon çalışmıyor , kali linux ses gelmiyor , kali linux ses iconu yok , kali linux ses ikonu yok , kalilinux hoparlor çalışmıyor , pulseaudio ses gelmiyor
Yorum Gönder
Devamı

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ı