[VB6]: Spostare oggetti con il mouse a runtime

[x69asterix]

ho una domanda da porre, mi stò chiedendo di come poter spostare un bottone o un frame sul form, praticamente col click del mouse prendo l'oggetto per poi spostarlo in punto qualsiasi del form.

[ranza!!!123]

ma la cosa deve avvenire in run-time?o nell'IDE??

[hkproj]

credo che la api ReleaseCapture venga usata proprio per questo scopo, ora non ricordo come usarla

[x69asterix]

Originariamente inviato da ranza!!!123
ma la cosa deve avvenire in run-time?o nell'IDE??

la cosa deve avvenire a form lanciato

[ranza!!!123]

questo è il codice che uso in una mia applicazione

Dim StartX As Integer
Dim StartY As Integer
Dim Moving As Boolean
Dim pausa As Boolean


Private Sub barra_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
StartX = x
StartY = Y
Moving = True
End If
End Sub

Private Sub barra_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Not Moving Then Exit Sub
Me.Move Me.Left + (x - StartX), Me.Top + (Y - StartY)
End Sub

Private Sub barra_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
Moving = False
End Sub

dove barra è una picturebox...prova a riadattare il codice su un frame,dovrebbe essere la stessa cosa
sempre se ho capito il problema

[x69asterix]

bo..
ripeto allora su di un form ho un frame dove al suo interno ho dei bottoni, bene adesso, per un motivo grafico voglio spostare il frame ad esempio al centro del form, diciamo ke clicco sul frame e lo voglio trascinare sul centro del form. questo è quello che mi interessa fare. Ho provato quello che mi hai dato, nessun risultato.

[Boolean]

il codice che ti ha fornito Ranza, funziona, e ti permette di fare esattamente quello che chiedi.
questo metodo lo postai io, tempo fa, quando qualcuno fece la stessa tua richiesta...

ovviamente il codice va adattato ai controlli che hai tu sul form, quindi perchè non ci fai vedere come l'hai adattato alla tua situazione, e vediamo dove sta il problema?

Boolean

[ranza!!!123]

Originariamente inviato da Boolean
il codice che ti ha fornito Ranza, funziona, e ti permette di fare esattamente quello che chiedi.
questo metodo lo postai io, tempo fa, quando qualcuno fece la stessa tua richiesta...

ovviamente il codice va adattato ai controlli che hai tu sul form, quindi perchè non ci fai vedere come l'hai adattato alla tua situazione, e vediamo dove sta il problema?

Boolean

non ci giurerei ma potrei essere io

[x69asterix]

Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Command1 = 1 Then
StartX = x
StartY = Y
Moving = True
End If
End Sub

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Not Moving Then Exit Sub
Me.Move Me.Left + (x - StartX), Me.Top + (Y - StartY)
End Sub

Private Sub Toolbar1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
Moving = False
End Sub

[Boolean]

appunto... hai sbagliato ad adattare il codice...

l'errore è qui:

Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Command1 = 1 Then  '<---questo deve riferirsi al parametro restituito dalla Sub di Evento!
    StartX = x
    StartY = Y
    Moving = True
End If
End Sub

e va modificato così:

Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
    StartX = x
    StartY = Y
    Moving = True
End If
End Sub

Boolean