ti ho inviato un esempio che condivido anche qui in lista sperando che
essi vada bene per il tuo scopo.
Finestra padre (window1) con 4 campi e un BevelButton + una finestra
figlio (window_Result) con un solo campo
nella window1
Sub Open() // per centrare la finestra al centro del monitor
me.left = (Screen(0).Width/2) - (me.Width/2)
me.top = (Screen(0).Height/2) - (me.Height/2)
End Sub
nel bevelButton
Sub Action()
dim a,b,c,d as integer
a = Val(EditField_w1(0).Text)
b = Val(EditField_w1(1).Text)
c = Val(EditField_w2(0).Text)
d = Val(EditField_w2(1).Text)
if FalseTrue = false then
w(0) = new Window_result
w(1) = new Window_result
FalseTrue = true
w(0).left = Window1.Left - (w(0).Width+20)
w(0).top = Window1.Top
w(0).Title = "Figlio A"
w(0).Show
w(1).left = Window1.Left + (Window1.Width+20)
w(1).top = Window1.Top
w(1).Title = "Figlio B"
w(1).Show
w(0).EditField1.text = str(a+b)
w(1).EditField1.text = str(c-d)
else
w(0).EditField1.text = str(a+b)
w(1).EditField1.text = str(c-d)
end if
End Sub
Proprietà tipo
FalseTrue As Boolean
w(1) As Window_result
A questo punto se ho capito bene, una volta aperte le finestre figlio
non vengono generate nuove finestre ma vengono solo aggiornati i dati
nel relativo campo.
spero che questo sia stata la tua richiesta.
Cordialmente Ivano Monti
Il giorno 19/giu/09, alle ore 20:20, Gualeni Giovanni ha scritto:
Il giorno 19/giu/09, alle ore 18:50, Sergio Tamborini ha scritto:
Metti il codice che ti ha suggerito Marco nell'evento open della
finestra principale...
Una volta istanziata non e' piu' la stessa. Cio' che vorrei sono 2
finestre identiche che si aggiornano come fossero una sola.
Altrimenti mi tocca attivare ogni procedura che agiorna la prima
anche nella seconda finestra.
E' possibile evitarlo?
Giovanni
|