Non dovrei farlo, perchè se mi scoprono perdo la licenza di bravo programmatore... ;D
Ma vabbè, solo per questa volta... :P
Come da tuo esempio, abbiamo due pulsanti, che nominiamo Button1 e Button2 rispettivamente.
Come ti avevo descritto nella precedente, hai due possibilità per gestire con un solo metodo i due eventi Click() scatenati dai due pulsanti, ovvero:
1) agire tramite l'ide di Gambas, definendo un nome alla proprietà Group (presente nella lista delle proprietà a destra e selezionando i due pulsanti). Questa proprietà deve avere un nome uguale per tutti e due i pulsanti, ad esempio la impostiamo a "Event" (lo scrivi nella proprietà). A questo punto, prendi e fai un doppio click su uno dei due bottoni. Vedrai che ti si apre l'editor del codice della Form, che nel frattempo ha aggiunto un nuovo metodo, appunto nominato:
PRIVATE SUB Event_Click()
END
PRIVATE SUB Event_Click()
DIM obj AS Object = LAST
IF (obj = Button1) THEN
PRINT "Hai premuto il pulsante 1"
ELSE
PRINT "Hai premuto il pulsante 2"
ENDIF
END
PRIVATE SUB Event_Click()
DIM obj AS Object = LAST
IF (obj = Button1) THEN
PRINT "Hai premuto il pulsante " & obj.Name
ELSE
PRINT "Hai premuto il pulsante " & obj.Name
ENDIF
END
PRIVATE SUB Event_Click()
DIM obj AS Object = LAST
IF (Object.Is(obj, "Button")) THEN
IF (obj = Button1) THEN
PRINT "Hai premuto il pulsante " & obj.Name
ELSE
PRINT "Hai premuto il pulsante " & obj.Name
ENDIF
ENDIF
END
2) Agire a livello di codice, associando l'oggetto ad una definizione, tramite il comando:
Object.Attach(Button1, ME, "Event")
Object.Attach(Button2, ME, "Event")
Ci sarebbe anche una terza alternativa, tramite Observer, ma semmai la vediamo in seguito...
Ho chiarito il concetto? ... sono 100 euri... 8)