Demande d'aide traduction et explication page asp

**battit64** · 07/12/2007, 16h46

bonjour,
Y aurait 'il une bonne ame pour m'expliquer et me traduire ce code de c# en vb
Cela permet de désactiver la masterpage...via page?aspx?id=noframe par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
public partial class Default : CSLib.Web.UI.Page
{
 
    protected void page_PreInit(object sender, EventArgs e)
    {
       Boolean RenderOnlyPage = false;
      Boolean.TryParse(Request.QueryString["nomaster"], out RenderOnlyPage);
       this.RenderOnlyPage = RenderOnlyPage;
       this.RenderOnlyOneContentPlaceHolder = "ContentPlaceHolder1";
    }
}

dans ce cas, si ma requete est default.aspx la page entiere va s'afficher (avec la masterpage) et si la requete est default.aspx?nomaster=true, la page s'affichera sans le masterpage

et

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
using System;
 using System.Collections.Generic;
 using System.Text;
 using System.Web.UI;
 
 namespace CSLib.Web.UI
 {
 public class Page : System.Web.UI.Page
 {
 
 #region "Constructor"
 public Page()
 {
 this.Init += new EventHandler(Page_Init);
 }
 #endregion
 
 #region "Property"
 
 private Boolean renderOnlyPage = false;
 /// <summary>
 /// if true, the page would render only ContentPlaceHolder
 /// </summary>
 public Boolean RenderOnlyPage
 {
 get { return renderOnlyPage; }
 set { renderOnlyPage = value; }
 }
 
 private string renderOnlyOneContentPlaceHolder = string.Empty ;
 public string RenderOnlyOneContentPlaceHolder
 {
 get { return renderOnlyOneContentPlaceHolder; }
 set { renderOnlyOneContentPlaceHolder = value; }
 }
 
 
 #endregion
 
 /// <summary>
 /// List of ContentPlaceHolder
 /// </summary>
 private List<Control> _Control = new List<Control>();
 
 void Page_Init(object sender, EventArgs e)
 {
 if (RenderOnlyPage)
 {
 // parcours récursif sur tous les controles de la page
 CheckContentPlaceHolderRecursive(this);
 
 // suppression de tous les controles de la page
 // pour ensuite rajouter nos contentPlaceHolder
 this.Controls.Clear();
 foreach (Control c in _Control)
 this.Controls.Add(c);
 }
 }
 
 /// <summary>
 /// fonction recursive, qui fouille dans les controles de la page pour trouver
 /// un ContentPlaceHolder
 /// </summary>
 /// <param name="control"></param>
 private void CheckContentPlaceHolderRecursive(Control control)
 {
 if (control is System.Web.UI.WebControls.ContentPlaceHolder)
 {
 if (RenderOnlyOneContentPlaceHolder == string.Empty )
 _Control.Add(control);
 else if (control.ID == RenderOnlyOneContentPlaceHolder)
 _Control.Add(control);
 }
 else if (control.Controls.Count > 0)
 foreach (Control c in control.Controls)
 CheckContentPlaceHolderRecursive(c);
 }
 
 /// <summary>
 /// Cette méthode déclenche un evenement, si un control ayant besoin d'une balise form
 /// (c'est le cas des controles avec postback) est absent.
 /// En surchargeant cette méthode on passe outre cette limitation.
 /// </summary>
 /// <param name="control"></param>
 public override void VerifyRenderingInServerForm(Control control)
 {
 if (!RenderOnlyPage)
 base.VerifyRenderingInServerForm(control);
 }
 }
 }

**npuzin** · 07/12/2007, 17h48

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
public partial class Default : CSLib.Web.UI.Page
{
 
protected void page_PreInit(object sender, EventArgs e)
{
Boolean RenderOnlyPage = false;
Boolean.TryParse(Request.QueryString["nomaster"], out RenderOnlyPage);
this.RenderOnlyPage = RenderOnlyPage;
this.RenderOnlyOneContentPlaceHolder = "ContentPlaceHolder1";
}
}

Je ne parle pas le VB désolé.

Dans l'évenement PreInit de ta page, tu récupères dans la querystring le contenu de la variable nomaster.

Tu affectes le résultat (true/false) à la propriété RenderOnlyPage de ta page et tu affectes "ContentPlaceHolder1" à la propriété RenderOnlyOneContentPlaceHolder de ta page.

Le TryParse permet juste de ne pas générer d'exception si "nomaster" ne se trouve pas dans la querystring ou si la valeur n'est pas un boolean valide.

Je laisse le soin a un autre traducteur le soin de traduire la suite

**gderenne** · 07/12/2007, 18h30

Envoyé par battit64

Code CS :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
public partial class Default : CSLib.Web.UI.Page
{
 
    protected void page_PreInit(object sender, EventArgs e)
    {
       Boolean RenderOnlyPage = false;
      Boolean.TryParse(Request.QueryString["nomaster"], out RenderOnlyPage);
       this.RenderOnlyPage = RenderOnlyPage;
       this.RenderOnlyOneContentPlaceHolder = "ContentPlaceHolder1";
    }
}

Salut,

Je dirais pour cette partie :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Partial Class DefaultPage
    Inherits System.Web.UI.Page
 
    Protected Sub page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim RenderOnlyPage As Boolean = False
        RenderOnlyPage = CBool(Request.QueryString("nomaster"))
        Me.RenderOnlyPage = RenderOnlyPage
        Me.RenderOnlyOneContentPlaceHolder = "ContentPlaceHolder1"
    End Sub
End Class

Mais bon, c'est une traduction literale...

Je tente la suite, et je post.

**SaumonAgile** · 07/12/2007, 19h58

La prochaine fois, merci de penser aux balises [CODE] et deuxième chose il existe des tas de traducteurs C# - VB.NET sur le net.

**gderenne** · 07/12/2007, 21h34

Envoyé par SaumonAgile

La prochaine fois, merci de penser aux balises [CODE] et deuxième chose il existe des tas de traducteurs C# - VB.NET sur le net.

Merci pour l'info, ca m'interessait également...

J'avais traduit ce code par déduction (ne sachant pas s'il fonctionnait car je n'avais pas tout le contexte...).

**battit64** · 09/12/2007, 14h19

merci bcq je savais pas qu'il y avait des convertisseurs...
merci à tous

**battit64** · 11/12/2007, 09h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class [Default]
  Inherits CSLib.Web.UI.Page
 
  Protected Sub page_PreInit(ByVal sender As Object, ByVal e As EventArgs)
    Dim RenderOnlyPage As Boolean = False
    [Boolean].TryParse(Request.QueryString("nomaster"), RenderOnlyPage)
    Me.RenderOnlyPage = RenderOnlyPage
    Me.RenderOnlyOneContentPlaceHolder = "ContentPlaceHolder1"
  End Sub
End Class

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Web.UI
Namespace CSLib.Web.UI
  Public Class Page
    Inherits System.Web.UI.Page
 
'Region ""Constructor""
    Public Sub New()
      AddHandler Me.Init, AddressOf Page_Init
    End Sub
'End Region
 
'Region ""Property""
 
    Private renderOnlyPage As Boolean = False
    ''' <summary>
    ''' if true, the page would render only ContentPlaceHolder
    ''' </summary>
    Public Property RenderOnlyPage() As Boolean
      Get
        Return renderOnlyPage
      End Get
      Set
        renderOnlyPage = value
      End Set
    End Property
 
    Private renderOnlyOneContentPlaceHolder As String = String.Empty
    Public Property RenderOnlyOneContentPlaceHolder() As String
      Get
        Return renderOnlyOneContentPlaceHolder
      End Get
      Set
        renderOnlyOneContentPlaceHolder = value
      End Set
    End Property
 
 
'End Region
 
    ''' <summary>
    ''' List of ContentPlaceHolder
    ''' </summary>
    Private _Control As New List(Of Control)()
 
    Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
      If RenderOnlyPage Then
        ' parcours récursif sur tous les controles de la page
        CheckContentPlaceHolderRecursive(Me)
 
        ' suppression de tous les controles de la page
        ' pour ensuite rajouter nos contentPlaceHolder
        Me.Controls.Clear()
        For Each c As Control In _Control
          Me.Controls.Add(c)
        Next
      End If
    End Sub
 
    ''' <summary>
    ''' fonction recursive, qui fouille dans les controles de la page pour trouver
    ''' un ContentPlaceHolder
    ''' </summary>
    ''' <param name="control"></param>
    Private Sub CheckContentPlaceHolderRecursive(ByVal control As Control)
      If TypeOf control Is System.Web.UI.WebControls.ContentPlaceHolder Then
        If RenderOnlyOneContentPlaceHolder = String.Empty Then
          _Control.Add(control)
ElseIf control.ID = RenderOnlyOneContentPlaceHolder Then
          _Control.Add(control)
        End If
ElseIf control.Controls.Count > 0 Then
        For Each c As Control In control.Controls
          CheckContentPlaceHolderRecursive(c)
        Next
      End If
    End Sub
 
    ''' <summary>
    ''' Cette méthode déclenche un evenement, si un control ayant besoin d'une balise form
    ''' (c'est le cas des controles avec postback) est absent.
    ''' En surchargeant cette méthode on passe outre cette limitation.
    ''' </summary>
    ''' <param name="control"></param>
    Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
      If Not RenderOnlyPage Then
        MyBase.VerifyRenderingInServerForm(control)
      End If
    End Sub
  End Class
End Namespace

Si quelqu'un peut m'aider car le code me met une erreur recursive surtout à ce niveau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Property RenderOnlyPage() As Boolean
      Get
        Return renderOnlyPage
      End Get
      Set
        renderOnlyPage = value
      End Set
    End Property

en fait si quelqu'un pourrait m'expliquer comment fonctionne ce code car j'avour que je rame, je precise que mon but et via pages.aspx?nomaster=true, je supprime le masterpage et je ne garde que le placeholder de la page

balises code ajoutées par lutecefalco, merci d'y penser la prochaine fois

**lutecefalco** · 11/12/2007, 09h27

Balise code stp =>

**battit64** · 11/12/2007, 13h59

désolé

**gderenne** · 11/12/2007, 17h42

Envoyé par battit64

désolé

Donc, il faut que tu Edite ton post et que tu selectionne ton script pour l'encadrer par une balise "#" comme indiqué par lutecefalco...

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Edit.Post

**battit64** · 11/12/2007, 18h59

ok merci pour l'avoir fait......

**battit64** · 16/12/2007, 10h42

personne peut m'aider....!

ou est ce quelqu'un aurait une idée pour faire ça simplement, c'est à dire la possibilité d'ouvrir une page sans le masterpage en lui envoyant une variable
merci

**gderenne** · 19/12/2007, 22h35

Je proposerais de le faire à l'ancienne (comme en ASP3...), c'est à dire, mettre des <%...%> avec conditions pour appliquer ou non la masterpage.

Par exemple :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<%
If Request.QueryString("masterpage") = "True" Then
  Response.Write ("@page...")
End If
%>
<!-- Ici le code XHTML ASPX -->
<%
If Request.QueryString("masterpage") = "True" Then
  Response.Write ("<asp:content...>")
End If
%>

Attention, j'ai tapé ce code en vrac sans rien vérifier... C'est uniquement pour donner l'idée principale.

**Philippe Vialatte** · 19/12/2007, 22h56

Envoyé par battit64

Si quelqu'un peut m'aider car le code me met une erreur recursive surtout à ce niveau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Property RenderOnlyPage() As Boolean
      Get
        Return renderOnlyPage
      End Get
      Set
        renderOnlyPage = value
      End Set
    End Property

en fait si quelqu'un pourrait m'expliquer comment fonctionne ce code car j'avour que je rame, je precise que mon but et via pages.aspx?nomaster=true, je supprime le masterpage et je ne garde que le placeholder de la page

balises code ajoutées par lutecefalco, merci d'y penser la prochaine fois

C'est normal que ca boucle, en vb, le code n'est pas case-sensitive...

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Property RenderOnlyPage() As Boolean
      Get
        Return renderOnlyPage
      End Get
      Set
        renderOnlyPage = value
      End Set
    End Property

Ca ne marchera po

Par contre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Property RenderOnlyPage() As Boolean
      Get
        Return _renderOnlyPage
      End Get
      Set
        _renderOnlyPage = value
      End Set
    End Property

ca devrait marcher mieux (a condition de renommer ta variable privée renderOnlyPage en _renderOnlyPage)

Ceci dit, ca serait peut-etre plus simple de faire dans ta masterpage une fonction genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Protected Sub SetVisible(ByVal isVisible As boolean)
 
  ' on va dire que les composants que tu veux masquer sont le menu menu1 et une div div1
menu1.Visible = isVisible
div1.Visible = isVisible
 
End Sub

Et dans les pages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Public Class Page
    Inherits System.Web.UI.Page
 
  Protected Sub page_PreInit(ByVal sender As Object, ByVal e As EventArgs)
    Dim hideMaster As Boolean
    [Boolean].TryParse(Request.QueryString("nomaster"), hideMaster )
    Me.MasterPage.isVisible= !hideMaster 
  End Sub

Je crois que par contre, tu dois ajouter a Page une directive MasterQuelqueChose, je 'nai pas de vs sous la main, je regarde ca demain si tu veux ...

**battit64** · 21/12/2007, 14h50

Envoyé par pvialatte

C'est normal que ca boucle, en vb, le code n'est
Par contre :
Ceci dit, ca serait peut-etre plus simple de faire dans ta masterpage une fonction genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Protected Sub SetVisible(ByVal isVisible As boolean)
 
  ' on va dire que les composants que tu veux masquer sont le menu menu1 et une div div1
menu1.Visible = isVisible
div1.Visible = isVisible
 
End Sub

As tu eu le temps de chercher ....?

Et dans les pages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Public Class Page
    Inherits System.Web.UI.Page
 
  Protected Sub page_PreInit(ByVal sender As Object, ByVal e As EventArgs)
    Dim hideMaster As Boolean
    [Boolean].TryParse(Request.QueryString("nomaster"), hideMaster )
    Me.MasterPage.isVisible= !hideMaster 
  End Sub

Je crois que par contre, tu dois ajouter a Page une directive MasterQuelqueChose, je 'nai pas de vs sous la main, je regarde ca demain si tu veux ...

Demande d'aide traduction et explication page asp

ASP.NET

Discussions similaires

Partager

Partager