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 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 ble 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 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 = TrueText1(1). Top=text1(1). Top + Text1(1). HeightText1(1). Text="Yeni Textbox"End Subdaha fazla kontrol eklemek için, Private Sub Command1_Click for i=1 To 10Load Text1 Text1 . Visible = TrueText1 . Text="Yeni Textbox" & i Text1 . Top=text1(i-1). Top + Text1 . HeightNextEnd Subburada yaratılan textbox'ın zellikleri forma ilk eklenen textbox'ın zellikleri ile aynı olacaktır.2. Yol - Kontrol kolleksiyonunu 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ımPrivate Sub Command1_Click Dim kontrol As ControlSet kontrol = Form1. Controls. Add("VB. TextBox", "Text1", Form1)kontrol. Visible = TrueEnd Subdaha fazla kontrol eklemek için, Private Sub Command1_Click Dim kontrol(10) As ControlFor i = 1 To 10Set kontrol = Form1. Controls. Add("VB. TextBox", "Text" & i, Form1)kontrol . Visible = Truekontrol . Text = kontrol . NameIf i > 1 Then kontrol . Top = kontrol(i - 1). Top + kontrol(i - 1). HeightNextEnd Sub internet blümünden visual basic blümüne taşındı hile ile iş yapan, minnet için can verir, namusa hürmet eden, NESLİNE ŞEREF VERİR

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