CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 14 05:00:20

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

ASP.Net

> ECHANGE DE VALEURS ENTRE 3 PAGES (TRANSFER / EXECUTE)

ECHANGE DE VALEURS ENTRE 3 PAGES (TRANSFER / EXECUTE)

Information sur la source

Note :
Aucune note

Catégorie :ASP.Net

Niveau :Initié Date de création :10/01/2003 Date de mise à jour :11/04/2003 15:02:37 Vu :8 627

Auteur : ErB

Ecrire un message privé

Site perso

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

on passe les valeurs de webForm1 vers webForm2 et dans webForm2 on execute celles de webForm3

Source

------------------------
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

 ------------------------
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

Conclusion

NameSpace = ymages.passeValeurs a remplacer par le votre = machin.passeValeurs

le code est au plus simple afin de rester clair ,
on peut evidemment passer autant de valeurs qu'on veut  en ajoutant d?autres property ou des methodes

les  lignes du type
Codebehind="webForm1.aspx.vb" Inherits="ymages.passeValeurs.webForm1"%
sont pour visual studio

pour un autre editeur remplacer  Codebehind par src

-------------------------------------------- -----------------------------------------------
er b

ebwm@ymages.com

http://ymages.com
http://isoce le.net

------------------------------------------ -------------------------------------------------

Sources du même auteur

SUITE DE NOMBRES ALESATOIRES DIFFERENTS

LISTER LES COULEURS WEB GRACE A LA REFLEXION

LISTER LES FICHIERS D'UN DOSSIER

IP / HOSTNAME

AJOUTER DES OPTIONS A ADROTATOR

Toutes les sources de ErB

Sources de la même categorie

GUESTBOOK AVEC GRIDVIEW par DanMor498

CHECKED DROPDOWNLIST par fredzool

GRIDVIEW WITH TREEVIEW AND CALLBACK par fredzool

APPELLER UN WEBSERVICE DEPUIS JAVASCRIPT par fredzool

MONEY TEXTBOX WITH EMBEDED JAVASCRIPT par fredzool

Toutes les sources de la catégorie ASP.Net

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio

TECHDAYS PARIS 2012 : CHUCK MORRIS N'A PAS PEUR DES MALWARES, CE SONT LES MALWARES QUI ONT PEUR DE CHUCK MORRIS par ROMELARD Fabrice

[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz

Forum

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : FORMULAIRE par ap24dp

RE : FORMULAIRE par jopop

RE : RECHERCHE COMPOSANT DIAGRAMME AVEC INTERACTION AU CLIC, DéPLACEMENT SOURIS … par gieidea

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

URGENT - Realisation d-un flux standard XML -NewsML- CAHIER DES CHARGES DISPONIBLE
Budget : 400€
Creation de newsletter sur une page Facebook
Budget : 400€
fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System