Bonjour à tous !

Depuis quelques temps, sous Visual Studio 2017, que ce soit sur de nouveau projets directement crée dedans ou d'ancien projet migré vers 2017, j'ai des messages avec mes UserControl.

Je suis sous Vb.net.

exemple :
Dans ma page .aspx j'ai mon userControl renseigné comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
<%@ Register Src="~/wucMetier/wucInitBandeau.ascx" TagPrefix="uc1" TagName="wucInitBandeau" %>
et employé comme ceci dans .aspx.vb
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
wucInitBandeau.SetUser(UserAgence)
wucInitBandeau.Ecran = "- Initialisation"
J'au par exemple sur la première ligne, d'affectation du User, le message suivant :
Une référence à l'assembly 'App_Code.raj9wqoq, Version=0.0.0.0, Cultures=neutral, PublicKeyToken=null' contenant le type 'User' est requise. Ajoutez-en une à votre projet.

Dans mon userControl j'ai bien ma méthode :
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
19
20
21
22
23
24
25
 
Public Sub SetUser(ByVal user As Francelot.User)
 
        If IsNothing(user) = False Then
 
            If IsNothing(user.strNom) AndAlso IsNothing(user.strPrenom) Then
                lUser.Text = String.Format("{0}", user.strNomUser)
            Else
                lUser.Text = String.Format("{0} {1}", user.strNom, user.strPrenom)
            End If
 
            Select Case user.EstDeSexe
                Case Francelot.User.Sexe.Feminin
                    lUser.CssClass = "userF"
                Case Else
                    lUser.CssClass = "userM"
            End Select
 
            lAgence.Text = user.Agence.strNomAgence
        Else
            lUser.Text = "Inconnu."
            lAgence.Text = "Inconnue."
        End If
 
    End Sub
Le code fonctionne, si je tape un appel à SetUser l'intellisense fonctionne, je ne comprends pas le problème...

Merci d'avance pour vos éclaircissement.