[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
コーディングです。
下記が前回作ったフォームです、
"Button1"をダブルクリックしイベントを記述します。
TextBox1のTextをLabel1にTextとして代入、
Panel1を表示させます。
再度フォームに戻って同様に"Button2"をダブルクリックし
イベントを記述します。
"Button2"をクリックした際は"Default2.aspx"へ
画面を遷移させます。
同様に"Button3"を押した際は
"Panel1"を非表示、Panel2を表示させます。
"Panel2"が表示の際、"Button4"を押した際は"TextBox1"を
クリアし、"Panel2"を非表示とする処理を追加しました。
と言う事でデバッグです、Web.configの内容変更に
対する確認が表示されました、"Ok"ボタンをクリック。
此方も"はい"ボタンをクリック。
無事表示されました。
何も入力せず"button1"を押すと
"RequiredFieldValidator1"と"Panel1"に怒られます。
何か入力して"button1"を押すと"Panel1"が表示され、
Label1にTextBox1の内容が表示されます。
"button2"をクリックすると・・・
"Default2.aspx"画面に遷移しました。
ブラウザの戻るボタンを押して"button3"をクリックすると・・・
"Panel2"が表示されました、
"button4"をクリックすると"TextBox1"がブランク、
"Panel2"が非表示となり初期画面に戻ります。
以下は"Default1.aspx.vb"のソースです。
----------------------------------------
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack = False Then
Panel1.Visible = False
Panel2.Visible = False
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TextBox1.Text
Panel1.Visible = True
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Response.Redirect("Default2.aspx")
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Panel1.Visible = False
Panel2.Visible = True
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
Panel2.Visible = False
End Sub
End Class
----------------------------------------