Real Basic 2007 r3 sous Mac OS X 10.4.10
Bonjour à tous,
depuis un petit moment, je me bat avec l'opérateur "Isa" qui permet
de tester la sous-classe d'un "Control"
exemple :
dim MonControl as Control
MonControl = Window1.Control(5)
if MonControl Isa EditField then EditField(MonControl).text = "Ce
Control est le Numéro 5)
if MonControl isa BevelButton then BevelButton(MonControl).Caption =
= "Ce Control est le Numéro 5)
cela fonctionne également pour tester l'Interface d'un "Control"
Exemple: if MonControl Isa MonInterface then MonInterface
(MonControl).MaFonction
........
Mais voilà, cela ne fonction pas sur les "ContenairControl".
EX : le contrôle 5 de ma fenêtre est un ContenairControl Nommé
Montest1 donc la super-Classe est MonTest et implémentant l'interface
MonInterface
MonControl Isa ContenairControl Toujours FAUX
MonControl Isa MonTest Toujours FAUX
MonControl Isa MonInterface Toujours FAUX
........
quelqu'un aurait-il une idée pour contourner ce probleme
Merci D'avance
Jean-Francois
|