cs_tracto
Messages postés14Date d'inscriptionlundi 9 avril 2007StatutMembreDernière intervention 6 décembre 2010
-
24 juil. 2010 à 21:06
cs_tracto
Messages postés14Date d'inscriptionlundi 9 avril 2007StatutMembreDernière intervention 6 décembre 2010
-
25 juil. 2010 à 22:04
salut tous le monde
bien voila j'ai copier un bout de code de Renfield que j'utilise
dans une apli perso ,merci a lui pour ce bout de code
jusque la tout va bien
lorsque fait tourner l'apli dans l'environnement vb tous se passe bien
mais une foie compiler lorsque je click sur le bouton un message d'erreur
apparais " erreur d'exécution '9' Indice en dehors de la page"
je ne pige pas trop vue que sous vb sa fonctionne
voici le code apparemment qui ne fonctionne pas
Private mxsPics() As String
Private Sub Command6_Click()
Static nIndex As Long
Set Picture1.Picture = LoadPicture(mxsPics(nIndex))
nIndex = nIndex + 1
If nIndex > UBound(mxsPics) Then
nIndex = 0
End If
cs_tracto
Messages postés14Date d'inscriptionlundi 9 avril 2007StatutMembreDernière intervention 6 décembre 2010 25 juil. 2010 à 22:04
salut
Bon je suis enfin retomber sur mes pattes
j'ai simplement utiliser la lecture du dossier pour
remplir une liste box
ca a le même effet est en plus ca fonctionne
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 25 juil. 2010 à 01:28
Salut
Et sur quelle ligne apparait l'erreur ?
Méthode de debugage :
F9 sur une ligne de code
Le programme s'y arrêtera au prochain passage
Survole avec la souris tes variables pour visualiser leur contenu, ou va dans la fenêtre de debogage (Ctrl-G) et tape
? maVariable
pour qu'elle s'inscrive dans la fenêtre.
F8 pour avancer d'une ligne de code
F5 pour continuer normalement
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
lorsque je survole avec ma sourie cette ligne de code en mode débogage
je voie le message suivant:
indice en dehors de la plage
et un foie passer le le point d'arrêt tout est ok
apparemment le problème survient uniquement a chaque passage de la boucle
sur cette ligne
je n'y comprend plus rien et je ne sais pas comment résoudre se problème
merci de ton aide
A++
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 25 juil. 2010 à 15:08
Salut
Avec le debugger regarde mxsPics(i) tu vas avoir
toute une liste de 0 à i
ou plutot la valeur de i comme mxspics est une dynamic array,mxsPics(i) est dépassé
Bonne prog
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 25 juil. 2010 à 17:13
Salut
Dim x As Long
Où c'est defini dans la sub?
Si oui alors x = x+ 1 ne sert à rien parce que
à la sortie de la sub x n'existe plus et à chaque entrée x et redefini donc x = 0
efface Dim x As Long et copies le au début du programme
et encore selon ton code
Dim x As Long
Dim sFileName As String
sFileName = Dir$(App.path & "\images\*.jpg")
Do While LenB(sFileName)
quelle est la valeur de x ?ReDim Preserve mxsPics(x)
cs_tracto
Messages postés14Date d'inscriptionlundi 9 avril 2007StatutMembreDernière intervention 6 décembre 2010 25 juil. 2010 à 20:40
salut
même en enlevant le Dim x As Long
cela ne fonction pas
ne peut on pas utilisé une autre formule que
Do While LenB(sFileName)
pour remplir une listbox a la place du tableau ?
Pour mon projet cela fonctionnerez ici
si quelqu'un a un bout de code sur ca
merci en attendant