Le 29 juil. 09 à 17:22, emile.a.schwarz a écrit:
Bonjour,
le bout de code passé marche très bien, merci, là n'est pas le
problème.
Je reprends:
Dans ma fenêtre Window1, j'ai ajouté une propriété foo as integer.
Comment puis-je lire cette propriété après avoir lancé le code
d’Arnaud, genre
Dim w As Window
Dim w2 As Window1
If WindowCount>0 Then
w = window(0)
If w IsA Window1 Then
w2 = Window1(window(0))
End if
End if
MsgBox "Il y a " + Str(w2.foo) + " crocodiles dans le lac."
Je ne cherche pas à faire (par exemple):
MsgBox Str(w2.Title)
C’est plus clair?
Ce n'est pas forcément plus clair, étant donné que c'est ce que
j'avais déjà compris.
Vous savez, quand j'ai posté ma réponse, j'ai évidemment utilisé une
propriété que j'avais ajouté.
Ok, à mon tour de reprendre mon exemple (vous verrez alors que l'on
parle de la même chose):
j'ai ouvert un projet vide. Dans window1, j'ai ajouté "Number As
integer". Dans "app.open", ceci:
dim i as integer
dim w As window1
for i=0 to 5
w=new Window1
w.Number=i+1
next
Puis, dans app.Activate, ceci:
dim w as window1
if windowcount>0 then
w=Window1(window(0))
msgbox str(w.Number)
end if
Ensuite, je lance l'application (qui m'affiche 0 d'emblée), je
choisis une des 6 fenêtres affichées que j'amène en avant-plan, je
vais dans le finder, et, quand je reviens dans mon application, j'ai
un nombre de 0 à 6 qui s'affiche, suivant la fenêtre choisie.
|