Discussion :

[zax-tfh]

Bonjour à tous,

Je souhaite réaliser un petit usercontrol qui permette d'accepter l'ajout de controles à l'interieur de celui ci en mode design.
Plus contretement :

Mon usercontrol possede un panel.
J'aimerai, en mode design sous visual studio, pouvoir ajouter des controles dans ce panel pour qu'ils soient embarqués à l'interieur de celui ci. En gros, que les controls que j'ajoute aient pour parent le panel.

Savez vous comment réaliser ceci ?

Merci d'avance
@ bientot

[Pol63]

oui mais c'est pas simple

il faut créer une classe designer pour ton usercontrol
une classe designer sert à faire fonctionner un controle en mode design
en effet visual studio ne sait rien faire et ne fait rien, le fait que quand tu clic sur un control, il affiche les accroches de redimensionnement par exemple, c'est codé en .NET
il est donc possible de coder intégralement le mode design d'un controle

voilà pour les généralités
dans ton cas, il faut rajouter au dessus de ton usercontrol l'attribut suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<System.ComponentModel.Designer(GetType(DesignerDeMonUserControl))> _

puis rajouter les classes adéquat (par exemple en dessous du code du usercontrol)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 Friend Class DesignerDeMonUserControl
        Inherits System.Windows.Forms.Design.ParentControlDesigner
 
        Private _MonUserControl As MonUserControl
 
 
        Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
            Try
                If TypeOf component Is MonUserControlThen
                    _MonUserControl= DirectCast(component, MonUserControl)
                End If
                Me.EnableDragDrop(False)
                ActiveDesignMode (_MonUserControl.lepanelaactiver)
                MyBase.Initialize(component)
            Catch ex As Exception
                MsgBox(ex.Message & vbCrLf & ex.StackTrace)
            End Try
        End Sub
 
 
        Public Sub ActiveDesignMode(ByVal ctrl As System.Windows.Forms.Control)
            If ctrl Is Nothing Then Exit Sub
            Me.EnableDesignMode(ctrl, ctrl.Name)
        End Sub
 
 
    End Class

essaye ca, si t'as des soucis, je testerais

[zax-tfh]

Salut Sperot51,

Merci pour ce code, je ne peux malheureusement pas tester de suite, mais dès que c'est fait je te tiens au courant