(-!!!-) Çalışma-Zamanlı(Runtime) Kontrol Yaratma

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

(-!!!-) Çalışma-Zamanlı(Runtime) Kontrol Yaratma

17/Tem/05 17:11 Kısayol Şikayet Özel Mesaj

No_ProbleM

Kayıt Tarihi: 11/Mart/2004

ya öncelikle tahribatın yeniden yayında olması konusunda emeği gecen herkeze tesekkür ediyorum ve bu baglamda eski bir tahribatcı olarak forumlardaki gereksiz (tartısma satasma vb)konularla tahribatı mesgul eden konulardan kacınalım diyorum

bırakalım bu ülkede hepimiz bir seyler için ugrasıyor bir emek harcıyoruz herkez işini yapsın kimse kimseye bir sey ıspatlamak mecburiyetinde değildir Unutmayalımki birlik olma zamanıdır böle konularla vakit kaybedecek bol zamanımız yok

VAKİT FORUMLARI HERKEZİN ARAYACAGINI BULACAGI BİR FORUM HALİNA GETİRME VAKTİDİR

-------------------------------xxx----------------------------------

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

*internet bölümünden visual basic bölümüne taşındı (ir)

hile ile iş yapan,minnet için can verir,namusa hürmet eden,NESLİNE ŞEREF VERİR

Alıntı yap
17/Tem/05 18:17 Kısayol Şikayet Özel Mesaj

ir2

Kayıt Tarihi: 10/Mayıs/2003

güzel bi kaynak özellikle vb'de scripting türü şeyler yazmak isteyen arkadaşlar için çok faydalı bi kod

Alıntı yap

Toplam Hit: 1916 Toplam Mesaj: 2

Cevapla