------------------------
webForm1.aspx
------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="webForm1.aspx.vb" Inherits="ymages.passeValeurs.webForm1"%>
<html>
<head>
<title>webForm1</title>
</head>
<body>
<form id="frm" method="post" runat="server">
</form>
</body>
</html>
------------------------
webForm1.aspx.vb
------------------------
Namespace passeValeurs
Public Class webForm1
Inherits Page
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Server.Transfer("webForm2.aspx")
End Sub
Public ReadOnly val_1 As String = "bonjour"
Public ReadOnly Property val_2() As String
Get
Return (" ca va")
End Get
End Property
Public Function val_3() As String
Return ("<br />oui et toi ?")
End Function
End Class
End Namespace
------------------------
webForm2.aspx
------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="webForm2.aspx.vb" Inherits="ymages.passeValeurs.webForm2"%>
<html>
<head>
<title>webForm2</title>
</head>
<body>
<form id="frm" method="post" runat="server">
</form>
</body>
</html>
------------------------
webForm2.aspx.vb
------------------------
Namespace passeValeurs
Public Class webForm2
Inherits Page
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim wf1 As webForm1 = CType(Context.Handler, webForm1)
Me.Controls.Add(New LiteralControl("valeurs du webForm1<br />"))
Me.Controls.Add(New LiteralControl(wf1.val_1))
Me.Controls.Add(New LiteralControl(wf1.val_2))
Me.Controls.Add(New LiteralControl(wf1.val_3))
Me.Controls.Add(New LiteralControl("<hr />valeurs du webForm2"))
Dim writer As New StringWriter()
Server.Execute("webForm3.aspx", writer)
Me.Controls.Add(New LiteralControl(writer.ToString))
End Sub
End Class
End Namespace
------------------------
webForm3.aspx
------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="webForm3.aspx.vb" Inherits="ymages.passeValeurs.webForm3"%>
<html>
<head>
<title>webForm3</title>
</head>
<body>
<form id="frm" method="post" runat="server">
</form>
</body>
</html>
------------------------
webForm3.aspx.vb
------------------------
Namespace passeValeurs
Public Class webForm3
Inherits Page
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
InitializeComponent()
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.Controls.Add(New LiteralControl("<hr />valeurs du webForm3"))
End Sub
End Class
End Namespace