[RISOLTO] muovere controlli col mouse

[Raffa50]

salve vorrei sapere come posso fare per spostare controlli sul form trascinandoli...
ho provato ma il controllo "salta" sul form

Codice: [Seleziona]

Public Sub frmbtns_MouseMove()
    Last.X = Mouse.ScreenX - hx
    Last.Y = Mouse.ScreenY - hy
End

Public Sub frmbtns_MouseDown()
  hx = Last.ScreenX
  hy = Last.ScreenY
End

[md9327]

Semplicemente ti sei dimenticato di aggiornare le due variabili che contengono la coordinata di partenza.

Così com'è scritto, ad ogni mossa, il pulsante parte dalla posizione orginale (la prima in assoluto) e la nuova posizione.

Se usi gambas3, l'oggetto Mouse ha le proprietà Delta, magari puoi usare quelle...

[vuott]

Prova semplicemente così:  

Codice: gambas [Seleziona]

 Public Sub Button1_MouseMove()
 
     Last.X = (Mouse.ScreenX - Me.ScreenX) - (Last.W / 2)
     Last.Y = (Mouse.ScreenY - Me.ScreenY) - (Last.H / 2)

 End

  
      

[Raffa50]

grizie 

[vuott]

Quelle righe dovrebbero consentirti di muovere senza problemi gli oggetti sul form, qualunque sia la sua dimensione e in qualunque parte sia dello schermo.
Se vuoi aggiustare a tuo piacimento il puntatore del mouse all'interno dell'oggetto che muovi, devi modificare - usando anche i decimali - il valore numerico in: (Last.W / 2)  ed in (Last.H / 2) .