[VB6] Oggetti in movimento

[zoodany]

Salve a tutti...
È possibile in VB6 far muovere gli oggetti di un form? Per esempio spostare una label o qualsiasi altro controllo alla pressione di un pulsante, dove per spostare intendo vedere proprio l'oggetto che compie il percorso da una posizione all'altra, non il semplice cambio di posizione...

Spero di essere stato chiaro...

[yyzyyz]

qualkosa di questo tipo? (my ping-pong)

Dim i As Integer
Private Sub Form_Load()
i = 100
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + i

If Label1.Left >= Form1.Width - Label1.Width Then
    i = i - 100
    ElseIf Label1.Left <= 0 Then
    i = i + 100
End If

End Sub

[pierabo]

Originariamente inviato da zoodany
È possibile in VB6 far muovere gli oggetti di un form?

Ciao, a livello grezzo:

Dim DaSpostare As Boolean

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = True


End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DaSpostare Then
Text1.Top = Y
Text1.Left = X
End If

End Sub


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = False


End Sub

[yyzyyz]

Originariamente inviato da pierabo
Ciao, a livello grezzo:

Dim DaSpostare As Boolean

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = True


End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DaSpostare Then
Text1.Top = Y
Text1.Left = X
End If

End Sub


Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DaSpostare = False


End Sub

oppure + semplicemente

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = X
Label2.Caption = Y
Text1.Top = Y
Text1.Left = X
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Top = Y
Text1.Left = X
End Sub

[zoodany]

Grazie a tutti e due..