Как создать поле 12х5 из кнопок, чтобы нумерация индекса шла по порядку? - VB
Формулировка задачи:
Помогите создать поле из кнопок размером 12 на 5
Т.е Кнопки должны идти по порядку по индексу но в виде 12 x 5
первая строка идет до 12 потом на следущей строке идет 13 14 15 и так далее ? НИкак не получается спасибо ((
Решение задачи: «Как создать поле 12х5 из кнопок, чтобы нумерация индекса шла по порядку?»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д