Salut à tous,

Je viens d'installer Visual Studio version express (pour VB.Net) en vue de développer des composants Webpart à intégrer dans un site Sharepoint.

Pour ce faire, je suis un tutoriel sur le sujet duquel j'ai extrait une classe que j'ai tout bonnement copié collé dans mon VSexpress.
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
26
27
28
29
30
31
32
33
34
using System;
using System.Collections.Generic;
using System.Text;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
 
 
namespace HelloUser
{
    public class HelloUser : WebPart
    {
        Label CurrentUserName = null;
        protected override void CreateChildControls()
        {
            CurrentUserName = new Label();
            if (HttpContext.Current.User.Identity.IsAuthenticated)
            { CurrentUserName.Text = "Bonjour " + HttpContext.Current.User.Identity.Name;
            }
            else
            {
                CurrentUserName.Text = "Bonjour inconnu(e)";
            }
 
            Controls.Add(CurrentUserName);
        }
 
        protected override void RenderContents(HtmlTextWriter writer)
        {
            CurrentUserName.RenderControl(writer);
        }
    }
}
Comme c'est du C#, j'ai fait la transposition en code VB :
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
26
 
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Namespace HelloUser
Public Class HelloUser
Inherits WebPart
Private CurrentUserName As Label = Nothing
Protected Overrides Sub CreateChildControls()
CurrentUserName = New Label()
If HttpContext.Current.User.Identity.IsAuthenticated Then
CurrentUserName.Text = "Bonjour " & HttpContext.Current.User.Identity.Name
Else
CurrentUserName.Text = "Bonjour inconnu(e)"
End If
Controls.Add(CurrentUserName)
End Sub
Protected Overrides sub RenderContents(HtmlTextWriter writer)
CurrentUserName.RenderControl(writer)
End Sub
End Class
End Namespace
Ma question est la suivante : Est-ce le fait d'une bride sur la version express ou s'agit-il d'une erreur de ma part?

Merci d'avance pour vos réponses.