Как я могу манипулировать переменной с другой страницы ASP - PullRequest
Новая
       69

Как я могу манипулировать переменной с другой страницы ASP

0 голосов
/ 17 апреля 2011

Я делаю маленький проект.

Я хочу манипулировать текстовым полем Form2.aspx из моего Default.aspx

вот мой код 

Public Class _Default
Inherits System.Web.UI.Page
Dim stats As Form2 = New Form2()
Dim sim As Simulation = New Simulation()
Dim unique(5) As Integer
Dim gagnant(5) As Integer
Dim taux(5) As Integer
Dim tsS As DateTime = New DateTime()
Dim tsF As TimeSpan = New TimeSpan()

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Public Sub Simuler_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    'Prise du temps pour le calcul du temps de l'Exécution
    tsS = DateTime.Now


    'Générer aléatoirement le billet Gagnant
    unique = sim.GenerateGagnant()

    'Afficher les numéros du billet gagnant
    stats.numG1.Text = unique(0).ToString()
    stats.numG2.Text = unique(1).ToString()
    stats.numG3.Text = unique(2).ToString()
    stats.numG4.Text = unique(3).ToString()
    stats.numG5.Text = unique(4).ToString()
    stats.numG6.Text = unique(5).ToString()

    'Générer les billets des acheteurs
    Dim nbBillet As Integer = sim.GenerateBillet(Integer.Parse(tbX.Text), Integer.Parse(tbY.Text), Integer.Parse(tbS.Text))

    'Comparer les billets des acheteurs au billet gagnant et afficher les résultats
    gagnant = sim.comparer()

    'Prendre en mémoire les taux (%) en entrée
    taux(0) = Integer.Parse(tbP1.Text)
    taux(1) = Integer.Parse(tbP2.Text)
    taux(2) = Integer.Parse(tbP3.Text)
    taux(3) = Integer.Parse(tbP4.Text)
    taux(4) = Integer.Parse(tbP5.Text)
    taux(5) = Integer.Parse(tbP6.Text)

    'Récupérer l'historique du fichier et l'afficher

    Dim s As String = sim.lireFic()
    'historique.rtbHisto.Text = s

    'Récupérer le prix unitaire des billets en entrée
    Dim prix As Integer = Integer.Parse(tbPrix.Text)
    'Calcul des gains bruts de la Loto et les afficher
    Dim gains As Integer = prix * nbBillet
    stats.tbGains.Text = gains.ToString()

    'Calcul et affichage en $ des remises pour chaque catégorie 
    'taux * les gains total * le nb de gagnant dans la catégorie
    stats.tbA1.Text = (taux(0) / 100) * gains
    stats.tbA2.Text = (taux(1) / 100) * gains
    stats.tbA3.Text = (taux(2) / 100) * gains
    stats.tbA4.Text = (taux(3) / 100) * gains
    stats.tbA5.Text = (taux(4) / 100) * gains
    stats.tbA6.Text = (taux(5) / 100) * gains

    'Calcul des pertes de la LOTO
    Dim pertes As Integer = calcul(gains)

    'Calcul du profit NET
    stats.tbPertes.Text = pertes.ToString()
    stats.tbNet.Text = Integer.Parse(stats.tbGains.Text) - pertes

    'Fin de l'exécution et affichage de l'intervale dans la fenetre STATS
    tsF = DateTime.Now.Subtract(tsS)
    historique.tbTime.Text = tsF.Seconds & "." & tsF.Milliseconds
End Sub

Конечный класс

в моей форме 2 позади.. есть только pageLoad, но в aspx есть текстовое поле numG1 to numG5

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Form2.aspx.vb" Inherits="Loto6_49_ASP.Form2" %>


<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Résultats</title>
</head>
<body>
<form id="form1" runat="server">
<div>
               <asp:TextBox ID="numG1" runat="server" Width="42px"></asp:TextBox>

               <asp:TextBox ID="numG2" runat="server" Width="42px"></asp:TextBox>

               <asp:TextBox ID="numG3" runat="server" Width="42px"></asp:TextBox>

               <asp:TextBox ID="numG4" runat="server" Width="42px"></asp:TextBox>

               <asp:TextBox ID="numG5" runat="server" Width="42px"></asp:TextBox>


               <asp:TextBox ID="numG6" runat="server" Width="42px"></asp:TextBox>

</div>
</form>
</body>
</html>

спасибо

Ответы [ 2 ]

0 голосов
/ 17 апреля 2011

что вы подразумеваете под манипуляциями здесь? Пожалуйста, уточнение

вы можете использовать session для хранения значения текстового поля, чтобы делать то, что вы хотите на других страницах.

0 голосов
/ 17 апреля 2011

Если вы отправите форму из «Form2.aspx» в «Default.aspx», чем она у вас есть в запросе («Получить» или «POST»).

Если нет, вы можете написать открытое свойство для каждого ввода, которое вы хотите редактировать, за пределами страницы или передать значения по сеансу, строке запроса, кешу и т. Д. ...

...