formregistration.vb

Programming the .NET Compact Framework with vb 源代码

' -----------------------------------------------------------------------------
' Code from _Programming the .NET Compact Framework with VB_
' and _Programming the .NET Compact Framework with C#_
' (c) Copyright 2002-2004 Paul Yao and David Durant. 
' All rights reserved.
' -----------------------------------------------------------------------------

Imports System.Windows.Forms
Imports System.Drawing

Public Class FormRegistration
   Inherits System.Windows.Forms.Form

   '  Need this to write some sample code later
   Private genderMember As String

   Friend WithEvents optAdult As RadioButton
   Friend WithEvents optChild As RadioButton
   Friend WithEvents optAssociate As RadioButton

#Region " Windows Form Designer generated code "

   Public Sub New()
      MyBase.New()

      'This call is required by the Windows Form Designer.
      InitializeComponent()

      'Add any initialization after the InitializeComponent() call

   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      MyBase.Dispose(disposing)
   End Sub

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   Friend WithEvents panelMemberType As System.Windows.Forms.Panel
   Friend WithEvents lblID As System.Windows.Forms.Label
   Friend WithEvents lblPC As System.Windows.Forms.Label
   Friend WithEvents lblGender As System.Windows.Forms.Label
   Friend WithEvents lblBorn As System.Windows.Forms.Label
   Friend WithEvents textID As System.Windows.Forms.TextBox
   Friend WithEvents textStreet As System.Windows.Forms.TextBox
   Friend WithEvents textCity As System.Windows.Forms.TextBox
   Friend WithEvents textSP As System.Windows.Forms.TextBox
   Friend WithEvents textPC As System.Windows.Forms.TextBox
   Friend WithEvents textBorn As System.Windows.Forms.TextBox
   Friend WithEvents optFemale As System.Windows.Forms.RadioButton
   Friend WithEvents optMale As System.Windows.Forms.RadioButton
   Friend WithEvents panelAddress As System.Windows.Forms.Panel
   Friend WithEvents bttnAdd As System.Windows.Forms.Button
   Friend WithEvents menuMain As System.Windows.Forms.MainMenu
   Friend WithEvents lblStreet As System.Windows.Forms.Label
   Friend WithEvents lblCity As System.Windows.Forms.Label
   Friend WithEvents lblSP As System.Windows.Forms.Label
   Friend WithEvents panelSponsor As System.Windows.Forms.Panel
   Friend WithEvents lblSponsID As System.Windows.Forms.Label
   Friend WithEvents textSponsID As System.Windows.Forms.TextBox
   Friend WithEvents panelWho As System.Windows.Forms.Panel
   Friend WithEvents lblName As System.Windows.Forms.Label
   Friend WithEvents textName As System.Windows.Forms.TextBox
   Friend WithEvents panelChild As System.Windows.Forms.Panel
   Friend WithEvents cboxCity As System.Windows.Forms.ComboBox
   Private Sub InitializeComponent()
      Me.menuMain = New System.Windows.Forms.MainMenu
      Me.optAdult = New System.Windows.Forms.RadioButton
      Me.optChild = New System.Windows.Forms.RadioButton
      Me.optAssociate = New System.Windows.Forms.RadioButton
      Me.panelMemberType = New System.Windows.Forms.Panel
      Me.lblID = New System.Windows.Forms.Label
      Me.lblPC = New System.Windows.Forms.Label
      Me.lblGender = New System.Windows.Forms.Label
      Me.lblBorn = New System.Windows.Forms.Label
      Me.textID = New System.Windows.Forms.TextBox
      Me.textStreet = New System.Windows.Forms.TextBox
      Me.textCity = New System.Windows.Forms.TextBox
      Me.textSP = New System.Windows.Forms.TextBox
      Me.textPC = New System.Windows.Forms.TextBox
      Me.textBorn = New System.Windows.Forms.TextBox
      Me.optMale = New System.Windows.Forms.RadioButton
      Me.optFemale = New System.Windows.Forms.RadioButton
      Me.panelAddress = New System.Windows.Forms.Panel
      Me.cboxCity = New System.Windows.Forms.ComboBox
      Me.lblSP = New System.Windows.Forms.Label
      Me.lblCity = New System.Windows.Forms.Label
      Me.lblStreet = New System.Windows.Forms.Label
      Me.bttnAdd = New System.Windows.Forms.Button
      Me.panelSponsor = New System.Windows.Forms.Panel
      Me.lblSponsID = New System.Windows.Forms.Label
      Me.textSponsID = New System.Windows.Forms.TextBox
      Me.panelWho = New System.Windows.Forms.Panel
      Me.textName = New System.Windows.Forms.TextBox
      Me.lblName = New System.Windows.Forms.Label
      Me.panelChild = New System.Windows.Forms.Panel
      '
      'optAdult
      '
      Me.optAdult.Location = New System.Drawing.Point(8, 8)
      Me.optAdult.Size = New System.Drawing.Size(56, 20)
      Me.optAdult.Text = "Adult"
      '
      'optChild
      '
      Me.optChild.Location = New System.Drawing.Point(64, 8)
      Me.optChild.Size = New System.Drawing.Size(48, 20)
      Me.optChild.Text = "Child"
      '
      'optAssociate
      '
      Me.optAssociate.Location = New System.Drawing.Point(112, 8)
      Me.optAssociate.Size = New System.Drawing.Size(80, 20)
      Me.optAssociate.Text = "Associate"
      '
      'panelMemberType
      '
      Me.panelMemberType.Controls.Add(Me.optAssociate)
      Me.panelMemberType.Controls.Add(Me.optChild)
      Me.panelMemberType.Controls.Add(Me.optAdult)
      Me.panelMemberType.Location = New System.Drawing.Point(32, 0)
      Me.panelMemberType.Size = New System.Drawing.Size(200, 32)
      '
      'lblID
      '
      Me.lblID.Location = New System.Drawing.Point(8, 0)
      Me.lblID.Size = New System.Drawing.Size(56, 20)
      Me.lblID.Text = "ID No"
      Me.lblID.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'lblPC
      '
      Me.lblPC.Location = New System.Drawing.Point(120, 49)
      Me.lblPC.Size = New System.Drawing.Size(24, 20)
      Me.lblPC.Text = "PC"
      Me.lblPC.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'lblGender
      '
      Me.lblGender.Location = New System.Drawing.Point(8, 0)
      Me.lblGender.Size = New System.Drawing.Size(56, 20)
      Me.lblGender.Text = "Gender"
      Me.lblGender.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'lblBorn
      '
      Me.lblBorn.Location = New System.Drawing.Point(8, 24)
      Me.lblBorn.Size = New System.Drawing.Size(56, 20)
      Me.lblBorn.Text = "Born"
      Me.lblBorn.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'textID
      '
      Me.textID.Location = New System.Drawing.Point(72, 0)
      Me.textID.Text = ""
      '
      'textStreet
      '
      Me.textStreet.Location = New System.Drawing.Point(72, 0)
      Me.textStreet.Size = New System.Drawing.Size(152, 22)
      Me.textStreet.Text = ""
      '
      'textCity
      '
      Me.textCity.Location = New System.Drawing.Point(72, 23)
      Me.textCity.Size = New System.Drawing.Size(152, 22)
      Me.textCity.Text = ""
      '
      'textSP
      '
      Me.textSP.Location = New System.Drawing.Point(72, 46)
      Me.textSP.Size = New System.Drawing.Size(40, 22)
      Me.textSP.Text = ""
      '
      'textPC
      '
      Me.textPC.Location = New System.Drawing.Point(152, 47)
      Me.textPC.Size = New System.Drawing.Size(80, 22)
      Me.textPC.Text = ""
      '
      'textBorn
      '
      Me.textBorn.Location = New System.Drawing.Point(72, 23)
      Me.textBorn.Text = ""
      '
      'optMale
      '
      Me.optMale.Location = New System.Drawing.Point(112, 0)
      Me.optMale.Size = New System.Drawing.Size(32, 20)
      Me.optMale.Text = "M"
      '
      'optFemale
      '
      Me.optFemale.Location = New System.Drawing.Point(73, 0)
      Me.optFemale.Size = New System.Drawing.Size(32, 20)
      Me.optFemale.Text = "F"
      '
      'panelAddress
      '
      Me.panelAddress.Controls.Add(Me.cboxCity)
      Me.panelAddress.Controls.Add(Me.lblSP)
      Me.panelAddress.Controls.Add(Me.lblCity)
      Me.panelAddress.Controls.Add(Me.lblStreet)
      Me.panelAddress.Controls.Add(Me.textSP)
      Me.panelAddress.Controls.Add(Me.textCity)
      Me.panelAddress.Controls.Add(Me.textStreet)
      Me.panelAddress.Controls.Add(Me.lblPC)
      Me.panelAddress.Controls.Add(Me.textPC)
      Me.panelAddress.Location = New System.Drawing.Point(0, 112)
      Me.panelAddress.Size = New System.Drawing.Size(232, 72)
      '
      'cboxCity
      '
      Me.cboxCity.Items.Add("Seattle")
      Me.cboxCity.Items.Add("Bellevue")
      Me.cboxCity.Items.Add("Kirkland")
      Me.cboxCity.Items.Add("Redmond")
      Me.cboxCity.Items.Add("Bothell")
      Me.cboxCity.Items.Add("Monroe")
      Me.cboxCity.Location = New System.Drawing.Point(72, 23)
      Me.cboxCity.Size = New System.Drawing.Size(152, 22)
      '
      'lblSP
      '
      Me.lblSP.Location = New System.Drawing.Point(8, 48)
      Me.lblSP.Size = New System.Drawing.Size(56, 20)
      Me.lblSP.Text = "SP"
      Me.lblSP.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'lblCity
      '
      Me.lblCity.Location = New System.Drawing.Point(8, 26)
      Me.lblCity.Size = New System.Drawing.Size(56, 20)
      Me.lblCity.Text = "City"
      Me.lblCity.TextAlign = System.Drawing.ContentAlignment.TopRight
      '
      'lblStreet
      '