PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
18 sept. 2005 à 22:05
VBFranceBlub
Messages postés27Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention19 septembre 2005
-
19 sept. 2005 à 12:32
bonjour,
je relance déjà mon Topic d'hier...
[VB6]
je créé un contrôle, je le dépose plusieurs fois sur la Form.
si j'en sélectionne plusieurs (en mode conception), je voudrais simplement masquer une de ses propriétés.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 19 sept. 2005 à 11:09
gni?
c'est un nouveau UserControl (donc à créer)
si tu veux tester, créé un nouveau projet classique (exe), ajoute un UserControl, fond rouge pour faire la différence, et insère ce code :
'déclarations
Public Enum eOK
eOUAI
eNAN
End Enum
Private mCtrl As eOK
'
'
'get let
Public Property Get Ctrl() As eOK
Ctrl = mCtrl
End Property
Public Property Let Ctrl(new_mCtrl As eOK)
If mCtrl <> new_mCtrl Then
If CountMyType Then
mCtrl = new_mCtrl: PropertyChanged "Ctrl"
Else
MsgBox "TROP DE CONTRÔLES !!!", vbCritical
End If
End If
End Property
'
'propbag
Private Sub UserControl_InitProperties()
Me.Ctrl = eOUAI
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
Me.Ctrl = .ReadProperty("Ctrl", eOUAI)
End With
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
.WriteProperty "Ctrl", Me.Ctrl, eOUAI
End With
End Sub
'
'
' compte
Private Function CountMyType() As Boolean
Dim Ctrls As Object, Cpt As Long
Cpt = 0
For Each Ctrls In UserControl.Parent
If (TypeOf Ctrls Is UserControl1) Then
Cpt = Cpt + 1
If Cpt > 1 Then Exit For
End If
Next Ctrls If Cpt > 1 Then CountMyType False Else CountMyType True
End Function
VBFranceBlub
Messages postés27Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention19 septembre 2005 19 sept. 2005 à 11:46
Bien compris tout ça, mais je répète, quel est l'ocx à charger pour pouvoir insérer un UserControl (je l'ai pas par défaut dans la boîte à outils et quand je cherche dans les contrôles personnalisés, nulle part trace de UserControl ou Microsoft UserControl ou...).