CYCY07
Messages postés67Date d'inscriptionjeudi 19 mai 2011StatutMembreDernière intervention22 mai 2006
-
15 oct. 2005 à 18:43
CYCY07
Messages postés67Date d'inscriptionjeudi 19 mai 2011StatutMembreDernière intervention22 mai 2006
-
15 oct. 2005 à 19:13
Bonjour
je suis occupée de m'arracher les cheveux avec une application qui est assez simple mais que j'essaye d'améliorer c'est à dire que je dois créer une appli avec des timers où on a un carrefour des feux de signalisation et des ptites voitures
Voilà le blème pour le code, ça va c'est pas lourd mais il y a juste que j'ai mis un "RECT" dans un module et que le compilateur m'indique ce message d'erreur : "L'élément du groupe de contrôle 4 n'existe Pas"
et le problème vient de :
Private Sub tmrMenu_Timer()
For x = 0 To nMaxCarUp
With aiCarU(x)
.Left = HCar(x).Left
.Top = HCar(x).Top
.Right = .Left + 32
.Bottom = .Top + 32
End With
...
Hors j'ai déclaré dans le module :
Public Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const nMaxCarLeft As Single = 6
Public Const nMaxCarRight As Single = 6
Public Const nMaxCarUp As Single = 4
Public Const nMaxCarDown As Single = 5
Public aiCar(10) As RECT
Public aiCarR(10) As RECT
Public aiCarU(10) As RECT
Public aiCarD(10) As RECT
...
Et voilà, je ne vois pas d'où vient l'erreur alors je remercie d'avance la personne qui saurait m'aider ce serait vraiment sympa
Bonne soirée et toute aide serait la bienvenue
CYCY07
Messages postés67Date d'inscriptionjeudi 19 mai 2011StatutMembreDernière intervention22 mai 2006 15 oct. 2005 à 19:13
Merci beaucoup pour ton aide j'ai plusieurs petites erreurs comme ça à modifier j'aurais du y penser vu que j'ai retiré qq voitures donc j'aurai la même erreur pour les autres lol
Bonne soirée et bon week end, c très gentil de ta part