https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10711#CommentId22816
投稿者 あきこ  (その他) 投稿日時 2012/2/18 16:38:59
ラオシスさん、ご返答有難うございました。
情報が足りず申し訳ありませんでした。
私は今、visual studio 2010からvisual basic/ web/ ASP.net web applicationを使用してます。

るきおさんが使って説明されているのはWindows フォーム アプリケーションですが、
裏のコードのほうを参考にしています。

まず、私は、Page1からの情報をPage2で受け取りたいです。
今、行っているのは、
[Page1.aspx]

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Page1</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="txtValue1" runat="server"></asp:TextBox>
        +
        <asp:TextBox ID="txtValue2" runat="server"></asp:TextBox>
        <br /><br />
        <asp:Button ID="btnCalculatel" runat="server" Text="Calculate" /> 
        <br /><br />
        <asp:TextBox ID="txtAnswerValue" runat="server"></asp:TextBox>
        <br /><br />
        <asp:Button ID="btnSubmit" runat="server" Text="Submit" 
            PostBackUrl="~/Page2.aspx" />
    </div>
    </form>
</body>
</html>

[Page1.asp.vb]

Public Class Page1
    Inherits System.Web.UI.Page

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

    End Sub


    Protected Sub btnCalculatel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCalculate.Click
        Dim X As Decimal
        Dim Y As Decimal


        X = txtValue1.Text()
        Y = txtValue2.Text()
        txtAnswerValue.Text = X + Y

    End Sub
End Class

以上のコードで変数を２つ入力すると、Caluculaで計算結果がテキストボックスに出力される。

その後SubmitボタンでPage2に答えを送信する

[Page2.aspx]

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="txtAnswer1" runat="server"></asp:TextBox>
    </div>
    </form>
</body>
</html>

[Page2.aspx.vb]
Public Class Page2
    Inherits System.Web.UI.Page

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

        If Not Me.Page.PreviousPage Is Nothing Then
            Dim text1 As TextBox _
                = CType(Me.Page.PreviousPage.FindControl("txtAnswerValue"), TextBox)
            If Not text1 Is Nothing Then
                Me.txtAnswer1.Text = text1.Text
            End If


        End If
    End Sub

End Class

となると、Page2にｔｘｔAnswerValue(計算結果)の値が表示されます。
しかし、私が行いたいことは、
Page1に計算結果を表示せず
Page1のSubmitボタンをクリックするとPage2に計算結果が表示されるようにしたいです。

説明が下手ですいません。
どの構文を使えばよいなどでもかまいませんので、
また、お答えいただければうれしいです。よろしくお願いします。
0