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)
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>
