■入力画面 rivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' ページを初期化するユーザー コードをここに挿入します。 Dim strName As String strName = CType(Application("name"), String) TextBox1.Text = strName End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strName As String strName = TextBox1.Text Application("name") = strName
'入力確認画面に遷移 Response.Redirect("WebForm1.aspx") End Sub
■確認画面 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' ページを初期化するユーザー コードをここに挿入します。
Dim strName As String strName = CType(Application("name"), String)
'値をラベルに表示 Label1.Text = strName
'値を隠し項目に表示 TextBox1.Text = strName End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '結果画面に遷移 Response.Redirect("WebForm3.aspx") End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strName As String = TextBox1.Text Application("name") = strName
'入力画面に遷移 Response.Redirect("WebForm1.aspx") End Sub
分類:[.NET]
入力画面と確認画面の二画面を用意しました。
まずは入力画面のフォーム内容を確認画面で表示させ、
かつ確認画面から入力画面に戻るときにフォームの内容を残しておきたいのです。
しかし、Applicationオブジェクトを使用して値の共有をしようとすると、
入力画面のフォーム内容が確認画面に表示されなくなってしまいます。
なにとぞアドバイスをお願いします。
以下がコードとなります。
■入力画面
rivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ページを初期化するユーザー コードをここに挿入します。
Dim strName As String
strName = CType(Application("name"), String)
TextBox1.Text = strName
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strName As String
strName = TextBox1.Text
Application("name") = strName
'入力確認画面に遷移
Response.Redirect("WebForm1.aspx")
End Sub
■確認画面
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ページを初期化するユーザー コードをここに挿入します。
Dim strName As String
strName = CType(Application("name"), String)
'値をラベルに表示
Label1.Text = strName
'値を隠し項目に表示
TextBox1.Text = strName
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'結果画面に遷移
Response.Redirect("WebForm3.aspx")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strName As String = TextBox1.Text
Application("name") = strName
'入力画面に遷移
Response.Redirect("WebForm1.aspx")
End Sub