Passage de variables entre 2 sub [Résolu]

cs_Exha 3 Messages postés lundi 13 décembre 2010Date d'inscription 17 décembre 2010 Dernière intervention - 13 déc. 2010 à 20:28 - Dernière réponse : cs_Exha 3 Messages postés lundi 13 décembre 2010Date d'inscription 17 décembre 2010 Dernière intervention
- 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 

3 réponses

Répondre au sujet
NHenry 14133 Messages postés vendredi 14 mars 2003Date d'inscription 22 avril 2018 Dernière intervention - 13 déc. 2010 à 20:56
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de NHenry
cs_viviane44 38 Messages postés jeudi 27 septembre 2007Date d'inscription 25 mars 2014 Dernière intervention - 15 déc. 2010 à 12:04
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_viviane44
cs_Exha 3 Messages postés lundi 13 décembre 2010Date d'inscription 17 décembre 2010 Dernière intervention - 15 déc. 2010 à 13:10
0
Utile
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.