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

Ce site au démarrage

begin process at 2010 03 19 09:13: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 :7 670

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

UTILISATION DE LA MÉTHODE SORT ET SORTDIRECTION AVEC UN GRID... par jesusonline

CUSTOM DATEPIKER DÉRIVANT DE COMPOSITECONTROL par fredzool

UN MODULE POUR APPRENDRE SQL par Elmarzougui

BOUTON QUI EMPECHE LE MULTI CLIC AVANT LA FIN DU TRAITEMENT.... par fredzool

BOUTON AVEC CSS ET USERCONTROL WITH EVENT 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

TECHDAYS 2010 GENèVE : RETROUVEZ-MOI POUR UNE SESSION SUR LA HAUTE DISPONIBILITé ET LE SCALEOUT AVEC SQL SERVER par christian

[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril

CERTIFICATIONS BETA .NET 4 par KooKiz

[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo

LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE

Forum

CLAVIER ET PLUSIEURS CHAMPS par mejdi26

URGENT :UN PLUGIN DE DéTECTION DE MATéRIEL POUR UNE WEB APPLICATION SOUS ASP. NET par issamesisa

CARTE VIRTUAL EARTH SUR MON SITE ASP.NET par djwaza

RE : ASPNETDB & CO par nhervagault

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

plaquette - logo
Budget : 350€
Gestion clientele JEE
Budget : 500€
URGENT Travaux PAO iWork 09 arabe hebreu anglais captures ecran
Budget : 400€

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

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

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods