• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Creates a Buttons Matrix at Run Time (Just specified the number of buttons and the size of the matr

Creates a Buttons Matrix at Run Time (Just specified the number of buttons and the size of the matr

Creates a Buttons Matrix at Run Time (Just specified the number of buttons and the size of the matrix) and the Form will adjust to the size of

API Declarations



Const Comps = 45
Const Matrix = 8 'Columns
Const ButtonHeigth = 1000
Const ButtonWidth = 1455



Rate Creates a Buttons Matrix at Run Time (Just specified the number of buttons and the size of the matr

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    MsgBox "CPU: " & Index + 1, vbInformation, "CPU"
End Sub

Sub FormSize()
Dim Lines, Columns
    'Form Heigth
    If Comps Mod Matrix <> 0 Then
        Lines = Int(Comps / Matrix) + 1
    Else
        Lines = Comps / Matrix
    End If
    'Form Width
    If Matrix > Comps Then
        Columns = Comps
    Else
        Columns = Matrix
    End If
    Me.Height = (ButtonHeigth * Lines) + 380      'Lines (n Buttons + Title)
    Me.Width = (ButtonWidth * Columns) + 95        'Columns (m Buttons + Form)
End Sub

Private Sub Form_Load()
Dim i
    FormSize
    'First Button
    Command1(0).Top = 0
    Command1(0).Left = 0
    Command1(0).Width = ButtonWidth
    Command1(0).Height = ButtonHeigth
    Command1(0).Caption = "CPU 1"
    'Next Buttons
    For i = 1 To Comps - 1
        Load Command1(i)
        Command1(i).Caption = "CPU " & i + 1
        Command1(i).Visible = True
        Command1(i).Left = Command1(i - 1).Left + ButtonWidth
        Command1(i).Top = Command1(i - 1).Top
        
        If i Mod Matrix = 0 Then
            Command1(i).Left = 0
            Command1(i).Top = ButtonHeigth * Int(i / Matrix)
        End If
    Next i
End Sub