Label erstellen

[mmdj]

Hallo Leute!

Mein Programm soll beim Start eine Datei öffnen, die Datei schrittweise lesen und für jede Zeile ein Label auf meiner Form erstellen. Allerdings kann sich die Anzahl der zu füllenden Labels ändern, also wollte ich mal fragen, ob jemand weiß ob es einen Befehl wie z.B. form1.addnewlabel oder so ähnlich, dann noch die Position (left und top) angeben und die neue Größe meiner Form (height und width) angeben.

Kann mir jemand helfen?

 

[Shakie]

Das ist ganz einfach. Du musst lediglich ein Label haben "DeinLabel" und stellst da die Eigenschaften "Index" = 0 und "Visible" = False ein.
Mit dem Befehl Load Objekt(Index) kannst du dann dein neues Label laden:

Private Sub NeuesLabel(ByVal lngTop As Long, ByVal lngLeft As Long)
    Load Me.DeinLabel(Me.DeinLabel.UBound + 1)
    Me.DeinLabel(Me.DeinLabel.UBound).Top = lngTop
    Me.DeinLabel(Me.DeinLabel.UBound).Left = lngLeft
    'Das neue Label sichtbar schalten:
    Me.DeinLabel(Me.DeinLabel.UBound).Visible = True
End Sub

Beispiel:

NeuesLabel 2000, 0