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.
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
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); } } }
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?
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
Merci d'avance pour vos réponses.
Partager