HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Konu : Web Browser Yapımı.
Selamın Aleykum arkadaşlar,bu dersimizde Firefox,IE,Chrome,Opera gibi web browserleri yapmayı ele aldık.
Gerekli Programlar :
Visual Basic 6 [VB6]
Eğer Görsellik Kazandırmak İstiyorsanız Onun İçinde Paint Veya Diğer Çizim
Programları Yeterlidir.
İlk önce Visual Basic 6 [VB6] Açalım.
Sonra "Standard EXE" ye tıklayalım ve açalım.
Sonra sol üstte "General" yazan bir başlık var.Onun altındaki boş olan yerlerden herhangi birine gelerek sağ click'e tıklayın.Sonra "Components" e tıklayın.Açılan yerden "Microsoft Internet Controls" u bulup,yanındaki kutuya tik atıp "apply" e tıklayın.
Bu işlemleri yaptıktan sonra "General" sekmesine yeni bir eklenti gelecektir.Ona tıklayın ve form'unuza size uygun olan boyutlarla yerleştirin.Form un Yukarısına Normal Bir textbox'a yetecek kadar boşluk bırakın.Sonra yukarıya textbox'u yerleştirin ve yanlarına 5 tane buton ekleyin.Birisini textbox'un sağına koyun.(Görsellik katmak için resim eklemek isteyenler "General"ın hemen altındaki "PictureBox" u kullansın.Form'a "PictureBox"u ekleyince özelliklerinden(Properties) "Picture"yi bularak resim ekleyebilirler.)
Şimdi arkadaşlar geri butonuna(resmine) çift tıklayın.
kod bölümüne :
WebBrowser1.GoBack
yazın.
Sonra ileri butonuna(resmine) çift tıklayın.
On Error Resume Next
WebBrowser1.GoForward
yazın.
Yenileme butonuna(resmine) çift tıklayın.
WebBrowser1.Refresh
yazın.
Arama butonuna(resmine) çift tıklayın.
WebBrowser1.GoSearch
yazın.
"GİT" butonuna(resmine) çift tıklayın.
WebBrowser1.Navigate "http://" & Text1.Text
yazın.
Bunları yaptıktan sonra form'a çift tıklayın ve boş bir alana: (yani form un içine yazmayın)
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub
Şöyle bir genel baktığımızda herşey normal bir webbrowser e benziyor fakat daha hoş olsun diye çıkma işlemini engelledik xD.
şimdi GİT butonuna(resmine) çift tıklayın ve yazılı kodların aşağısından devam edin:
If Text1.Text = "cıkıs" & Text1.Text = "Cıkıs" & Text1.Text = "quit" Then Unload Me
Artık yorucu bir projenin sonu.Şimdi istediğiniz gibi gezin dolaşın.
Selamın Aleykum arkadaşlar,bu dersimizde Firefox,IE,Chrome,Opera gibi web browserleri yapmayı ele aldık.
Gerekli Programlar :
Visual Basic 6 [VB6]
Eğer Görsellik Kazandırmak İstiyorsanız Onun İçinde Paint Veya Diğer Çizim
Programları Yeterlidir.
İlk önce Visual Basic 6 [VB6] Açalım.
Sonra "Standard EXE" ye tıklayalım ve açalım.
Sonra sol üstte "General" yazan bir başlık var.Onun altındaki boş olan yerlerden herhangi birine gelerek sağ click'e tıklayın.Sonra "Components" e tıklayın.Açılan yerden "Microsoft Internet Controls" u bulup,yanındaki kutuya tik atıp "apply" e tıklayın.
Bu işlemleri yaptıktan sonra "General" sekmesine yeni bir eklenti gelecektir.Ona tıklayın ve form'unuza size uygun olan boyutlarla yerleştirin.Form un Yukarısına Normal Bir textbox'a yetecek kadar boşluk bırakın.Sonra yukarıya textbox'u yerleştirin ve yanlarına 5 tane buton ekleyin.Birisini textbox'un sağına koyun.(Görsellik katmak için resim eklemek isteyenler "General"ın hemen altındaki "PictureBox" u kullansın.Form'a "PictureBox"u ekleyince özelliklerinden(Properties) "Picture"yi bularak resim ekleyebilirler.)
Şimdi arkadaşlar geri butonuna(resmine) çift tıklayın.
kod bölümüne :
WebBrowser1.GoBack
yazın.
Sonra ileri butonuna(resmine) çift tıklayın.
On Error Resume Next
WebBrowser1.GoForward
yazın.
Yenileme butonuna(resmine) çift tıklayın.
WebBrowser1.Refresh
yazın.
Arama butonuna(resmine) çift tıklayın.
WebBrowser1.GoSearch
yazın.
"GİT" butonuna(resmine) çift tıklayın.
WebBrowser1.Navigate "http://" & Text1.Text
yazın.
Bunları yaptıktan sonra form'a çift tıklayın ve boş bir alana: (yani form un içine yazmayın)
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub
Şöyle bir genel baktığımızda herşey normal bir webbrowser e benziyor fakat daha hoş olsun diye çıkma işlemini engelledik xD.
şimdi GİT butonuna(resmine) çift tıklayın ve yazılı kodların aşağısından devam edin:
If Text1.Text = "cıkıs" & Text1.Text = "Cıkıs" & Text1.Text = "quit" Then Unload Me
Artık yorucu bir projenin sonu.Şimdi istediğiniz gibi gezin dolaşın.
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
