Как создать поле 12х5 из кнопок, чтобы нумерация индекса шла по порядку? - VB

Формулировка задачи:

Помогите создать поле из кнопок размером 12 на 5 Т.е Кнопки должны идти по порядку по индексу но в виде 12 x 5 первая строка идет до 12 потом на следущей строке идет 13 14 15 и так далее ? НИкак не получается спасибо ((

Код к задаче: «Как создать поле 12х5 из кнопок, чтобы нумерация индекса шла по порядку? - VB»

textual
Private Sub Form_Load()
 
Dim Com(1 To 60) As CommandButton
Dim HB, WB, X1, Y1, n, x, y As Integer, s As String
 
HB = Form1.Height / 3: WB = Form1.Width / 3
Y1 = Form1.Height / 3: X1 = Form1.Width / 3
 
n = 0: x = X1: y = Y1
For i = 1 To 5
    x = X1
        For j = 1 To 12
            n = n + 1: s = Replace("Com" & Str(n), " ", "")
            Set Com(n) = Me.Controls.Add("VB.CommandButton", s, Me)
            Com(n).Height = HB / 5: Com(n).Width = WB / 12
            Com(n).Visible = True: Com(n).Caption = n: Com(n).Top = y: Com(n).Left = x
            x = x + WB / 12
        Next j
    y = y + HB / 5
Next i
 
 
End Sub

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ