objet StdFont d'un usercontrolRésolu

Question

bonsoir à tous
j'ai un usercontrol à partir de deux labels l'un plus petit dans un coin de l'autrel'autre
la propriété caption de mon controle est celle du plus grand label, ça j'ai réussi mais je voulais changer la taille de police du caption de mon control!
j'ai vu qu'il faut utiliser l'objet StdFont de mon control et faire le type de déclaration "Private WithEvents mFont As StdFont" mais lorsque je veux compiler mon ocx VB me signale une erreur "Type défini par l'utilisateur non défini" et surligne "StdFont".
Si vous avez une idée merci

cs_Jack · Accepted Answer

Salut
Pour résoudre ton problème de compilation, il te suffit d'ajouter une référence de ton projet (menu projet, références) à ce fichier : C:\Windows\System32\stdole2.tlb   qui s'appelle "OLE Automation"
Nota : Ce fichier n'a pas besoin de faire partie de l'empaquetage (si tu dois l'installer sur un autre poste).

Ne confonds pas les propriétés et les évènements.
Pour attribuer un propriété Font à ton User Control, il suffit de ceci :
   '---------------------------------------------------------- Police
   Property Set Font(ByVal Valeur As StdFont)
       If Not (Valeur Is Nothing) Then
           Set UserControl.txtBox.Font = Valeur
           PropertyChanged "Font"
       End If
   End Property
   Property Get Font() As StdFont
       Set Font = UserControl.txtBox.Font
   End Property
Dans cet exemple, la propriété s'appelle Font et est directement rangée dans la font du TextBox.
Le    PropertyChanged "Font"    est là pour provoquer la mémorisation des propriétés (j'espère que tu as prévu un UserControl_WriteProperties)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Jette un oeil à cette source, ça te donnera peut-être des idées
http://www.vbfrance.com/codes/TEXTBOX-ANIMEE-USERCONTROL_17778.aspx

cs_marco62118 · Answer

bonjour 
merci pour vos promptes réponses
j'ai cliqué sur la case ole automation de la boite de référence et maintenant j'ai un autre message qui me parait pas plus clair : "Un objet n'est pas source d'Automation" l'aide ne m'éclaire pas plus!

en attendant je vais examiner la source que tum'as  conseillé

merci encore

cs_marco62118 · Answer

rebonjour
excuse moi je j'ai fait une boulette j'avais laissé une modif j'avais essayé avec Font au lieu de StdFont et donc avec StdFont ça marche
A+ merci

Objet StdFont d'un usercontrol

4 réponses

Votre réponse

Discussions similaires