[RISOLTO]Ritornare parametro da form in chiusura

[akrobaticone]

Mi spiego meglio
vorrei aprire un form per scegliere i colori da un altro form
alla chiusura del primo vorrei che ritornasse il valore del colore scelto
come faccio per trasmettere il parametro senza usare variabili globali?

Grazie

[leo72]

Il passaggio di parametri da form a form è stato oggetto di discussione recentemente.

[akrobaticone]

se ti riferisci a questo
http://www.gambas-it.org/smf/index.php?topic=1259.0
mi era sfuggito ad una prima ricerca
chiedo venia
 

[jockerfox]

Nonostante l'avvertimento di default di non riaprire questo thread, cioè mi ha consigliato di aprirne un altro, vado contro corrente perché non voglio riaprire un altro per riavere la stessa risposta...

Ho letto svariati documenti & thread e sono riuscito a passare dati dal form FMain a un secondo form, ma non riesco a fare l'opposto!
Ho letto anche la discussione  (http://www.gambas-it.org/smf/index.php?topic=1259.0), ma senza successo..
Ok, sto invecchiando anche io 

Per cui chiedo venia, ed espongo il problema con la preghiera di darmi una via di uscita, in particolari modo a @Akrobaticone che se ha messo [risolto] in questa discussione perciò dovrebbe sapermi aiutare .

Codice: gambas [Seleziona]

[FMAIN]
Public Sub Form_Open()
...
  Dim sDbPass as String
  Dim hFormPassword As Form
...
  '»Controllo Accesso Password
  hFormPassword = New FormPassword(Null) 'Apparte che non capisco il perché sono obbligato a passare un parametro Null...  :-\
  sDbPass = hFormPassword.ShowModal() 'IMPORTANTE: da "Gambas Documentation", si evince che ShowModal restituisce solo Interi e non stringhe! Si veda in calce Nota 1
...
End


[FORMPASSWORD]
...
Public Sub T2PanDocBSalva_Click()
  Me.Close("PIO")
End
...

Mi da, GIUSTAMENTE, il seguente errore: Type mismatch: wanted Integer, got String instead
Rimando nuovamente a Nota 1

Ma come avete fatto ?

Nota 1:
- Function ShowModal ( ) As Integer
Shows the window in modal mode.
This method ends only when the window is closed, and the value passed to the Close method is returned.

- Function Close ( [ Return As Integer ] ) As Boolean
Closes the window, and returns an optional integer value used by the ShowModal method.

[jockerfox]

Forse ho risolto..
Tra stasera e domani vi posto come ho fatto (se funziona).
 

[vuott]

Io ritengo che il fulcro stia sostanzialmente in questa risposta:
http://www.gambas-it.org/smf/index.php?topic=1259.msg14071#msg14071


Ho provato sulla base di quell'indicazione di md9327 a ricreare una situazione, in cui viene passato alla chiusura del Form secondario un valore di tipo Stringa al Form principale.
Nel Form principale abbiamo un Button ed il seguente codice:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim f As Form1
 Dim s As New String[]

   s.Add("alibaba")

   f = New Form1(s)

' Un eventuale valore intero ritornato dal metodo ".ShowModal"
' in questo caso non è fondamentale:
   f.ShowModal()

   Print "s = "; s[1]

End

Mentre nel Form secondario (che abbiamo chiamato Form1) abbiamo un Button ed ilseguente codice:

Codice: gambas [Seleziona]

Private ps As String[]


Public Sub _new(s As String[])
  
   ps = s
  
End


Public Sub Button1_Click()
 
   ps.Add(ps[0] & " e i 40 ladroni")
  
   Me.Close()

End