忍者ブログ
最新記事
(08/05)
(07/11)
(06/25)
(06/24)
(06/24)
ブログ内検索
カテゴリー
プロフィール
HN:
Toy Scooter
性別:
男性
職業:
はいぱー情報通信・電気くりえーたー
趣味:
読書
自己紹介:
wiki始めました・・・
//
統一性の無いblogになってきました、 資格とかLinuxとか・・・。
[110]  [109]  [108]  [107]  [106]  [105]  [104]  [103]  [102]  [101]  [100
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

今回は前回作ったフォームに対する
コーディングです。

下記が前回作ったフォームです、
"Button1"をダブルクリックしイベントを記述します。
vb_web_iii_00.png

TextBox1のTextをLabel1にTextとして代入、
Panel1を表示させます。
vb_web_iii_01.png

再度フォームに戻って同様に"Button2"をダブルクリックし
イベントを記述します。
"Button2"をクリックした際は"Default2.aspx"へ
画面を遷移させます。
同様に"Button3"を押した際は
"Panel1"を非表示、Panel2を表示させます。
"Panel2"が表示の際、"Button4"を押した際は"TextBox1"を
クリアし、"Panel2"を非表示とする処理を追加しました。
vb_web_iii_02.png

と言う事でデバッグです、Web.configの内容変更に
対する確認が表示されました、"Ok"ボタンをクリック。
vb_web_iii_03.png

此方も"はい"ボタンをクリック。
vb_web_iii_04.png

無事表示されました。
vb_web_iii_05.png

何も入力せず"button1"を押すと
"RequiredFieldValidator1"と"Panel1"に怒られます。
vb_web_iii_06.png

何か入力して"button1"を押すと"Panel1"が表示され、
Label1にTextBox1の内容が表示されます。
"button2"をクリックすると・・・
vb_web_iii_07.png

"Default2.aspx"画面に遷移しました。
vb_web_iii_08.png

ブラウザの戻るボタンを押して"button3"をクリックすると・・・
vb_web_iii_07.png

"Panel2"が表示されました、
"button4"をクリックすると"TextBox1"がブランク、
"Panel2"が非表示となり初期画面に戻ります。
vb_web_iii_09.png

以下は"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
----------------------------------------

PR
この記事にコメントする
お名前
タイトル
文字色
メールアドレス
URL
コメント
パスワード   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
この記事へのトラックバック
この記事にトラックバックする:
この記事のURL:       
忍者ブログ*[PR]