Problème Exécution en Release mais pas en Debug

Version imprimable

Voir 40 message(s) de cette discussion en une page

03/08/2007, 16h17
nono27200

Problème Exécution en Release mais pas en Debug

Bonjour à tous,

Je suis face à un problème que je n'arrive pas à résoudre... J'espère que les pros du VB seront là pour y remédier...
Je suis en train de porter une appli VB6 de Windows 2000 Server vers Windows 2003 Server. POur le moment, tous mes composants passent bien (Dll(s) et Exe(s)) mais j'ai un dernier Exe qui me sert à tester une fonctionnalité du programme.
Ce dernier passe avec succès en mode Debug, mais lorsque je crée l'exe et que je le lance, lorsque j'arrive sur une des fonctionnalités, le programme me sort une erreur : Run-time error '440': Automation error

Je n'arrive pas à comprendre d'où cela peut venir..... Surtout qu'en mode Debug, tout fonctionne à merveille....

Donc je m'en remets à vous... Je ne sais plus où chercher....

En espérant que quelqu'un puisse me venir en aide !!!!

++
03/08/2007, 16h36
Vld44

CreateObject qui pointe sur une dll avec path en dur.
03/08/2007, 17h00
nono27200

Je suis en train de reprendre tout le code (que je n'ai pas développé moi-même... ça aurait trop simple :? ) pour voir où il, pourrait y avoir un CreateObject un peu bizaroïde.....

Mais pour ce qui est du path en dur j'ai un léger doute car entre ma machine en Windows 2000 (qui fontionne bien depuis plusieurs années) et mon serveur en 2003 (qui je l'espère fonctionnera un jour) j'ai exactement la même arborescence de répertoires....??

Est-ce vraiment la seule option possible que d'avoir un path en dur dans un CreateObject ou cela peut venir d'autre part ?? Je ne suis pas assez calé en VB pour pouvoir juger de cela, et j'avance petit à petit, à tatons.....

Si d'autres personnes ont des idées, tout le monde est le bienvenu.!!!!!!!!

Encore merci pour votre aide !!

++
03/08/2007, 17h25
Vld44

arrête de tout mélanger ...

1) met des traces pour savoir où ça plante
2) rien avoir avec l'OS, car si ça marche en release c'est bon

T'as fait une recherche dans ton soft avec "Createobject" ?
03/08/2007, 17h36
nono27200

Oui, je viens de faire une recherche des CreateObject et j'ai mis un point d'arrêt sur chaque CreateObject présent dans le programme (Exe et Dll dépendantes), mais je ne m'arrête nulle part.....???... :(

J'ai aussi essayé autre chose : Copier / Coller le fichier Exe depuis mon serveur 2000 vers mon 2003 (je n'ai copié que l'exe et pas les dll) mais là je me retrouve, dès le lancement de l'exe avec une erreur run-time error '-2147221231 (80040111)' Automation error ClassFactory cannot supply requested class

Toi qui est expert en la matière, si je copie l'intégralité des exe et dll depuis mon serveur 2000 vers mon 2003 avec la même arborescence en référençant bien mes dll et mes ocx, tu penses qu'il n'y a aucun problème pour la migration 2000 vers 2003 ?

Encore merci pour ton aide !!!!!
03/08/2007, 17h59
ced600

Utilises tu des objets WMI ou des librairies windows ?
Parce que certaine méthode de ces librairies peuvent ne plus exister sous 2003, ou plus chiant, certaines méthodes peuvent avoir un comportement différent.

En général quand cela marche en debug et pas en release c'est qu'il y a un problème au niveau de l'édition de liens.
03/08/2007, 18h06
Vld44

nan faut le trouver ton problème, et moi pour ma culture personnelle je veux savoir d'où ça vient exactement.

Met des breakpoints de partout qui te sortent des messagebox step by step et repère où ça pète précisément, dans ton code.
06/08/2007, 09h34
nono27200

Merci pour vos réponses.
Je m'y colle et je vous donne des news dès que j'ai trouvé qqch

Mais mon problème est que même si je mets des points d'arrêt, ça ne se plante pas.

En fait ce que j'appelle la "release" est l'exécution de l'exe... Je ne sais pas si je me suis bien exprimé sur ce point.
En fait quand j'exécute le code en faisant "play" dans VisualStudio6, tout passe bien, mais quand je crée l'exe et que je le lance, ça se plante !!

Si vous avez des idées pour que je puisse savoir d'où ça peut venir...???

++
06/08/2007, 10h00
nono27200

Librairies utilisées pour le projet

Voici la liste des librairies utilisées pour le projet :

Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE Automation
Microsoft XML, v3.0
Microsoft Scripting Runtime
Microsoft Visual Basic 6.0 Extensibility
Microsoft Internet Controls ->(shdocvw.dll)
Microsoft Internet Controls ->(shdocvw.oca)
Microsoft ActiveX Data Objects 2.6 Library
Micsosoft Active Server Page Object Library
Micsosoft Active Server Page ObjectContext Object
TIBCO Rendezvous 7.2 (librairie Tibco qui nous sert à envoyer / recevoir des données temps réel entre applications)

Je ne sais pas si ça peut vous éclairer sur un éventuel problème...???

Je me remets au boulot pour trouver la résolution de ce problème !!

++
06/08/2007, 10h26
OhMonBato

Comme te le suggérait vld, on a bien compris que ça plante pas en mode édition mais uniquement sur l'exe. Donc puisque tu ne peux pas mettre de point d'arret sur un Exe, mets des msgbox à differents endroits de ton programme, du style "Programme arrivé à la phase 1", "Programme arrivé à la phase 2", etc...
Différencies tes messages box, s'ils ont tous le meme message ça va pas être pratique. :mouarf:
Tu sauras donc ensuite que ton programme plante entre telle et telle msgbox. Si tu les a pas mal espacé dans ton code, remet des messages box intermédiaires dans la zone de plantage. Est ce plus clair ?
06/08/2007, 10h34
nono27200

Oui, c'est plus clair !! J'avais lu un peu trop rapidement le message ...

Je vais commencer à les mettre et je vous donne des news...

Encore merci :D

++
06/08/2007, 11h06
ced600

Citation:

En fait quand j'exécute le code en faisant "play" dans VisualStudio6, tout passe bien, mais quand je crée l'exe et que je le lance, ça se plante !!

J'aimerais bien avoir plus d'info la dessus : Fait tu play avec ou sans point d'arrêt.
En gros est ce que cela à déjà fonctionner en mode débug sans mettre de point d'arrêt ?

Avancée dans l'analyse de l'erreur

Citation:

J'aimerais bien avoir plus d'info la dessus : Fait tu play avec ou sans point d'arrêt.
En gros est ce que cela à déjà fonctionner en mode débug sans mettre de point d'arrêt ?

Oui, cela fontionne avec ou sans point d'arrêt indéfféremment, quand je le lance en faisant "Play" dans VisualStudio6.

Citation:

Je vais commencer à les mettre et je vous donne des news...

Je viens de trouver le moment exact où ça plante.
J'explique rapidement comment fontionne le programme. Il y a des boutons sur le form et on a des boutons qui sont actifs ou inactifs suivant le stade d'avancement (il y a par exemple un bouton Create, Puis un bouton Initialiser qui s'active quand le Create a fini, etc...)
A un moment, je fais un Load File, et il passe dans le code ci-dessous
Tout se passe bien pour le moment (tm a un state = 2)
Puis je clique sur un autre bouton, et tm a toujours state = 2 (c'est voulu que le state de tm ne change pas entre les deux clics)
Donc je repasse au même endroit, je rentre bien dans le if
Et il se plante sur le "LastTimeLabel.Caption = "NO VALUE AVAILABLE""
Pour mémoire, Je me retrouve avec une erreur :
Run-time error '440':
Automation error
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 If tm.GetState = 2 Then LastTimeLabel.Caption = "NO VALUE AVAILABLE" If lt2 = -1 Then LastTimeValideLabel.Caption = "NO VALUE AVAILABLE" Else LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal" End If Frame2.Enabled = True Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID 'Frame3.Enabled = True 'LogGrid.Visible = True StatusLabel.ForeColor = &HC000& StatusLabel.Caption = "(2) TRANSACTING" CreateBtn.Enabled = False InitBtn.Enabled = False BeginBtn.Enabled = False PriceBtn.Enabled = True RollbackBtn.Enabled = True CommitBtn.Enabled = False CancelPriceBtn.Enabled = False DestroyBtn.Enabled = True SaveBtn.Enabled = True LoadBtn.Enabled = True CopyBtn.Enabled = True PasteBtn.Enabled = True LoadDealBtn.Enabled = True UpdateDealBtn.Enabled = False RemoveDealBtn.Visible = True AddDealBtn.Visible = True AddDealBtn.Enabled = True InstrCombo.Visible = True DealList.Visible = True ViewerBtn.Visible = True Viewer2Btn.Visible = True Exit Sub

06/08/2007, 11h25
nono27200

Petite précision sur l'analyse de l'erreur

Je viens de tester de mettre en commentaire le
"LastTimeLabel.Caption = "NO VALUE AVAILABLE""

A ce moment là il plante sur le suivant (LastTimeValideLabel.Caption = "NO VALUE AVAILABLE")

et ainsi de suite.......

++
06/08/2007, 11h26
Vld44

tu as tronqué le code ? Il manque un End if quelque part là.

NB : essaye de lancer ton projet sous Visual Studio, en debug donc, mais en faisant CONTROLE + F5 au lieu de F5.

Dis moi ce qu'il se passe ... :)
06/08/2007, 11h33
nono27200

Citation:

tu as tronqué le code ? Il manque un End if quelque part là.

Oui désolé,
En fait juste après la dernière ligne de code "End Sub", il y a le End If"
Le code que j'ai mis est en fait une partie d'une fonction. Pour des raisons de confidentialité du client, je suis désolé, mais je dois en mettre le moins possible...

Citation:

essaye de lancer ton projet sous Visual Studio, en debug donc, mais en faisant CONTROLE + F5 au lieu de F5.
Dis moi ce qu'il se passe ...

C'est la même. Tou se passe nickel !!???!!!
Ce qui est hallucinant, c'est qu'au premier passage, en exe, le "LastTimeLabel.Caption = "NO VALUE AVAILABLE"" passe nickel, mais au second passage, il se plante lamentablement ......??
06/08/2007, 13h56
Vld44

t'as combien de projets dans ton exe, un seul ou plusieurs ? (groupe de projet)

qu'est-ce que c'est comme composant LastTimeLabel ?

a+

Citation:

t'as combien de projets dans ton exe, un seul ou plusieurs ? (groupe de projet)

J'ai un seul Exe, et 3 Dll auxquelles je fais appel, mais ces Dll sont liées en référence, ce n'est pas un groupe de projets.

Citation:

qu'est-ce que c'est comme composant LastTimeLabel ?

C'est un type Label classique (j'affiche un label dans mon formulaire)

Je viens de tester la chose suivante (le code ci-dessous est une partie du code que j'ai envoyé ci-avant)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 If tm.GetState = 2 Then MsgBox (LastTimeLabel.Caption) LastTimeLabel.Caption = "NO VALUE AVAILABLE" If lt2 = -1 Then LastTimeValideLabel.Caption = "NO VALUE AVAILABLE" Else LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal" End If Frame2.Enabled = True Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID 'Frame3.Enabled = True 'LogGrid.Visible = True StatusLabel.ForeColor = &HC000& StatusLabel.Caption = "(2) TRANSACTING" '........etc.............. End Sub End If
Lors du lancement de la MsgBox, il me plante avec la même erreur ('440'), comme si mon objet semblait ne pas exister, alors que je suis dans le même formulaire et que je suis déjà passé sur ce code avant en cliquant sur le 1er bouton...???
Clic sur Bouton1 appelé dans le code InitBtn : je passe dans le code avec un state = 2 et tout se passe bien
Clic sur bouton2 appelé dans le code PriceBtn : Lors de l'appel aux composants du formulaire, il me plante....???

ET TOUT ça UNIQUEMENT EN RELEASE ....?????........

:arf:

06/08/2007, 14h25
ced600

Une possibilité est que tu détruis ton lasttimelabel après la première exécution et donc il n'est plus accessible à la deuxième exécution.
Vérifie si tu ne le detruis pas.
06/08/2007, 14h25
OhMonBato

Soit ce n'est pas une copie brute de ton code, soit y'a erreur parce que "End if" APRES "End Sub" ça le fait pas.... ;)

Mais on ne sait pas d'où vient cette procédure... Est elle dans le code de la feuille où sont placés tes contrôles ? Dans un module à part ? Peux tu essayer en précisant le nom de ta feuille avant le nom du contrôle voir si tu as toujours l'erreur ?
06/08/2007, 14h32
Delbeke

Il est egalement possible que l'erreur se declenche sur

Code:

If tm.GetState = 2 Then

Essaye de mettre juste avant un

Code:

MsgBox "Test de Tm " & tm.GetState

Il serait d'ailleurs interressant de savoir ce qu'est cet objet Tm
06/08/2007, 14h36
OhMonBato

Ha zut, je comptais sur toi pour nous le dire, je me disais "Espérons que Delbeke se pointe avec sa boule de cristal". Tu l'as cassée ? :aie:
06/08/2007, 14h41
ced600

Tiens je te prête la mienne :
tm signifie : Tu te démerdes, Moi je compte sur tes dons de divination.
:mouarf:
06/08/2007, 14h46
nono27200

Merci pour toutes vos réponse et pour votre aide.
Je vais donc essayer de répondre le plus précisemment possible à tout le monde :P

ced600 :

Citation:

Une possibilité est que tu détruis ton lasttimelabel après la première exécution et donc il n'est plus accessible à la deuxième exécution.
Vérifie si tu ne le detruis pas.

Non aucune destruction n'est faite. Je peux par exemple cliquer plusieurs fois sur le bouton1 qui fonctionne bien (appelé dans le code LoadButon). Ce clic permet de charger un fichier. Je peux par exemple charger un fichier, puis recliquer dessus pour charger un autre fichier à la place.....

OhMonBato

Citation:

Soit ce n'est pas une copie brute de ton code, soit y'a erreur parce que "End if" APRES "End Sub" ça le fait pas....

Désolé, j'ai été un peu vite. C'est en fait
Exit Sub
End If

Citation:

Mais on ne sait pas d'où vient cette procédure... Est elle dans le code de la feuille où sont placés tes contrôles ? Dans un module à part ? Peux tu essayer en précisant le nom de ta feuille avant le nom du contrôle voir si tu as toujours l'erreur ?

Tout est dans la même Form (Appelée MainWindow). J'ai tout de même essayé de forcer le nom en faisant un MainWindows.LastTimeLabel.Caption, mais ça ne change rien

Delbeke :

Citation:

Il est egalement possible que l'erreur se declenche sur

Code :

Code:

If tm.GetState = 2 ThenEssaye de mettre juste avant un

Code :

Code:

MsgBox "Test de Tm " & tm.GetState

J'ai mis des MsgBox un peu partout (je n'ai pas posté le code tout polué par les MsgBox), mais je rentre bien dans le If, et c'est vraiment au moment de l'appel au 1er objet de la feuille que je plante.
Exemple ici, je plante sur LastTimeLabel.Caption, mais si je commente cette ligne, je rentre bien dans le if qui suit (If lt2 = -1 Then) et à ce moment là je plante sur le LastTimeValideLabel.Caption, etc, etc.....

Citation:

Il serait d'ailleurs interressant de savoir ce qu'est cet objet Tm

Mon objet Tm est un objet un peu complexe appelé "TransactionManager".
Je peux regarder un peu plus en détail dedans, mais l'objet existe et est bien reconnu (par exemple, il a une propriété Count que j'arrive à afficher dans une MsgBox).
Cet Objet TransactionManager est défini dans une des dll qui sont rattachées à mon Exe.

--------- Je vois pendant que je poste ce message que de nouveaux messages sont postés sur le forum. Je répondrai aux autres questions dans quelques minutes :D Encore Merci à tous pour votre aide !!!!!!!!-----------
06/08/2007, 14h56
OhMonBato
pour vérifier que tes controles sont toujours là avec leur nom d'origine, tu peux ajouter ça en début de ta procédure :
Code:

1 2 3 4 5 Dim toto As Control For Each toto In MainWindows MsgBox toto.Name Next
06/08/2007, 14h56
ced600

Peux tu poster tout ton code ?
06/08/2007, 14h58
OhMonBato

A priori non :

Citation:

Envoyé par nono27200

Le code que j'ai mis est en fait une partie d'une fonction. Pour des raisons de confidentialité du client, je suis désolé, mais je dois en mettre le moins possible...
06/08/2007, 15h03
ced600

Tes labels se trouve où ? Directement sur la form ? dans un panel ou un autre container ?
06/08/2007, 15h03
Vld44
tu charges comment ta mainwindow ? Essaye si ce n'est pas déjà comme ça que tu fais de l'instancier de la sorte dès le départ :
Code:

1 2 3 4 dim objMain as mainwindow set objMain = new mainwindow objMain.show [vbmodal] ' <= à toi de voir
06/08/2007, 15h07
nono27200

J'essaie tout ça et je vous reviens avec les réponses.

Pour ce qui est du code à poster, c'est chaud... :?

Je poste une réponse dans qques minutes dès que j'ai fait les tests que vous me proposez...

!!++!!
06/08/2007, 15h22
nono27200

Bon alors voilà des nouvelles... On avance petit à petit...
Citation:
pour vérifier que tes controles sont toujours là avec leur nom d'origine, tu peux ajouter ça en début de ta procédure :

Code :

Code:

1 2 3 4 5 Dim toto As Control For Each toto In MainWindows MsgBox toto.Name Next
Excellent comme Idée
Résultat :
Passage avec le bouton1 (LoadBtn) -> 33 éléments
Passage avec le bouton2 (PriceBtn) -> Plantage Erreur 440

Citation:

Tes labels se trouve où ? Directement sur la form ? dans un panel ou un autre container ?

Mes labels sont directement dans mon Form MainWindow

Citation:

tu charges comment ta mainwindow ? Essaye si ce n'est pas déjà comme ça que tu fais de l'instancier de la sorte dès le départ :

Ma MainWindow est lancée par défaut et c'est toujours sur cette form que je clique (au fur et à mesure des clics, certains boutons s'activent ou pas, mais je reste toujours UNIQUEMENT sur la même Form....
06/08/2007, 15h25
ced600

Peux tu mettre le code qui se trouve derriere le bouton 2 ?

Un peu plus de Code (Accepté par la hiérarchie :) )

Code LoadBtn_Click (le bouton 1 qui fontionne)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Private Sub LoadBtn_Click()
On Error GoTo ErrorHandler:
    InitComboDeal
 
    CommonDlg.DialogTitle = "Charger un lot"
    CommonDlg.DefaultExt = "xml"
    CommonDlg.Filter = "*.xml"
    CommonDlg.FilterIndex = 0
    CommonDlg.ShowOpen
 
    If (True) And (CommonDlg.filename <> "") Then
 
        Dim content As String
 
        'Open CommonDlg.FileName For Binary Access Read As #1
        'Input #1, content
        'Close #1
 
        Dim Node As MSXML2.IXMLDOMNode
        Dim block As MSXML2.IXMLDOMElement
        Dim bs As BlockSerializer
        Dim xmldoc As MSXML2.DOMDocument30
        Dim root As MSXML2.IXMLDOMElement
 
        Set bs = New BlockSerializer
        Set xmldoc = New MSXML2.DOMDocument30
        If Not xmldoc.Load(CommonDlg.filename) Then MsgBox "Error loadXML" 'Error (0)
 
        For Each Node In xmldoc.documentElement.childNodes
            If Node.nodeName = "BLOCK" Then
                Set block = Node
            End If
        Next
 
        bs.ReadBlockTM tm, block
 
    End If
    RefreshInterface
    RefreshDealList
    RefreshLogList
    Exit Sub
 
ErrorHandler:
    MsgBox "Impossible de charger le lot !"
    tm.RollbackBlock
    RefreshInterface
    RefreshDealList
    RefreshLogList
End Sub

Code de PriceBtn_Click (bouton2 qui plante)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub PriceBtn_Click()
    Dim t1 As Date
    Dim t2 As Date
    Dim r As Boolean
 
    t1 = Now
    r = tm.PriceBlock
    t2 = Now
    lt = DateDiff("s", t1, t2)
 
 
    RefreshLogList
    RefreshInterface
 
    If Not r Then
       ErrorDialog.ViewError tm.GetLastErrorObject
    End If
 
End Sub

Code de RefreshInterface, la procédure où ça plante. Elle est appelée par les 2 boutons, et les 2 boutons passent chacun au même endroit, dans le If tm.Getstate = 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
 
Private Sub RefreshInterface()
    If tm Is Nothing Then
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &H0
        StatusLabel.Caption = "NOT CREATED"
 
        CreateBtn.Enabled = True
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = False
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = False
        SaveBtn.Enabled = False
        LoadBtn.Enabled = False
        CopyBtn.Enabled = False
        PasteBtn.Enabled = False
        LoadDealBtn.Enabled = False
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 0 Then
 
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &HFF&
        StatusLabel.Caption = "(0) NOT READY"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = True
        BeginBtn.Enabled = False
        PriceBtn.Enabled = False
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = False
        LoadBtn.Enabled = False
        CopyBtn.Enabled = False
        PasteBtn.Enabled = False
        LoadDealBtn.Enabled = False
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 1 Then
 
        LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
        Frame2.Enabled = False
        Frame2.Caption = "Lot en cours"
        'Frame3.Enabled = False
        'LogGrid.Visible = False
        StatusLabel.ForeColor = &H80C0FF
        StatusLabel.Caption = "(1) READY"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = True
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = False
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = False
        LoadBtn.Enabled = True
        CopyBtn.Enabled = False
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = False
        AddDealBtn.Visible = False
        InstrCombo.Visible = False
        DealList.Visible = False
        ViewerBtn.Visible = False
        Viewer2Btn.Visible = False
 
        Exit Sub
    End If
    If tm.GetState = 2 Then
 
    '---------------
     Dim toto As Control
 
 
    MsgBox (MainWindow.Count)
 
    For Each toto In MainWindow
        MsgBox toto.Name
    Next
    '---------------
 
 
 
 
        MsgBox ("avant nouveau test")
        MainWindow.LastTimeLabel.Caption = "TEST"
        MsgBox ("après nouveau test - avant ancien test")
       LastTimeLabel.Caption = "NO VALUE AVAILABLE"
        MsgBox ("après ancien test")
        If lt2 = -1 Then
            LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        Else
            LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        End If
 
 
        Frame2.Enabled = True
        Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID
        'Frame3.Enabled = True
        'LogGrid.Visible = True
        StatusLabel.ForeColor = &HC000&
        StatusLabel.Caption = "(2) TRANSACTING"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = True
        CommitBtn.Enabled = False
        CancelPriceBtn.Enabled = False
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = True
        LoadBtn.Enabled = True
        CopyBtn.Enabled = True
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = True
        AddDealBtn.Visible = True
        AddDealBtn.Enabled = True
        InstrCombo.Visible = True
        DealList.Visible = True
        ViewerBtn.Visible = True
        Viewer2Btn.Visible = True
        Exit Sub
    End If
    If tm.GetState = 3 Then
 
    MsgBox ("State 3")
 
        'LastTimeLabel.Caption = CStr(lt) & " s" & ", " & CStr(lt / tm.Deals.Count) & " s/deal"
        'If lt2 = -1 Then
        '    LastTimeValideLabel.Caption = "NO VALUE AVAILABLE"
        'Else
        '    LastTimeValideLabel.Caption = CStr(lt2) & " s" & ", " & CStr(lt2 / LastDealCount) & " s/deal"
        'End If
 
        Frame2.Enabled = True
        Frame2.Caption = "Lot en cours - " & tm.GetCurrentTKBlockID
        'Frame3.Enabled = True
        'LogGrid.Visible = True
        StatusLabel.ForeColor = &HFF00&
        StatusLabel.Caption = "(3) VALIDABLE"
 
        CreateBtn.Enabled = False
        InitBtn.Enabled = False
        BeginBtn.Enabled = False
        PriceBtn.Enabled = True
        RollbackBtn.Enabled = True
        CommitBtn.Enabled = True
        CancelPriceBtn.Enabled = True
        DestroyBtn.Enabled = True
        SaveBtn.Enabled = True
        LoadBtn.Enabled = True
        CopyBtn.Enabled = True
        PasteBtn.Enabled = True
        LoadDealBtn.Enabled = True
        UpdateDealBtn.Enabled = False
 
        RemoveDealBtn.Visible = True
        AddDealBtn.Visible = True
        AddDealBtn.Enabled = False
        InstrCombo.Visible = True
        DealList.Visible = True
        ViewerBtn.Visible = True
        Viewer2Btn.Visible = True
 
        Exit Sub
    End If
End Sub

En espérant que ça vous éclaire !!!

06/08/2007, 15h28
nono27200

Je voudrais juste rappeler la chose hallucinante qui se produit, c'est qu'en Debug, ça fonctionne, mais en release ça plante !!!

:arf:
06/08/2007, 15h33
ced600
Chaque chose en son temps.

Pour le code du bouton deux pourrais tu essayer d'inverser l'appel de ces deux fonctions : RefreshLogList, RefreshInterface.
Et donc de faire :
Code:

1 2 3 4 5 6 7 t1 = Now r = tm.PriceBlock t2 = Now lt = DateDiff("s", t1, t2) RefreshInterface RefreshLogList
06/08/2007, 15h37
nono27200

Idem.....

En regardant ce qu'il y a dans RefreshLogList, en fait ce n'est que du code commenté... on n'y ferait pas appel ce serait pareil... (je ne suis pas à l'origine du code... je l'ai récupéré et je suis chargé de le migrer... :? ------ je ne sais pas si j'ai bien fait d'accepter cette mission....... :D )
06/08/2007, 15h45
ced600

Citation:

je ne sais pas si j'ai bien fait d'accepter cette mission

Avais tu vraiment le choix ?
06/08/2007, 15h46
ced600

Que fait "RefreshDealList" ?
06/08/2007, 15h47
Vld44

et en appelant directement bouton2, ça plante aussi ?

question con, t'es sûr de ce que renvoie tm.PriceBlock ? Booléen ?

RefreshDealLIst :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub RefreshDealList() DealList.Clear Dim DList As Collection Dim CurrDeal As GenericDeal Set DList = tm.Deals If DList Is Nothing Then Exit Sub For Each CurrDeal In DList DealList.AddItem CurrDeal.TKDealID & " - " & CurrDeal.InstrumentName Next End Sub
Je regarde plus précisemment et je te donne plus d'infos sur son utilité !!

Je vais essayer de le virer de la procédure de bouton1 et voir si ça plante au niveau du bouton 1

++

Voir 40 message(s) de cette discussion en une page