2016-04-01 23 views
-1

VB.Net 2015 Klasik Biçiminde bir Panelin içine 25 Düğme koymaya çalışıyorum Resimdeki gibi ama işe yaramıyor. Lütfen yardımcı olabilir ... Benim kod feryatBir Panel İçindeki Düğmeleri Düzenleme vb.

Dim i As Integer 

    For i = 1 To 25 
     newButton = New Windows.Forms.Button 
     newButton.AutoSize = True 
     newButton.Name = "btnButton" & i 
     newButton.Text = "Button " & i 
     newButton.Top = i * 5 
     newButton.Left = i * 25 

     newButton.Size = New Size(95, 70) 

     AddHandler newButton.Click, AddressOf ButtonClicked 

     Panel1.Controls.Add(newButton) 

    Next 

enter image description here

+0

Ve "çalışmıyor" tam olarak ne anlama gelir:

İşte bu pasajı 5 sütun ve n sıralar halinde düzenlemek için nasıl anlatacağım? Muhtemelen çapraz olarak örtüşen düğmeler elde edersiniz. Demek istediğin bu mu? –

+0

Evet, işe yarıyor! Ama istedikleri gibi düzenlenmezler. Nasıl yönetileceği hakkında daha fazla düşünmeye çalışın ... – daro

cevap

1

Kodunuz düğmeler yaratıyor ve sorun düzgün yüzden yapmanız gerekenler düzenlenmiş olmamasıdır sıralar halinde bunları düzenlemek olduğunu ve sütunlar. işte sana bunu yapmana yardım ederim;

Dim x As Integer = 5 ' x co-ordinate of the point 
Dim y As Integer = 5 ' y co-ordinate of the point 
For i = 1 To 25 
    If i Mod 5 = 0 Then ' For starting next row after column 
     y += 100 ' 100 is not mandatory change as per size of button 
     x = 0 
    Else 
     x += 100 ' 100 is not mandatory change as per size of button 
    End If 
    Dim p As Point = New Point(x, y) 
    Dim newButton = New Windows.Forms.Button 
    newButton.Location = p 
    //do the rest of formatting here 
    Panel1.Controls.Add(newButton) 
Next