Aide sur le développement!!!(PaintPicture) - VB/VBA/VBS - Programmation
MarshPosté le 10-04-2005 à 13:53:01
Pourriez-vous me dire ce qui ne va pas dans mon code(l'image de PaintPicture ne s'affiche pas):
Public Sub AnimateProgressBar() begin: DoEvents X = X + 1 If X > 9080 Then X = 6160 End If imgWinLoad.PaintPicture imgBar.Picture, X, Y GoTo begin End Sub
Marsh Posté le 10-04-2005 à 13:53:01
Pourriez-vous me dire ce qui ne va pas dans mon code(l'image de PaintPicture ne s'affiche pas):
Public Sub AnimateProgressBar()
begin:
DoEvents
X = X + 1
If X > 9080 Then
X = 6160
End If
imgWinLoad.PaintPicture imgBar.Picture, X, Y
GoTo begin
End Sub