defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart


Namespace Telerik.InputExamplesVB.Functionality.RegistrationForm
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected Radmaskedtextbox2 As Telerik.WebControls.RadMaskedTextBox
      Protected Radmaskedtextbox3 As Telerik.WebControls.RadMaskedTextBox
      Protected Radmaskedtextbox4 As Telerik.WebControls.RadMaskedTextBox
      Protected WithEvents Button1 As System.Web.UI.WebControls.Button
      Protected DataGrid1 As System.Web.UI.WebControls.DataGrid
      Protected RadMaskedTextBox1 As Telerik.WebControls.RadMaskedTextBox
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            BindGrid()
         End If
      End Sub 'Page_Load
      
      
      
      Private ReadOnly Property DataSource() As DataTable
         Get
            If Session("DataSourceCS") Is Nothing Then
               Dim data As New DataTable()
               data.Columns.Add("Title")
               data.Columns.Add("First Name")
               data.Columns.Add("Last Name")
               data.Columns.Add("Social Security")
               Session("DataSourceCS") = data
            End If
            Return CType(Session("DataSourceCS"), DataTable)
         End Get
      End Property
      
      
      Private Sub BindGrid()
         DataGrid1.DataSource = DataSource
         DataGrid1.DataBind()
      End Sub 'BindGrid
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
         DataSource.Rows.Add(New Object() {RadMaskedTextBox1.Text, Radmaskedtextbox2.Text, Radmaskedtextbox3.Text, Radmaskedtextbox4.TextWithLiterals})
         BindGrid()
      End Sub 'Button1_Click
   End Class 'DefaultVB
End Namespace 'Telerik.InputExamplesVB.Functionality.RegistrationForm