Evet arkadaşlar, kimsenin yazmaması iyi olmuş bylece AddHandler olayını da anlatabileceğim aynı başlık altından =) ncelikle nedir, ne işe yarar diye soran olursa onu cevaplayayım. AddHandler, eklediğimiz kontrolün tepki vermesi içindir diye zetleyebilirim. Malumunuz, kontrollerin Eventleri var. Textbox_Textchanged, Button_Click gibi. AddHandler sayesinde de, dinamik olarak eklediğimiz kontrollere bu zelliği katabiliriz. formumuza bir adet textbox, bir adet de buton ekleyelim. Form'un kod sayfasına girelim, Public Class Form1 yazan satırın hemen altına; Private WithEvents btn As New Button Private WithEvents web As New WebBrowser Private WithEvents yeni As New Form kodlarını yazalım. Bu şekilde sonradan dinamik olarak ekleyeceğimiz Form, Buton ve WebBrowser'ı tanıtmış oluyoruz. Neyse; Şimdi de forma eklemiş olduğumuz Buton'un kodlarına geçelim. yeni = New Form web = New WebBrowser btn = New ButtonBunları, Button_Click event'inde yani buton'a tıklayınca kullanacağımız için Button'ın Click eventi altına yazıyoruz. web. Navigate(TextBox1. Text) web. Dock = DockStyle. Bottom yeni. Controls. Add yeni. Text = TextBox1. Text yeni. Show Yukarıdaki satırlarda, web isimli yeni browserımızın tarayacağı sayfayı ve zelliklerini belirliyoruz. Yazdığımız kodun zeti; yeni bir form oluşturması, bu formda bir browser olması, ve bu browser'ın TextBox1 de yazdığımız sayfayı gstermesi. Bu haliyle de kullanabilirsiniz tabi. Yok eğer ben yeni sayfaya bir de buton eklemek ve butona tıklandığında sayfanın kodlarını almak istiyorum diyorsanız altta anlatacaklarımı da okuyun =). Şimdi, biz bu btn nesnesini uygulama çalışırken ekleyeceğimiz için çift tıklayı girip kod yazma gibi bir durumumuz olamayacak. Bundan dolayı her şeyi nceden ayarlamamız gerek. Bunu nasıl yapacağız peki? Anlatıyorum. Button1_Click event'i altına yazmaya devam ediyoruz. AddHandler btn. Click, AddressOf btn_tikla Bu ne anlama geliyor? Bu şu anlama geliyor. btn'ın, Click Event'inde yapacaklarını, btn_tikla altında anlatacağım. o halde hemen bir btn_tikla sub'ı oluşturmamız gerek. Onu da oluşturalım. Private Sub btn_tikla Handles btn. Click Parantez içindeki yazıları Button1_Click eventinden kopyalayabilirsiniz. Sadece Handles btn. Click kısmını değiştiriyoruz. Hangi nesnenin hangi Event'i için kullanacaksak onu yazıyoruz. kod satırına ise; MsgBox yazarak, bize browser'ın sayfa kodunu gstermesini sağlıyoruz. Çok iyi anlatamamış olabilirim. Takıldığınız yerleri sormaktan çekinmeyiniz. Bu da Form'un tüm kodu; Public Class Form1 Private WithEvents btn As New Button Private WithEvents web As New WebBrowser Private WithEvents yeni As New Form Private Sub Button1_Click Handles Button1. Click yeni = New Form web = New WebBrowser btn = New Button web. Navigate(TextBox1. Text) web. Dock = DockStyle. Bottom yeni. Controls. Add yeni. Text = TextBox1. Text btn. Text = "kodları al" yeni. Controls. Add yeni. Show AddHandler btn. Click, AddressOf btn_tikla End Sub Private Sub btn_tikla Handles btn. Click MsgBox End SubEnd Class

arkadaşlar merhaba. Uzunsayılabilecek bir süredir VB 6 da çalışıyordum ancak VB. Net e geçtim Bugüne kadar kullanmadığım, ğrenmediğim, şimde de ğrenince neden kullanmadığım için kendime svdüğüm nesne ekleme olayını anlatacağım. Forma bir adet button ekleyin. uygun yerlere aşağıdaki kodu yazın. Şimdi kodu inceleyelim. Public Class Form1 Dim fff As New Form Dim ddd As New Label Private Sub Button1_Click Handles Button1. Click fff = New Form ddd = New Label ddd. Text = "melaba" fff. Controls. Add fff. Show End SubEnd Class kodumuz bu. Şimdi inceleyelim, kurcalayalım. dim fff as new Form. bu satırda, adı fff olan yeni bir form tanımlıyoruz. dim ddd as new label bu satırda, adı ddd olan yeni bir label nesnesi tanımlıyoruz. button'un click olayına; fff = new form ddd= new label yazarak, ekleyeceğimiz fff ve ddd nesnelerini button'un click olayına tanımlıyoruz. ddd. text="melaba" satırında, ddd'nin text değerini belirliyoruz. burada "melaba" olarak şeyettim. daha sonra ise; fff. controls. add diyoruz. Bu komut, fff olarak belirlediğimiz yeni forma, ddd olarak belirlediğimiz label'i eklememizi sağlıyor. fff. show satırında ise fff formunu bize gstermesini sylüyoruz. bu kadar. button'a tıkladığımızda yeni bir form açılacak ve "melaba" yazan bir label greceğiz. Başlangıç için bunu anlatmak istedim. Event ekleme, nispeten karmaşık kullanımı falan ilerleyen zamanlarda anlatacağım. Esas olay şu; dim zamazingo as new hedehd yazıp, kullanacağımız zaman da zamazingo = new hedehd gibi tanımlama yapmamız gerek. Daha sonra bunu istediğimiz amaç için şekillendirebiliriz.