Objekt mal 15 Zeilen mal 9 Spaltan

  • VB6

    Objekt mal 15 Zeilen mal 9 Spaltan

    Tach.
    Ich habe ein Image-Object-Array 225 hoch
    und 210 breit.

    Zur Laufzeit soll es vervielfacht sein,
    dass neben dem mit dem Index 0
    14 andere rechts drankleben
    und unter dieser Reihe jeweils
    9 andere.

    Bekomme diese Denkaufgabe nicht Recht gelöst.

    Quellcode

    1. Dim Row As Integer
    2. Dim Col As Integer
    3. Private Sub Form_Load()
    4. For i = 1 To 100 Step 1
    5. Load bg(i)
    6. bg(i).Left = bg(i - 1).Left + 210
    7. bg(i).Top = Row * 225
    8. bg(i).Visible = True
    10. If i = 14 Then
    11. Row = Row + 1
    12. End If
    13. If i = 30 Then
    14. Row = Row + 1
    15. End If
    16. If i = 45 Then
    17. Row = Row + 1
    18. End If
    19. Next
    20. End Sub


    Hoffe, mir will wer helfen.

    // edit:

    Quellcode

    1. Dim Row As Integer
    2. Dim Col As Integer
    3. Private Sub Form_Load()
    4. For i = 1 To 120 Step 1
    5. Load bg(i)
    6. bg(i).Left = Col * 210
    7. bg(i).Top = Row * 225
    8. bg(i).Visible = True
    10. Col = Col + 1
    11. If Col > 14 Then
    12. Col = 0
    13. Row = Row + 1
    14. End If
    15. Next
    16. End Sub


    Kaffee bewirkt Wunder :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „weed“ ()