Come istanziare più oggetti con eventi diversi?

[Gianluigi]

@Vuott

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

intendi lo scopo di produrre pulsanti (Bottoni) differenti?

Credo che si riferisse al mio codice, per meglio spiegarmi allego il tuo vecchio con i miei cambiamenti.

 
PS: Ho sbagliato ancora scusate continuavo a non usare Last 

[vuott]

Adesso va bene.

[Gianluigi]

Allego nuova versione in cui funziona lo spostamento di qualunque pulsante creato e non solo dell'ultimo.
Non ho capito il motivo della picturebox, direttamente sulla form funzionerebbe meglio.
 

[kicco]

 
Grazie ad entrambi, ho provato e funziona, ora lo integro nel mio progetto.
A proposito, il progetto prevede che su una mappa (ecco perchè il picturebox) dove l'utente possa posizionare un certo numero di centraline (rappresentato per ora dai pulsanti) che poi può interrogare (leggendo dati attraverso una seriale) con un doppio click.
Ci lavoro e poi magari posto il prototipo.
E' una vecchia idea di rappresentazione sinottica già indagata quahttp://www.gambas-it.org/smf/index.php?topic=2993.msg30558#msg30558 a suo tempo.
Grazie ancora

[Gianluigi]

Secondo me l'uso di DnD per questo non serve, puoi spostare soltanto senza dover trascinare

Codice: [Seleziona]

' Gambas class file
'
Private But As Control
Private i As Integer = 1
Private s As String
Private px As Integer
Private py As Integer

Public Sub bottone_Click()   
  
  If Last.Name = "Button1" Then
    Inc i
    With But = New Button(Me) As "bottone"
     .H = 50
     .W = 50
     .X = 150
     .Y = 150
     .Name = "Button" & i     
     .Text = i - 1
    End With  
  Endif
  Print Last.Name 'per controllo'

End

Public Sub bottone_MouseMove()
  
  If Mouse.Right Then Return
  If s <> "Button1" Then
    With But
      .X += Mouse.X - px
      .Y += Mouse.Y - py
    End With
  Endif
  
End

Public Sub bottone_MouseDown()
  
  Dim c As Control
  
  If Mouse.Right Then Return
  s = Last.Name  
  For Each c In Me.Controls
    If c.Name = s Then
      But = c
      Break
    Endif     
  Next    
  px = Mouse.X
  py = Mouse.Y
  If s <> "Button1" Then But.Mouse = Mouse.SizeAll 
  
  
End

Public Sub bottone_MouseUp()
 
  If Mouse.Right Then Return  
  But.Mouse = Mouse.Default
  
End