Anasayfa > Kodlar > Visual Basic 6 ile Çalışma-Zamanlı(Run-time) nesne yaratmak

Visual Basic 6 ile Çalışma-Zamanlı(Run-time) nesne yaratmak

forma çalışma anında da kontroller eklenebilir. çalşıma-zamanlı kontrol ekleme iki yol kullanılarak yapılır.

1. Yol - kontrol dizisi(control array) kullanarak kontrol yaratma

bu metot kullanılarak kontrol oluşturmak için, öncelikle bir kontrol dizisi oluşturulmalıdır.
bunun için kontrolden en az bir tane forma eklenmelidir ve bu kontrole bir index değeri verilmelidir.
örnek:
forma bir adet command butonu ve bir adet text kutusu yerleştirerek Text kutusunun index değerini 0 yapalım. Text1  TextBox dizisinin bir elemanı oldu, bundan sonra load ifadesi ile kontrol yaratılabilir.


Private Sub Command1_Click()
Load Text1(1)
Text1(1).Visible = True
Text1(1).Top=text1(1).Top + Text1(1).Height
Text1(1).Text="Yeni Textbox"
End Sub

daha fazla kontrol eklemek için,


Private Sub Command1_Click()
for i=1 To 10
Load Text1(i)
Text1(i).Visible = True
Text1(i).Text="Yeni Textbox" & i
Text1(i).Top=text1(i-1).Top + Text1(i).Height
Next
End Sub

burada yaratılan textbox'ın özellikleri forma ilk eklenen textbox'ın özellikleri ile aynı olacaktır.

2. Yol - Kontrol kolleksiyonunu(controls collection) kullanarak kontrol yaratma

Kullanımı daha kolaydır fakat anlaşılması açısından zordur. forma tasarım modunda kontrolü eklemeye gerek yoktur.

örnek:
forma sadece bir adet command butonu ekleyerek şu kodları yazalım


Private Sub Command1_Click()

Dim kontrol As Control

Set kontrol = Form1.Controls.Add("VB.TextBox", "Text1", Form1)
kontrol.Visible = True

End Sub

daha fazla kontrol eklemek için,


Private Sub Command1_Click()
Dim kontrol(10) As Control
For i = 1 To 10
Set kontrol(i) = Form1.Controls.Add("VB.TextBox", "Text" & i, Form1)
kontrol(i).Visible = True
kontrol(i).Text = kontrol(i).Name
If i > 1 Then kontrol(i).Top = kontrol(i - 1).Top + kontrol(i - 1).Height
Next
End Sub


TD Software


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

Bir Yanıt Bırakı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: