0

我正在做一个小项目。

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

结束类

在我的Form2后面..只有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>

谢谢

4

2 回答 2

0

你这里的操纵是什么意思？请进一步澄清

您可以使用 asession来存储文本框的值，以在其他页面上执行您想要的操作。

于 2011-04-17T12:10:19.240 回答
0

如果您提交表单，则从“Form2.aspx”到“Default.aspx”，而不是在请求中拥有它（“Get”或“POST”）。

如果没有，您可以为要从页面外部编辑的每个输入编写公共属性，或者通过会话、查询字符串、缓存等传递值...

于 2011-04-17T07:57:44.847 回答