[.NET] Lijstje van Components?

[NickThissen]

Hey,

Ik heb een Component die men op een Form kan slepen, en ik wil graag dat er maar 1 instance van deze Component tegelijk op de form kan bestaan. Ik wil dus dat er een exception gegooid wordt als men een tweede instance op een Form wil slepen.

Daarnaast is er ook de mogelijkheid om een instance in code te maken. Er kan dan een Form worden meegegeven in de constructor. In dat geval wil ik ook kijken of er nog geen instances van mijn component op die Form staan.

Met controls zou dit vrij gemakkelijk zijn; een simpel loopje door de Controls collectie van de parent form om te kijken of er al een control is met hetzelfde type. Maar voor zover ik kan zien zijn is er geen Components collectie of iets dergelijks...?

Voor de duidelijkheid: deze functionaliteit moet dus in de Component komen, en niet in de form. Ik weet hoe ik de parent form van een component krijg (de Site property overriden), maar ik weet dus niet hoe ik aan een lijstje met components op die Form kom...

Is dit wel mogelijk?

[NickThissen]

Hm, ik ben al een klein beetje verder, maar nog niet helemaal.

De volgende code gebruikt de Site.Container.Components property van de parent form om te kijken of er al een andere component is. Zo ja, dan wordt een exception gegooid.

Visual Basic .NET:

Imports System.ComponentModel
Imports System.ComponentModel.Design

Public Class TestComponent
    Inherits Component

    Public Sub New()

    End Sub

    Public Sub New(ByVal frm As Form)
        Me.CheckComponents(frm)
    End Sub

    Private _ParentForm As Form
    Public Property ParentForm() As Form
        Get
            Return _ParentForm
        End Get
        Set(ByVal value As Form)
            _ParentForm = value

            ' ParentForm changed, check for other components here
            Me.CheckComponents(_ParentForm)
        End Set
    End Property

    Private Sub CheckComponents(ByVal frm As Form)
        If frm IsNot Nothing Then
            If frm.Site IsNot Nothing AndAlso frm.Site.Container IsNot Nothing Then
                For Each c As Component In frm.Site.Container.Components
                    If TypeOf c Is TestComponent AndAlso c IsNot Me Then
                        Throw New Exception("Duplicates!")
                    End If
                Next
            End If
        End If
    End Sub

    'Override the Site property to know when it changes so you can get the parent form
    Public Overrides Property Site() As System.ComponentModel.ISite
        Get
            Return MyBase.Site
        End Get
        Set(ByVal value As System.ComponentModel.ISite)
            MyBase.Site = value

            If value Is Nothing Then Return

            Dim host = TryCast(value.GetService(GetType(IDesignerHost)), IDesignerHost)
            If host IsNot Nothing Then
                Dim componentHost = host.RootComponent
                If componentHost IsNot Nothing Then
                    Me.ParentForm = TryCast(componentHost, Form)
                End If
            End If
        End Set
    End Property
End Class

Dit werkt tijdens design-time. Als ik al een instance op mijn form heb en er dan een tweede op probeer te slepen krijg ik de exception te zien en wordt de tweede instance niet aangemaakt.

Maar het werkt niet tijdens run-time. Als ik de tweede constructor aanroep en een Form pass, bijvorbeeld dit in Form_Load:

Visual Basic:

Dim c As New TestComponent(Me)

dan blijkt dat de Site property van de parent form null is en gebeurt er dus niets (de eerste check in regel 30 is False). Dat lijkt misschien logisch (de component heeft namelijk nog geen parent), maar ik gebruik dan ook niet de parent form van de component, maar juist de form die in de constructor meegegeven wordt, dus het zou toch gewoon moeten werken?

[eek]

Waarom wil je deze 'controle' inbouwen? Gaat er iets fout als je component er twee keer op staat?

[NickThissen]

Het is gewoon niet de bedoeling om meerdere instances per form te gebruiken. Of er iets mis gaat weet ik zo niet, op het moment denk ik niet (maar dat kan altijd nog veranderen). Ik kan natuurlijk tegen gebruikers zeggen dat ze maar 1 instance per form moeten gebruiken, maar men luistert niet altijd dus zou het mooi zijn als ik dat gewoon kon forceren, dan zal het altijd kloppen.

[mulder]

Waarom dan en designtime en runtime? En zou anders ShowDialog() misschien een handige manier zijn

[NickThissen]

De component hoeft niet altijd op een form gezet te worden tijdens design-time, hij wordt ook wel eens in code gemaakt, pas wanneer hij nodig is. Ook dan wil ik dat er maar 1 instance gemaakt kan worden.

En ShowDialog? Dat begrijp ik niet. Ik heb het toch niet over een form?

[ Voor 3% gewijzigd door NickThissen op 08-07-2010 20:24 ]

[kluyze]

Dus je wilt een singleton maken?

[NickThissen]

Min of meer, maar niet precies. Ten eerste geloof ik niet dat dat mogelijk is voor een Component (of voor een Control)? Ik heb het vroeger eens geprobeerd, en (als ik het me goed herinner) ik kon wel een instance op de form slepen (nou ja, in de 'component tray' of hoe dat ook heet), maar er werd dan in code (in de designer code) geen instance aan de variabele toegekend waardoor die null bleef.

Ten tweede is het best mogelijk dat twee forms twee verschillende instances van de component hebben, dus daar gaat een singleton ook al niet werken.

[eek]

Je zou als het echt moet via een private static Dictionary bij kunnen houden welke forms je per component al bent tegengekomen. Maar er zal vast een mooiere / betere oplossing zijn.

[NickThissen]

Ja zoiets had ik ook al bedacht, een static (of shared in VB) List(Of Form) bijhouden in de component. Dat is inderdaad niet de mooiste oplossing, vandaar dat ik een betere zoek.

[Korben]

Je zou de ParentChanged event van je control kunnen afvangen, en vervolgens bij die nieuwe parent recursief door de control tree gaan lopen om te kijken of je een instantie van je control tegenkomt (waarbij je wel checkt of je dat niet zelf bent).

Overigens is dit niet de snelste methode, dat is toch een lijst met forms waarop je aanwezig bent.

[ Voor 12% gewijzigd door Korben op 09-07-2010 14:05 ]

[NickThissen]

Korben schreef op vrijdag 09 juli 2010 @ 14:03:
Je zou de ParentChanged event van je control kunnen afvangen, en vervolgens bij die nieuwe parent recursief door de control tree gaan lopen om te kijken of je een instantie van je control tegenkomt (waarbij je wel checkt of je dat niet zelf bent).

Overigens is dit niet de snelste methode, dat is toch een lijst met forms waarop je aanwezig bent.

Ik heb het over een Component, niet een Control. Een Component heeft geen Parent en geen ParentChanged event. Die kan ik wel zelf maken door de Site property te overriden, maar dan nog moet ik een lijstje met alle Components (niet Controls) op een Form krijgen, en blijkbaar is dat niet mogelijk tijdens run-time ofzo..?