[RISOLTO] problema con eventi

[doublemm]

ho il seguente codice:

Codice: gambas [Seleziona]

PUBLIC SUB GridEU_Click()
DIM cordX, cordY AS Integer
DIM ReForm AS NEW Form
DIM Pulsante1, Pulsante2 AS Button

  ReForm = NEW Form
  
  WITH ReForm
    .Height = 100
    .Width = 300
    .Center
    .Show
    .Title = "TITOLO"
  END WITH 
  
  Pulsante1 = NEW Button(ReForm)
  Pulsante2 = NEW Button(ReForm)
  
  WITH Pulsante1
    .Height = 30
    .Width = 50
    .X = 20
    .Y = 20
    .Caption = "SALVA"
  END WITH 
  
  WITH Pulsante2
    .Height = 30
    .Width = 50
    .X = 20
    .Y = 60
    .Caption = "EXIT"
  END WITH 
  

  cordX = GridEU.Row
  cordY = GridEU.Column
  
  
END

come posso scrivere del codice allo scatenarsi dell'evento pulsante2_click?

[doublemm]

trovato il problema:

Codice: gambas [Seleziona]

Pulsante1 = NEW Button(ReForm)  AS "Pulsante1"
Pulsante2 = NEW Button(ReForm) 

bisogna aggiungere AS "nome" altrimenti non si può generare nessun evento

il pulsante1 adesso accetterà Pulsante1_Click
mentre il pulsante2 no.

Ho un altro problema ora, una volta generato l'evento pulsante1_Click al suo interno vorrei metterci reform.CLOSE ma non accetta reform perchè è un form creato dentro un evento con il metodo NEW FORM.

come posso chiamarlo da un altra SUB ?

[doublemm]

bastava dichiarare ReForm all'inizio con

STATIC PUBLIC ReForm AS NEW form

[Ceskho]

Domanda -> risposta -> riDomanda -> Risposta -> [Risolto] nel titolo...
 


Sei uno spettacolo....

[doublemm]

delle volte ti sembra di avere davanti un muro cerchi la soluzione ma non la trovi, non sai che altro fare se non chiedere aiuto. Poi all'improvviso, aspettando con frenesia una risposta, ti viene l'illuminazione e allora speri che la soluzione possa servire a qualcun'altro.