Passage de variables entre 2 sub [Résolu]

Messages postés
3
Date d'inscription
lundi 13 décembre 2010
Dernière intervention
17 décembre 2010
- - Dernière réponse : cs_Exha
Messages postés
3
Date d'inscription
lundi 13 décembre 2010
Dernière intervention
17 décembre 2010
- 15 déc. 2010 à 13:10
Bonjour,
J'aimerai savoir s'il est possible d'utiliser une variable déclarée dans un autre Sub, sans pour avoir à retaper le code en dessous.

Plus clairement, j'ai ceci :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim email As New MailMessage()
        email.From = New MailAddress(TextBox1.Text)
        email.To.Add(TextBox3.Text)
        email.Subject = (TextBox4.Text)
        email.Body = (TextBox5.Text)
    End Sub


Et j'aimerai l'utiliser dans :
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged)
        Dim gmail As New SmtpClient("smtp.gmail.com")
        gmail.Port = 587
        gmail.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        gmail.EnableSsl = True

Sans avoir besoin de déclarer "email" une nouvelle fois.

Merci.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
14317
Date d'inscription
vendredi 14 mars 2003
Dernière intervention
10 décembre 2018
3
Merci
Bonjour,

Tu as un problème de porté de variable, ta variable est déclarée dans une Sub, donc elle est locale à la sub.
Pour pouvoir étendre sa portée, mets-la par exemple au niveau de la classe :

Private email as MailMessage

Mon site

Merci NHenry 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de NHenry
Messages postés
38
Date d'inscription
jeudi 27 septembre 2007
Dernière intervention
25 mars 2014
3
Merci
Il faut la déclarer en Global tout en haut du prog

Option Explicit
Dim email As New MailMessage()

Private Sub Form1_Load.........
..
end sub

Private Sub RadioButton1_CheckedChanged..
...
end sub

Merci cs_viviane44 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de cs_viviane44
Messages postés
3
Date d'inscription
lundi 13 décembre 2010
Dernière intervention
17 décembre 2010
0
Merci
Merci pour ces réponses rapides et précises. :)
Commenter la réponse de cs_Exha

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.