• Home
 · 
• String Manipulation
 · 
• OBJECT LOADER! Using arrays can save a lot of coding, try this object loader as if you are designin

OBJECT LOADER! Using arrays can save a lot of coding, try this object loader as if you are designin

OBJECT LOADER! Using arrays can save a lot of coding, try this object loader as if you are designing objects in array dimensions. It also

API Declarations


''This code requires you the following:
''TargetObject - any object then set the index property to 0
''ObjectLimit (if you want to create 2 additional objects, you need to input 2)
''Interval - give the interval to set the spaces between objects
''MoveTopToBottom - by default objects will be aligned from left to right
'Feel free to use my code for ease of coding.



Rate OBJECT LOADER! Using arrays can save a lot of coding, try this object loader as if you are designin

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim I%
On Error GoTo ErrorHandler:
    For I = 1 To ObjectLimit
        Load TargetObject(I)
        TargetObject(I).Visible = True
        TargetObject(I).ZOrder 0
        If MoveTopToBottom = True Then
            TargetObject(I).Top = TargetObject(I - 1).Top + Interval
        Else
            TargetObject(I).Left = TargetObject(I - 1).Left + Interval
        End If
    Next I
    Exit Sub
ErrorHandler:
    MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Error " & Err.Number & " in ObjectLoader!"
End Sub