Voila j'ai un probleme, j'ai crée un programme qui kan on clique sur
une image et on clique sur un endroit de la fenetre l'image y va mais
le bug c'est que kan l'image s'arrete elle tremble.
VOila si qqn peut m'aidée merci ^^
Voila le code :
Dim selection_perso As Variant
Dim X_mouse As Integer
Dim Y_mouse As Integer
Dim dep(100) As Boolean
Dim MarineX(100) As Integer
Dim MarineY(100) As Integer
Dim selectionperso(100) As Boolean
Private Sub Picture1_Click()
selectionperso(1) = True
Label2.Caption = "perso 1 selectionné"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For a = 0 To 100
If selectionperso(a) = True Then
If Button = 1 Then
selectionperso(a) = False
Label2.Caption = "peros pa selectionné"
ElseIf Button = 2 Then
MarineX(a) = X
MarineY(a) = Y
dep(a) = True
Timer1.Interval = 1
End If
End If
Next
End Sub
Private Sub Timer1_Timer()
For k = 0 To 100
'determine kan s'arrete le perso
If dep(k) = True Then
If MarineX(k) = Picture1.Left And MarineY(k) = Picture1.Top Then
dep(k) = False
End If
End If
Next
'Deplacement
For a = 0 To 100
If dep(a) = True Then
'dep horizontale
If MarineX(a) > Picture1.Left Then
Picture1.Left = Picture1.Left + 20
ElseIf MarineX(a) < Picture1.Left Then
Picture1.Left = Picture1.Left - 20
End If
'dep verticale
If MarineY(a) > Picture1.Top Then
Picture1.Top = Picture1.Top + 20
ElseIf MarineY(a) < Picture1.Top Then
Picture1.Top = Picture1.Top - 20
End If
End If
Next
End Sub