Discussion :

[Geo2A]

Bonjour,

J'ai un soucis. Un programme qui fonctionnait parfaitement. Je lui fais quelques mise à jour régulière.
Or depuis ce matin mon exe ne fonctionne plus si je le compile en code natif.
Il marche en mode dev sous VS6, il marche si je compile en P-code.
Le problème se situe au niveau du chargement d'une feuille qui comporte des contrôles. La feuille s'appelle Fdessin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MDIForm1.Move 0, 0, Screen.Width, Screen.Height
msgbox("1")
Fdessin.Show
msgbox("2")
Set f = New nomfichier

Le msgbox("1") s'affiche, pas le "2".
Si je répète le même mode de debug via msgbox dans l'événement load de Fdessin, il parcours toutes les lignes de code jusqu'au End Sub de l'événement load, mais là il ne rend pas la main.
En fait le programme affiche un sablier et boucle de manière infinie.

Je suppose que le soucis vient du fait qu'il n'arrive pas à charger un contrôle ou un composant mais comment puis-je remédier à cela ?
Je suppose qu'il s'agit du fichier Fdessin.frx qui est corrompu mais comment remédier à cela ?
La solution P-Code n'étant pas du tout satisfaisante compte tenu des temps de réponse.

Merci par avance à celui qui aura une piste.

[Geo2A]

Bonjour,

Ne cherchons plus cela vient de l'événement paint du picturebox situé sur la feuille Fdessin.

Pourquoi ça c'est une autre question.

[Geo2A]

Bopnjour,

Pour ceux que ça intéresse une erreur à ne pas commettre :

Un extrait du code de l'événement Paint du picturebox, qui est encapsulé dans un module de classe toto qui possède une méthode paint.
Ne sachant pas si mon tableau mListeParcelle est dimensionné ou non j'avais gérer la chose comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
On Error Resume Next
err.clear
 
For i = 0 To UBound(mListeparcelle)
Call mListeparcelle(i).dessine(mdc, True)
Next i
Call Legende.dessine(mdc)
 
On Error GoTo 0

Et en mode compilé (code natif) UNIQUEMENT je me retrouve avec une boucle infinie dans le for next !!!!