Come istanziare più oggetti con eventi diversi?

[kicco]

 
Come posso creare una serie di oggetti simili ma che rispondano a eventi diversi? Mi spiego meglio.
Ho creato:

Codice: [Seleziona]

' Gambas class file

Public But As Button

Public Sub PictureBox1_Drop()
  'VUOTO PER RICEVERE
End
Public Sub Button1_MouseDown()
  With But = New Button(Me) As "Bottone1"
   .H = 50
   .W = 50
   .X = 150
   .Y = 150
  End With
  Print But.name 'per controllo
End
Public Sub Bottone1_MouseDrag()
But.Drag("")
End
Public Sub PictureBox1_DragMove()
    With But
  .X = Drag.X 
  .Y = Drag.Y 
  End With
End
 

che ovviamente prevede una PictureBox1 e un Button1 nel form relativo.
Quando premo Button1 creo un nuovo pulsante se premo di nuovo, un'altro, ma rispondono tutti e due allo stesso evento (Button1).
Come faccio a creare una sequenza di Pulsanti che rispondano ad eventi diversi?
Spero di essere stato chiaro!
Nel wiki ho trovato un capitolo che forse vorrebbe spiegare questo caso:
http://www.gambas-it.org/wiki/index.php?title=Creare_pi%C3%B9_oggetti_del_medesimo_tipo
ma è in attesa di riempimento

 

[vuott]

Io non ho capito cosa vuoi dire con: "Pulsanti che rispondano ad eventi diversi".   

[Gianluigi]

Se intendi sapere quale pulsante è stato premuto devi usare Last

 

[Gianluigi]

Questa recente discussione forse potrebbe ispirarti.

 

[kicco]

  a tutti e due, premendo il pulsante Button1, creo un nuovo pulsante che poi posso draggare e droppare(!) sulla picturebox1.
Quel nuovo pulsante può generare  eventi Bottone1 (Bottone1_xxx ecc).
Ora, se lo premo una seconda volta, mi genera un nuovo bottone ma questo nuovo elemento genera sempre eventi Bottone1, vorrei che generasse eventi Buttone2 ecc. in modo da usare i due nuovi Bottoni separatamente.
 

[vuott]

un nuovo pulsante che poi posso draggare e droppare(!) sulla picturebox1.

A me 'sta cosa non funziona.   

[kicco]

 ..a me si!

Ti allego "tutto" il progetto!

[vuott]

..a me si!

Ah, lo spostamento del bottone stando all'interno della PictureBox. Sì, provando il tuo esempio, funziona.

Dunque, per quel che riguarda il problema che hai posto, se ho capito bene, mi pare che tu voglia sostanzialmente che ogni nuovo Bottone sia attribuito ad un Gruppo degli eventi diverso.
Questa circostanza però ti impone la presenza nel codice di sub-routine preesistenti con i nomi di ciascun Gruppo che eventualmente andrai a creare.... ma come fai a sapere a priori  quanti nuovi Bottoni, e dunque quanti eventi, saranno creati ?   

Ritengo che il suggerimento di Gianluigi sia il più adeguato.

[Gianluigi]

Non so se questo ti può aiutare, devi scrivere "bottone" in group del button1 ma non l'ho provato sul tuo progetto perché devo andare a mangiare:

Codice: [Seleziona]

Private i As Integer

Public Sub bottone_Click()

   Dim But As Control
  
  Inc i
  If Last.Name = "Button1" Then
    With But = New Button(Me) As "bottone"
     .H = 50
     .W = 50
     .X = 150
     .Y = 150
     .Name = "Button" & i     
    End With  
  Endif
  Print But.name 'per controllo

End

 

[kicco]

Ah, lo spostamento del bottone stando all'interno della PictureBox. Sì, provando il tuo esempio, funziona.

probabilmente non hai attivato il drop nella Picturebox.

ma come fai a sapere a priori quanti nuovi Bottoni

... allora non ero fuori strada (anch'io ero arrivato a questa constatazione) speravo che con un ciclo FOR si potesse
scrivere una roba tipo

FOR i =0 To 3
 With But = New Button(Me) As ("Bottone" & i)
NEXT

lo so non funziona!
 

[vuott]

perché devo andare a mangiare

[kicco]

Grazie Gianluigi, anch'io sono prossimo a riempire la panza!
Poi ci provo!

Buompetito

[vuott]

probabilmente non hai attivato il drop nella Picturebox.

Sì, hai ragione.      

speravo che

Puoi più semplicemente fare:

Codice: [Seleziona]

Private n As Integer
.....
.....
Public Sub Button1_MouseDown()
With But = New Button(Me) As "Bottone" & CStr(n)
.....

Resta però il problema delle sotto-procedure degii eventi: vanno scritte preliminamente. Quindi salta tutta l'idea iniziale.
La soluzione è quella di Gianluigi... pre-pasti   
Unico Gruppo per gli eventi, e distingui ciascun bottone con la parola chiave Last.
...però non capisco il codice che ha scritto.   
Io porrei Last nella sottoprocedura dell'Evento sollevato; evento comune all'unico Gruppo al quale appartengono i soli nuovi Bottoni creati da Button1.

[Gianluigi]

Scusate ho inserito involontariamente un errore:
NO:

Codice: [Seleziona]

Dim But As Control

SI:

Codice: [Seleziona]

Private But As Control

 

Dimenticavo: Inc va all'interno di If

[kicco]

 
@Vuott

...però non capisco il codice che ha scritto.   

intendi lo scopo di produrre pulsanti (Bottoni) differenti?