✔ Controlarray an Klasse übergeben.

[Orakel]

Moin zusammen,

kann mir mal bitte jemand erklären, wie ich eine Controlarray an eine Klasse übergeben kann.

Habe hier auf einer Form 5 labels (Label1(0), Label1(1), ........ ), die ich in einer Klasse wieder bräuchte.

Danke für jeden Tip

Gruß
Das Orakel

 

[Orakel]

Hi zusammen,

also ich habs jetzt anders gelöst.

Hintergrund:
Die Klasse ist Teil eines Maskengenerators, in der das Verschieben und die Größenänderung von Regionen abgehandelt wird. Um die zu verändernde Region sollen wie in der VB IDE Ziehpunkte angezeigt werden, die je nach Punkt ein anderes Cursorsymbol haben.

Lösung:

Hier so als Vorstellung mal ein Auszug aus der Klasse.

Private WithEvents m_cDot1              As PictureBox

Public Property Let SetContainer(ByRef fForm As Form, ByVal cContainer As Control, vDummy As Variant)
    Rem ===================================================
    Rem == Now create 8 little picture boxes.            ==
    Rem ===================================================
    Set m_cDot1 = fForm.Controls.Add("VB.PictureBox", "Dot1", cContainer)
    Call FormatDots(m_cDot1)
    ....
End Property

Private Sub FormatDots(ByRef oTmpControl As Control)
    With oTmpControl
        Rem ===============================================
        Rem == Do some layout stuff.                     ==
        Rem ===============================================
        .BorderStyle = 0
        .Appearance = vbFlat
        .Left = 10
        .Top = 10
        .Width = 5
        .Height = 5
        .BackColor = vbRed
        .ZOrder 0

        Rem ===============================================
        Rem == Assign each control a valid mouse pointer.==
        Rem ===============================================
        Select Case .Name
        Case "Dot1"
            .MousePointer = vbSizeNWSE
        Case "Dot2"
            .MousePointer = vbSizeNS
        ........

Somit werden die notwendigen "Dot's" innerhalb der Klasse zur Laufzeit genereiert, auf dem dafür notwendigen Container plaziert, und dienen nun als "Anfasser/Ziehpunkte",

Vielleicht hilf's ja dem einen oder anderen.

Gruß
Das Orakel