iyi akşamlar arkadaşlar,

ben 1 aydır visual basic öğreniyorum(zorunlu ders). ama çok uğraşmama rağmen şunu beceremedim:

Mesela resimdeki button1 e her basışımızda yeni bir buton üretecek teker teker şu kod bir tane üretiyor fakat button1 e tekrar bastığımda üretmiyor loop döngüsü filan mı olacak?

Istemiş olduğun buton ekleme özelliğini for-next döngüsü haricinde loop döngüsü yapabilir sanırım iç içe döngü kullanılması gerekli ama ben bunu visual studio 2008 de beceremedim onun yerine daha zor ve uzun olan bir yöntem ile yaptım. Yani el ile döngü (manuel loop) yöntemi ile. Yani bir döngüyü yazamadıysak onun yerine döngüyü kendimiz oluştururuz. Hiç birşey imkansız değildir sonuçta.

Öncelikle foruma 6 (çoğaltılabilir) tane aynı boyuta ve aynı isme sahip olan buton ekledim ve bunları sanki tek bir butonmuş gibi üst üste hizaladım isimden kasıt name parametresi değil text parametresidir. isimlerin aynı olmasındaki maksat butonları her click te saklayıp bir alttaki butona geçicek olmamız. Böyle olunca alttaki butonun ismi ve boyutuda aynı olduğu için buton gizlediğimiz belli olmayacak. kodları incelersen daha iyi anlarsın ne demek istediğimi.

Bunların yanında gereksiz yere bellekte fazla yer kaplayacak double yerine integer (tamsayı) kullandım ayrıca yine gereksiz olan me fonksiyonunu da kaldırdım.
eğer eklenicek buton sayısını artırmak istersen üst üste dizdiğimiz butonların üstüne bir buton daha ekle ve kodlamasını aynen yukardakiler gibi yap ancak for i = 0 to x burdaki x değerini 1 azaltmalısın.

Eğer illaki do-loop döngüleri kullanman istenmiyorsa bu fonksiyon çok rahat işini görecektir.


Kodlar:

PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 5 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
'burada hide ile buto gizlemedik cunki son butonumuzu ekledikten sonra baska buton eklemiyecegimiz icin artik sabit kalmasini istiyoruz.
EndSub


PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 4 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
Button2.Hide() 'bu butonu kullandik ve isimiz bittigi icin bunu gizleyip alttaki buton ile devam ediyoruzz (manuel loop)
EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 3 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
Button3.Hide() 'bu butonu kullandik ve isimiz bittigi icin bunu gizleyip alttaki buton ile devam ediyoruzz (manuel loop)
EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 2 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
Button4.Hide() 'bu butonu kullandik ve isimiz bittigi icin bunu gizleyip alttaki buton ile devam ediyoruzz (manuel loop)
EndSub

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 1 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
Button5.Hide() 'bu butonu kullandik ve isimiz bittigi icin bunu gizleyip alttaki buton ile devam ediyoruzz (manuel loop)
EndSub

PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim i AsInteger
Dim j AsNew Button()
For i = 0 To 0 'her seferinde 1 artarak en alttaki butona dogru ulasilir
Controls.Add(j)
j.Show()
j.Top = i * 25
j.Name = "Button" & i
j.Text = j.Name
Next
Button6.Hide() 'bu butonu kullandik ve isimiz bittigi icin bunu gizleyip alttaki buton ile devam ediyoruzz (manuel loop)
EndSub
EndClass




Herhangi bir sorunla karşılaşırsan burdan belirtebilirsin. Kolay gelsin.

__________________

Kodlar çalışıyor kısıtlı da olsa manual döngü yaratıyor...

Tek butonla otomatik döngüyü artık ileride olur....

""Yardımın için çok teşekkür ederim""

Evet kısıtlı bir manuel döngü var ama eklemek istediğimiz buton sayısıda kısıtlı. 100 falan olmadıkça sorun olmaz. ancak tabiki autoloop yapabıleydik daha güzel olurdu..

__________________

güzell bir anlatım..teşekür ederim...cok işime yaradı...ama
mesela buton1 e tıkladım bir buton olusturdu
tekrar buton1 e tıkladığımda yeni olusan butonun altına bir buton daha olusturacak...
nasıl yapabiliriz???