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.OrderForm
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadMaskedTextBox2 As Telerik.WebControls.RadMaskedTextBox
      Protected WithEvents CreditCards As System.Web.UI.WebControls.DropDownList
      Protected ExpirationDate As Telerik.WebControls.RadDateInput
      Protected Dateinput1 As Telerik.WebControls.RadDateInput
      Protected WithEvents ButtonOrder As System.Web.UI.WebControls.Button
      Protected RadMaskedTextBox1 As Telerik.WebControls.RadMaskedTextBox
      Protected TextBoxPrice As System.Web.UI.WebControls.TextBox
      Protected Label1 As System.Web.UI.WebControls.Label
      
      
      Private creditCardMasks() As String = {"4###############", "<51..55>#############", "<34|37>#############", "6011############", "<3|1800|2131>##############", "<300|301|302|303|304|305|36|38>############"}
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      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 CreditCards_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles CreditCards.SelectedIndexChanged
         RadMaskedTextBox2.Mask = creditCardMasks(CreditCards.SelectedIndex)
      End Sub 'CreditCards_SelectedIndexChanged
      
      
      Private Sub ButtonOrder_Click(sender As Object, e As System.EventArgs) Handles ButtonOrder.Click
         Label1.Text = "Your order has been processed. " + TextBoxPrice.Text + " " + RadMaskedTextBox1.Text + "s have been taken from your account."
      End Sub 'ButtonOrder_Click
   End Class 'DefaultVB
End Namespace 'Telerik.InputExamplesVB.Functionality.OrderForm