Ronald,
Merci de ton message, cependant, le projet fonctionne maintenant
J'ai simplement mis :
dim s as string
s = editfield1.text // Le champs dans lequel je met le nom de la fonte
à utiliser
puis dans le code :
interface1(self.control(i)).ChangeFont(s)
Merci,
A+
Youri
Ronald Vogelaar wrote:
Bonjour,
Je pense que la code ne suffice pas pour determiner la cause de
l'erreur. Peut-etre tu peut offre une petit project de RB pour
telechargement?
Aussi: Il-y-sont quelques personnes francophones sur la liste, mais la
meilleur chance pour recevoir aide c'est dans la langue Anglais.
Ronald Vogelaar
http://www.rovosoft.com
Youri wrote:
Bonjour,
J'essaie de travailler avec les "Class Interface".
A ce sujet j'ai fait un petit exemple, mais qui me retourne
déspérément une erreur.
J'ai créé une Class Interface Interface1 avec une méthode ChangeFont(s
as string)
Puis un MyEditField qui implémente la Classe Interface1 dont la
méthode ChangeFont(s as string) est :
me.textfont = s
Même chose avec un PopupMenu
Une fois avoir dessiné une petite fenêtre avec divers MyEditfield et
MyPopupMenu, je met le code suivant dans un Bouton :
Dim i as Integer
For i=0 to Self.ControlCount
If Self.Control(i) IsA Interface1 then
interface1(self.control(i)).ChangeFont(Me.Text)
End if
Next
Celà me retourne l'erreur :
This Method or property doesn't exists
interface1(self.control(i)).ChangeFont(Me.Text)
interface1(self.control(i)).ChangeFont(s)
Une piste?
Merci par avance,
Youri
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
