Başlangıç > Kodlar > VB6 ile runtimeda nesne kopyalamak

VB6 ile runtimeda nesne kopyalamak

Vb ile yapılan islemlerii runtimeda nesne kopylanması

(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.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: