INSTRUCTION NON VALIDE EN DEHORS DU BLOC TYPE ...

Question

Qu'est-ce que ça veut dire ?? et comment le régler ?
Merci bcp bcp

Ziman · Answer

Donne nous le code a cause duquel cette erreur apparait ce sera + simple pour nous de t'aider !

http://ziman4000.free.fr

cs_MuLLinS · Answer

Private Sub cmdOK_Click()
envoyer(frmOptions.sock1, nom.Text, "gngn@wanadoo.fr", "Receive", "xxx@wanadoo.fr", champion.Text, ["salutcava"], ["smtp.wanadoo.fr"]) As Boolean
End Sub

--------------
Voila le bout de code.
Le prgo se lance bien et ca me met kan je fais ok :

"erreur de compilation, instruction non valide en dehors du bloc type"

MERCI DE MAIDER :(
c'est en rapport avec cette source : 
http://www.vbfrance.com/code.aspx?ID=340

cs_phil23 · Answer

Le message "instruction non valide en dehors du bloc type" vient car le "As Boolean" n'a rien a faire ici. C'est la fonction envoyer qui est de type boolean mais quand tu appelles cette fonction il faut faire comme ça:

Dim Resultat As Boolean
Resultat = envoyer(frmOptions.sock1, nom.Text, "gngn@wanadoo.fr", "Receive", "xxx@wanadoo.fr", champion.Text, "salutcava", "smtp.wanadoo.fr") 

if Resultat = True Then
MsgBox "OK"
Else
MsgBox "Erreur"
End If

INSTRUCTION NON VALIDE EN DEHORS DU BLOC TYPE ...

3 réponses

Discussions similaires