pb de variable

Question

salut à tous Private Sub CAPTURE_Click() Dim VTOTAL() Dim VOctet As Byte Dim I, L Open "C:\mes documents\TEST.bmp" For Binary As #1 L = LOF(1) ReDim VTOTAL(L) Close #1 Open "C:\mes documents\TEST.bmp" For Binary As #1 I = 0 Do While Not EOF(1) Get #1, , VOctet VTOTAL(I) = VOctet I = I + 1 Loop Close #1 End Sub Private Sub Text1_Change() LV.Caption = VTOTAL erreur de compilation (procedure sub ou function non definie) End Sub si je rajoute Private Sub Text1_Change() Dim VTOTAL() Dim VOctet As Byte Dim I, L Open "C:\mes documents\TEST.bmp" For Binary As #1 L = LOF(1) ReDim VTOTAL(L) Close #1 Open "C:\mes documents\TEST.bmp" For Binary As #1 I = 0 Do While Not EOF(1) Get #1, , VOctet VTOTAL(I) = VOctet I = I + 1 Loop Close #1 LV.Caption = VTOTAL(Text1.Text) le probleme disparer pourquoi pourquoi ma variable tableau vtotal perd les valeurs de son contenue End Sub

odan71 · Answer

salut,
pour qu'une variable soit lisible dans toutes les proc&#233;dures, tu dois les d&#233;clarer dans la partie g&#233;n&#233;rale de ta form. en la d&#233;clarant dans chaque proc&#233;dure tu luis dis que ta variable n'existe pas au dela de celle ci; c pourquoi elle repart &#224; zero.

bonne prog

"Si tu t&#233;l&#233;phones &#224; une voyante et qu'elle ne d&#233;croche pas avant que &#231;a sonne, raccroche." -- Jean-Claude Vandamme

odan71

VBREP · Answer

merci de tes lumiere odan71

crenaud76 · Answer

Et pourquoi fais-tu un Close #1 pour refaire un Open juste derri&#232;re ? 
Et pour la forme, rajoute un Len = len(VOctet) en bout de ton Open, C'est inutile si al variable est un Byte, mais c'est plus propre, enfin je trouve.

Christophe R

Pb de variable

3 réponses

Discussions similaires