Discussion :

[avigeilpro]

Bonsoir,
Je suis en train de développer un UserControl (et oui encore), et je me demandais si il était possible de faire en sorte que celui-ci ne puisse être déposé que sur une Form (c'est à dire pas dans un PictureBox ou autre).

Je pensait déterminer le type du Parent, puis décharger le usercontrol si ce n'était pas une Form, mais je ne sais absolument rien faire

D'avance Merci pour toute proposition ou piste à suivre.

[ucfoutu]

Bonsoir,

Il est alors nécessaire de t'assurer de ce que tu es en mode design ...

Ainsi :

Code :

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

If Not Ambient.UserMode Then ......

Vois ici si tu es déjà capable de relever le parent.
Si oui, vois si tu peux en relever le type (Typeof)

Je dois passer à table...

Non, hélàs ... Ni Parent Ni Container accessibles en mode Design ...

[avigeilpro]

mon souci viens de typeof
j'arrive à avoir le parent (dans InitProperties), mais je n'arrive pas a en savoir le type

[ucfoutu]

Tu arrives à avoir le parent de ton usercontrol en mode design ? y compris si le parent n'est pas la Form ?

Comment as-tu fait ?

Bon....
Si tu as vraiment le parent :

quel code as-tu utilisé pour le typeOf ?
TypeOf marche avec une consition If uniquement.

Essaye également le TypeName (qui, lui, marche sans le If)

[avigeilpro]

lol, j'avais pas fait attention mais quelque soit le conteneur (Frame, PictureBox) TypeName me renvoie Form, et les modification que j'applique au Parent fonctionnent correctement (modification de la propriété Picture)

Voici le code que j'ai tapé pour obtenir le parent :

Code :

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

1
2
3
4
5
6
7
Private Sub UserControl_InitProperties()
Private MonParent As Object
        Set MonParent = UserControl.Parent
        If Not Ambient.UserMode Then
            MsgBox (TypeName(MonParent))
        End If
End Sub

Donc finalement je n'ai pas vraiment de problème

[Delbeke]

L'objet contenant le controle s'obtient par

Code :

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

1
2
  Dim Obj As Object
  Set Obj = Extender.Container