"Pb" VB6

Question

Dans le code suivant vous allez me dire : "Marche pas car il y a 2 fois la déclaration de la variable !!", Et bien chez moi cela marche !!
Oui, oui, ça marche et sans erreur !


--  Dans général  --
Dim Calling, dossier
------------------------

Private Sub CmdExit_Click()
    End
End Sub

Private Sub Form_Load()
    Dim bSound() As Byte
    bSound = LoadResData(101, "CUSTOM")

    Set fs = CreateObject("Scripting.FileSystemObject")
    Dim dossier
    Set dossier = fs.GetSpecialFolder(2) ' récupère le temp
    Open dossier & "\extract.exe" For Binary Access Write As #1
        Put #1, , bSound
        Erase bSound
    Close #1
    Calling = Shell(dossier & "\extract.exe", vbMaximizedFocus)
    Timer1.Enabled = True
End Sub


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Gobillot · Answer

C'est normal, c'est ta variable Locale qui est prioritaire, même avec Option EXplicit VB ne râle pas, mais faut éviter ce genre de truc !

Gobillot · Answer

PS: t'as caché ton fichier Flash dans ton fichier ressource, mais t'as pas caché ton fichier extract.exe 
Alors n'importe qui peut ...

Daniel

cboulas · Answer

En fait il n'y a qu'une partie du code car il y a un timer qui régule le focus de la fenêtre flash et si celui-ci est fermer le fichier est automatiquement fermer.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_LordBob · Answer

je tiens juste a signaler, que le fait qu'une variables globale et une variable locale portent le meme nom est une méthode de programmation a bannir... elle ne peut attirer que des ennuies !!!
Bob...

"La chance accorde ses faveur aux esprits avertis..."

"Pb" VB6

4 réponses

Discussions similaires