- 27 Ocak 2007
- 3,178
- 1
- 603
(VB 6.0 ile runtimeda kontrol kopyalamak) index olayını .net 2005 ile programlama yaparken unutun...Bunda index denen olay yoktur...Hatta öyle ki.. kopyalayacağınız kontrolü daha önceden forma yerleştirmemiş olmanız gerekiyor.kopyalamak istediğiniz kontrolü öncelikle formun declare bölümüne eklememiz gerekecek.Örnekle daha iyi anlayacaksınız.Mesela bir button kontrolünü kopyalamak istiyoruz.
'Declare bölümüne
Dim B(100) as button
yazdığımız zaman 100 adet buttonun formda olabileceğini kodumuzla belirtiyoruz.Yalnız buda yeterli değil.Me.Controls.Add(nesnemiz) kodunuda eklememiz gerekir ki ; bu çoğaltılacak nesnenin Formun bir elemanı olduğunu belirtir.Örneğin formun load olayına...
------------------------------------------------------------------------------------------------
dim b(100) as button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
for i = 1 to 100
me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
next i
end sub
--------------------------------------------------------------------------------------------------------
Bu kodu yazdığımızda form açılınca yan yana 100 tane buttonumuz olacak.
Bunların özelliklerini nasıl kullanacağımıza gelince... .Net 2005 bizim için AddHandler olayını vermiş.Yani kontrolün hangi özelliğini kullanmak istiyorsak o özelliğe AddHandler eklememiz gerekiyor.Örneğin yukarıdaki koda AddHandler ekleyelim
------------------------------------------------------------------------------------------------
dim b(100) as button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
for i = 1 to 100
me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
AddHandler b(i).Click, AddressOf ButtonSeçim
next i
end sub
Sub ButtonSeçim(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Buraya button tıklanınca devreye girmesini istediğimiz koldar gelecek
'örneğin ;
msgbox(sender.text)
End Sub
--------------------------------------------------------------------------------------------------------
Burada çok önemli bir nokta (ByVal sender As System.Object, ByVal e As System.EventArgs) kısmını herhangi bir buttonun click olayıyla aynı olmalı.Birtek bu kontrol için değil... hangi kontrol kopyalanırsa kopyalansın orijinaliyle aynı olmalı.
Burada "sender" ve "e" olayları da çok önemli.sender ; bu olayı hangi kontrolün gönderdiğini belirtir ve hangi kontrol göndermişse onun yerine geçer.yani bu , şu işe yarar.Eğer 100 tane buttonunuz warsa ve 72. buttona tıklamışsanız.b(72) demektir sender... Yani yukarıdaki kodu kullanıp herhangi bir buttona tıklarsanız... Hangisine tıklamışsanız onun index değerini Gaspar Le Marc : "index" olarak gösterecektir.
'Declare bölümüne
Dim B(100) as button
yazdığımız zaman 100 adet buttonun formda olabileceğini kodumuzla belirtiyoruz.Yalnız buda yeterli değil.Me.Controls.Add(nesnemiz) kodunuda eklememiz gerekir ki ; bu çoğaltılacak nesnenin Formun bir elemanı olduğunu belirtir.Örneğin formun load olayına...
------------------------------------------------------------------------------------------------
dim b(100) as button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
for i = 1 to 100
me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
next i
end sub
--------------------------------------------------------------------------------------------------------
Bu kodu yazdığımızda form açılınca yan yana 100 tane buttonumuz olacak.
Bunların özelliklerini nasıl kullanacağımıza gelince... .Net 2005 bizim için AddHandler olayını vermiş.Yani kontrolün hangi özelliğini kullanmak istiyorsak o özelliğe AddHandler eklememiz gerekiyor.Örneğin yukarıdaki koda AddHandler ekleyelim
------------------------------------------------------------------------------------------------
dim b(100) as button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
for i = 1 to 100
me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
AddHandler b(i).Click, AddressOf ButtonSeçim
next i
end sub
Sub ButtonSeçim(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Buraya button tıklanınca devreye girmesini istediğimiz koldar gelecek
'örneğin ;
msgbox(sender.text)
End Sub
--------------------------------------------------------------------------------------------------------
Burada çok önemli bir nokta (ByVal sender As System.Object, ByVal e As System.EventArgs) kısmını herhangi bir buttonun click olayıyla aynı olmalı.Birtek bu kontrol için değil... hangi kontrol kopyalanırsa kopyalansın orijinaliyle aynı olmalı.
Burada "sender" ve "e" olayları da çok önemli.sender ; bu olayı hangi kontrolün gönderdiğini belirtir ve hangi kontrol göndermişse onun yerine geçer.yani bu , şu işe yarar.Eğer 100 tane buttonunuz warsa ve 72. buttona tıklamışsanız.b(72) demektir sender... Yani yukarıdaki kodu kullanıp herhangi bir buttona tıklarsanız... Hangisine tıklamışsanız onun index değerini Gaspar Le Marc : "index" olarak gösterecektir.