Drag and Drop: Muovere il primo oggetto generato

[kicco]

 
Ho cercato a destra e a manca... Ma non sono riuscito a trovare una soluzione.
Allego l'esempio. Se dopo aver generato due "Tasti" cerco di muovere il primo, rimane selezionato il secondo.
Ho cercato di usare Last. ma senza risultati! 
 

[cogier]

Aggiungi questo al tuo codice: -

Codice: [Seleziona]

Public Sub Tasto_MouseDown()

  bt = Last

End

[vuott]

Bravo cogier.

[vuott]

La riga di comando, suggerita da cogier, può essere anche posta all'interno della sub-routine "Sub Tasto_MouseDrag()":

Codice: [Seleziona]

Public Sub Tasto_MouseDrag()

    bt = Last
    bt.Drag("")

End

In tal modo non sarà più necessario l'evento "Tasto_MouseDown()" presente nel suggerimento di cogier.

[kicco]

  to Cogier & Vuott!

[vuott]

Aggiungo che la riga "i = i + 1" potrà essere sostituita ovviamente con

Codice: [Seleziona]

Inc i

[kicco]

Aggiungo che la riga "i = i + 1" potrà essere sostituita ovviamente con

Codice: [Seleziona]

Inc i

Sì hai ragione è più elegante. Le brutte abitudini...