1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| ' Permet de charger les formulaires de saisie
Private Sub ChargeFormulaire()
' Si un type a bien été choisi et qu'aucun formulaire n'a été chargé
If VarSession.Mailing.FormulaireEnvoi <> 0 Then
If PH_Envoi.Controls.Count <> 0 Then
PH_Envoi.Controls.RemoveAt(0)
End If
' Si le type de courrier choisi est : courrier ou fax
If VarSession.Mailing.FormulaireEnvoi = Constantes.Courrier Or VarSession.Mailing.FormulaireEnvoi = Constantes.Fax Then
' On charge le formulaire de saisie d'un courrier papier
MPapier = CType(LoadControl("MailingPapier.ascx"), MailingPapier)
MPapier.TypeCourrier = VarSession.Mailing.FormulaireEnvoi
MPapier.EnableViewState = False
PH_Envoi.Controls.Add(MPapier)
Else
' Sinon on charge le formulaire de saisie d'un courrier électronique
MEmail = CType(LoadControl("MailingEmail.ascx"), MailingEmail)
'MEmail.EnableViewState = False
PH_Envoi.Controls.Add(MEmail)
End If
End If
End Sub
[...]
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
' Chargement du formulaire de saisie du courrier
Me.ChargeFormulaire()
End Sub
[...]
' Evènement lié au choix d'un type de courrier
Private Sub DDL_Type_Courrier_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DDL_Type_Courrier.SelectedIndexChanged
' Si un type a bien été choisi
If DDL_Type_Courrier.SelectedValue <> "-1" Then
VarSession.Mailing.FormulaireEnvoi = Convert.ToInt32(DDL_Type_Courrier.SelectedValue)
' On lance le chargement du formulaire correspondant
Me.ChargeFormulaire()
End If
' On vide les variables de session
Me.VideSession()
End Sub
[...] |