Bonjour,

J'aimerai afficher un UserControl (.ascx) différent suivant le type d'utilisateur qui se connecte à mon site (nous sommes ici en .Net 2.0).

Dans mon code HTML :

Déclaré en début de page html avant le <head> :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %>
 
<%@ Register Src="HeaderEleve.ascx" TagName="HeaderEleve" TagPrefix="uc1" %>
<%@ Register Src="HeaderProf.ascx" TagName="HeaderProf" TagPrefix="uc2" %>
<%@ Register Src="HeaderDir.ascx" TagName="HeaderDir" TagPrefix="uc3" %>
<%@ Register Src="HeaderParent.ascx" TagName="HeaderParent" TagPrefix="uc4" %>
<%@ Register Src="HeaderAdm.ascx" TagName="HeaderAdm" TagPrefix="uc5" %>
<%@ Register Src="Footer.ascx" TagName="Footer" TagPrefix="uc6" %>
Puis, ensuite, j'appelle ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
 
<body>
<div style="margin-left:40px"><form id="form1" runat="server"></div><div style="margin-left:40px"><div style="margin-left:40px"><div></div></div><div style="margin-left:40px"><div style="margin-left:40px"><div style="margin-left:40px"><%= EnTete()%></div></div></div><div style="margin-left:40px"><div style="margin-left:40px"></div</div></div><div style="margin-left:40px"></form></div></body>
Dans mon code Vb, je renvois ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function EnTete()
        Dim LigneHeader As String
        LigneHeader = ""
        Select Case Session("TPU")
            Case 1
                LigneHeader = "<uc1:HeaderEleve ID=""HeaderEleve1"" runat=""server"" />"
            Case 2
                LigneHeader = "<uc2:HeaderProf ID=""HeaderProf1"" runat=""server"" />"
            Case 3
                LigneHeader = "<uc3:HeaderDir ID=""HeaderDir1"" runat=""server"" />"
            Case 4
                LigneHeader = "<uc4:HeaderParent ID=""HeaderParent1"" runat=""server"" />"
            Case 5
                LigneHeader = "<uc5:HeaderAdm ID=""HeaderAdm1"" runat=""server"" />"
        End Select
        Return LigneHeader
    End Function
Cependant, au lancement de la page, rien ne s'affiche, et, pourtant, cela passe bien dans ma fonction.

Quelqu'un verrait-il un problème quelconque dans ce code ?