webform1.aspx.vb

Mastering VBNet Include Source Code

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents txtLast As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtFirst As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEMail As System.Web.UI.WebControls.TextBox
    Protected WithEvents radioComputer As System.Web.UI.WebControls.RadioButtonList
    Protected WithEvents radioBrowser As System.Web.UI.WebControls.RadioButtonList
        Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents chkView As System.Web.UI.WebControls.CheckBoxList
    Protected WithEvents Values As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Values.Text = "LAST NAME " & txtLast.Text
        Values.Text = Values.Text & "<BR>" & "FIRST NAME " & txtFirst.Text
        Values.Text = Values.Text & "<BR>" & "EMAIL " & txtEMail.Text
        Values.Text = Values.Text & "<BR>" & "COMPUTER " & radioComputer.SelectedItem.ToString
        Values.Text = Values.Text & "<BR>" & "BROWSER " & radioBrowser.SelectedItem.ToString
        Dim i As Integer
        Values.Text = Values.Text & "<BR><B>Preferences</B>"
        For i = 0 To chkView.Items.Count - 1
            If chkView.Items(i).Selected Then
                Values.Text = Values.Text & "<BR>" & chkView.Items(i).Value.ToString
            End If
        Next
    End Sub
End Class