[VB] Création d'ActiveX en VB6.

Marsh Posté le 12-03-2003 à 12:15:06

Quelqu'un a des exemples ou tutoriels solides car l'aide de VB...
Je bloque sur la def des propriétés du controle en phase création (ajout de la page de propriétés sans résultats !)

Merci :jap:

Reply

Marsh Posté le 12-03-2003 à 12:15:06

Reply

Marsh Posté le 12-03-2003 à 12:36:52

pour une propriété qui s'appellerait mettons "Attributes", voici l'implémentation minimum pour que ça fonctionne bien:

' Initialisation
Private Sub UserControl_InitProperties()
Attributes = DEFAULT_ATTR
End Sub

' Récupération
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Attributes = PropBag.ReadProperty("Attributes", DEFAULT_ATTR)
End Sub

' Sauvegarde
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Attributes", Attributes, DEFAULT_ATTR)
End Sub

Le truc est que le property bag sauvegarde tes propriétés dans ton source, comme les contrôles standards.

DEFAULT_ATTR est simplement une constante que tu définis avec une valeur par défaut pour ton contrôle. Attributes est une property que tu définis comme tu veux.

Petite note: pour les couleurs, tu dois utiliser le type OLE_COLOR et non Long pour avoir l'interface de choix des couleurs dans ton contrôle.

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 12-03-2003 à 20:42:20

BabarZ a écrit :

Quelqu'un a des exemples ou tutoriels solides car l'aide de VB...
Je bloque sur la def des propriétés du controle en phase création (ajout de la page de propriétés sans résultats !)

Merci :jap:

va sur www.vbfrance.com tu en auras d'autres...

Reply

[VB] Création d'ActiveX en VB6.

Sujets relatifs:

Leave a Replay