Boucle probleme ! [Résolu]

Signaler
Messages postés
21
Date d'inscription
lundi 19 août 2013
Statut
Membre
Dernière intervention
15 mars 2015
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,
j'ai un petit soucis avec ma boucle, j'ai l'impression que celle ci ne se termine jamais et du coup impossible de la relancer !
Si quelqu'un veut bien 'aider merci d'avance

Ouverture en scroll d'un picturebox voici mon code :

GFXFrameX1.Visible = True
GFXFrameX1.HeighT = 0
Do Until GFXFrameX1.HeighT > 6930
GFXFrameX1.HeighT = GFXFrameX1.HeighT + 1
WBShow.HeighT = 5895
DoEvents
Loop

fermeture:
Do Until GFXFrameX1.HeighT < 0
GFXFrameX1.HeighT = GFXFrameX1.HeighT - 1
DoEvents
Loop
GFXFrameX1.Visible = False

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Bonjour,
1)
Do Until GFXFrameX1.HeighT < 0 

comment espères-tu qu'un contrôle puisse avoir pour hauteur une hauteur négative ?
2) Tu postes dans la section VB.Net, que je ne connais pas
Si, comme le donnent à penser tes autres discussions, tu développes finalement sous VB6 (et non VB.Net) :
--- tu n'es à nouveau pas dans la bonne section (et là, ta négligence et ta légèreté commencent à devenir relou, hein ...)
--- un Frame, sous VB6, à des dimensions minimum. Si on essaye d'aller en deçà, VB6 ramène à ces dimensions et ta boucle ne risque alors pas de s'arrêter !
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
PS il sera au passage également souhaitable que tu veuilles bien accepter de commencer à présenter tes lignes de code entre balises code (comme chacun des développeurs, ici).
Ces efforts sont la marque minimum de la bonne volonté minimum attendue par cette communauté; Tu seras respecté lorsque tu commenceras à t'en préoccuper.