PROBLEME Type RECT

Résolu
Signaler
Messages postés
67
Date d'inscription
jeudi 19 mai 2011
Statut
Membre
Dernière intervention
22 mai 2006
-
Messages postés
67
Date d'inscription
jeudi 19 mai 2011
Statut
Membre
Dernière intervention
22 mai 2006
-
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

2 réponses

Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006

salut



l'erreur qui t'arrive est simple, je suppose que tu as 4 voitures sur ta form :

Hcar(0)

Hcar(1)

Hcar(2)

et

Hcar(3)



or ta boucle doit essayer de lire la valeur Hcar(4) or Hcar(4) n'existe pas donc ca plante.



A+
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
67
Date d'inscription
jeudi 19 mai 2011
Statut
Membre
Dernière intervention
22 mai 2006

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