Merhaba... Bugün yeni bir yazı tipi ile karşınızdayım... Evet bugün bir webbrowser yapacağız... Nasıl mı? Öncelikle bu konu ne kadar az çok programlama bilmek gerektiren bir şeyse de, yine de bu yazı sonrasında, bir webbrowserımız olacak...
~Malzemeler~
-
Bir adet, Visual Basic 2005
-
Bir adet, kaynak (o da burası)
-
Son olarak, kurlu olan Internet Explorer
~Yapılışı~
~V. B. 2005 Paketinden çıkan malzemelerin hazırlanışı~
- Bir combobox, 6 adet buton ve bir adette ContextMenuStrip çıkartılır
- Güzelce yerleştirilir.
~Pişirelimm..~
Evet her şey hazır. Öncelikle, contextmenustrip'i form'a bağlayalım. Form1'in üzerine tıklayın. Properties kısmında ki, ContextMenuStrip'e tıklayın. Daha sonra, forma'a eklediğiniz contextmenustrip1'i seçin. Bu kadar. Bu arada ona tıklayıp istediğiniz menüyü yerleştirin. Mesela iki şey hakkında ve çıkış.
Çıkış ve hakkında yazdığınızı farz edersek...
Hakkında'ya çift tıklayın ve şu kodları yazın..
MsgBox("Web Browser" + Chr(13) + "Yapımcı, 'isminiz' 2008", MsgBoxStyle.Information, "Hakkında")
Çıkış'a tıklayın ve şu üç harfi girin..
End
Şimdi ise, butonların text kısımlarına şunları yazalım; İleri, Geri, Git, Yenile, Dur, Ana sayfa... Yazdıkdan sonra bunları yazalım..
DUR için;
(not, webbrowser'ın ismini text kısmından browser1 yapmanız daha kolay kavramanıza yardımcı olur, ben öyle yaptım
)
browser1.stop()
---------------------------------
Yenile için;
browser1.refresh()
---------------------------------
Ana Sayfa için;
browser1.gohome()
---------------------------------
Geri için;
if browser1.goback=0 then
MsgBox("Kardeş, geri-gidecek sayfa yok!", MsgBoxStyle.Exclamation, "Ger-Gitme!")
else
browser1.goback()
end if
----------------------------------
Aynısını ile ileri için, yapın. Ama back yeri goforward yapın..
----------------------------------
Son olarak da GİT evet bunu da yapalım yazımızı noktalayalım..
If ComboBox1.Text = "" Then
MsgBox("Lütfen adresi yazın!", MsgBoxStyle.Exclamation, "Adres Yok!")
Else
Browser1.Navigate(ComboBox1.Text)
End If
------------------------------------------------
Evet bu kadar teşekkürler... Kafanıza takılan bir yer olursa, ya da yanlış çalışmayan bir yer, yorumlar da belirtin. Teşekkürler...