Permalink
Fetching contributors…
Cannot retrieve contributors at this time
339 lines (326 sloc) 14.9 KB
' <snippet1>
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
' This form demonstrates how to build a form layout that adjusts well
' when the user resizes the form. It also demonstrates a layout that
' responds well to localization.
Class BasicDataEntryForm
Inherits System.Windows.Forms.Form
Public Sub New()
InitializeComponent()
End Sub
Private components As System.ComponentModel.IContainer = Nothing
Protected Overrides Sub Dispose(disposing As Boolean)
If disposing AndAlso (components IsNot Nothing) Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Public Overrides Function ToString() As String
Return "Basic Data Entry Form"
End Function
Private Sub okBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles okBtn.Click
Me.Close()
End Sub
Private Sub cancelBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cancelBtn.Click
Me.Close()
End Sub
Private Sub InitializeComponent()
Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.label1 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.label3 = New System.Windows.Forms.Label
Me.label4 = New System.Windows.Forms.Label
Me.label5 = New System.Windows.Forms.Label
Me.label6 = New System.Windows.Forms.Label
Me.label9 = New System.Windows.Forms.Label
Me.textBox2 = New System.Windows.Forms.TextBox
Me.textBox3 = New System.Windows.Forms.TextBox
Me.textBox4 = New System.Windows.Forms.TextBox
Me.textBox5 = New System.Windows.Forms.TextBox
Me.maskedTextBox1 = New System.Windows.Forms.MaskedTextBox
Me.maskedTextBox2 = New System.Windows.Forms.MaskedTextBox
Me.comboBox1 = New System.Windows.Forms.ComboBox
Me.textBox1 = New System.Windows.Forms.TextBox
Me.label7 = New System.Windows.Forms.Label
Me.label8 = New System.Windows.Forms.Label
Me.richTextBox1 = New System.Windows.Forms.RichTextBox
Me.cancelBtn = New System.Windows.Forms.Button
Me.okBtn = New System.Windows.Forms.Button
Me.tableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'tableLayoutPanel1
'
Me.tableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tableLayoutPanel1.ColumnCount = 4
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.tableLayoutPanel1.Controls.Add(Me.label1, 0, 0)
Me.tableLayoutPanel1.Controls.Add(Me.label2, 2, 0)
Me.tableLayoutPanel1.Controls.Add(Me.label3, 0, 1)
Me.tableLayoutPanel1.Controls.Add(Me.label4, 0, 2)
Me.tableLayoutPanel1.Controls.Add(Me.label5, 0, 3)
Me.tableLayoutPanel1.Controls.Add(Me.label6, 2, 3)
Me.tableLayoutPanel1.Controls.Add(Me.label9, 2, 4)
Me.tableLayoutPanel1.Controls.Add(Me.textBox2, 1, 1)
Me.tableLayoutPanel1.Controls.Add(Me.textBox3, 1, 2)
Me.tableLayoutPanel1.Controls.Add(Me.textBox4, 1, 3)
Me.tableLayoutPanel1.Controls.Add(Me.textBox5, 3, 0)
Me.tableLayoutPanel1.Controls.Add(Me.maskedTextBox1, 1, 4)
Me.tableLayoutPanel1.Controls.Add(Me.maskedTextBox2, 3, 4)
Me.tableLayoutPanel1.Controls.Add(Me.comboBox1, 3, 3)
Me.tableLayoutPanel1.Controls.Add(Me.textBox1, 1, 0)
Me.tableLayoutPanel1.Controls.Add(Me.label7, 0, 5)
Me.tableLayoutPanel1.Controls.Add(Me.label8, 0, 4)
Me.tableLayoutPanel1.Controls.Add(Me.richTextBox1, 1, 5)
Me.tableLayoutPanel1.Location = New System.Drawing.Point(13, 13)
Me.tableLayoutPanel1.Name = "tableLayoutPanel1"
Me.tableLayoutPanel1.RowCount = 6
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 28.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 80.0!))
Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.tableLayoutPanel1.Size = New System.Drawing.Size(623, 286)
Me.tableLayoutPanel1.TabIndex = 0
'
'label1
'
Me.label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label1.AutoSize = True
Me.label1.Location = New System.Drawing.Point(3, 7)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(59, 14)
Me.label1.TabIndex = 20
Me.label1.Text = "First Name"
'
'label2
'
Me.label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label2.AutoSize = True
Me.label2.Location = New System.Drawing.Point(323, 7)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(59, 14)
Me.label2.TabIndex = 21
Me.label2.Text = "Last Name"
'
'label3
'
Me.label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label3.AutoSize = True
Me.label3.Location = New System.Drawing.Point(10, 35)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(52, 14)
Me.label3.TabIndex = 22
Me.label3.Text = "Address1"
'
'label4
'
Me.label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label4.AutoSize = True
Me.label4.Location = New System.Drawing.Point(7, 63)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(55, 14)
Me.label4.TabIndex = 23
Me.label4.Text = "Address 2"
'
'label5
'
Me.label5.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label5.AutoSize = True
Me.label5.Location = New System.Drawing.Point(38, 91)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(24, 14)
Me.label5.TabIndex = 24
Me.label5.Text = "City"
'
'label6
'
Me.label6.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label6.AutoSize = True
Me.label6.Location = New System.Drawing.Point(351, 91)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(31, 14)
Me.label6.TabIndex = 25
Me.label6.Text = "State"
'
'label9
'
Me.label9.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label9.AutoSize = True
Me.label9.Location = New System.Drawing.Point(326, 119)
Me.label9.Name = "label9"
Me.label9.Size = New System.Drawing.Size(56, 14)
Me.label9.TabIndex = 33
Me.label9.Text = "Phone (H)"
'
'textBox2
'
Me.textBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tableLayoutPanel1.SetColumnSpan(Me.textBox2, 3)
Me.textBox2.Location = New System.Drawing.Point(68, 32)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New System.Drawing.Size(552, 20)
Me.textBox2.TabIndex = 2
'
'textBox3
'
Me.textBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tableLayoutPanel1.SetColumnSpan(Me.textBox3, 3)
Me.textBox3.Location = New System.Drawing.Point(68, 60)
Me.textBox3.Name = "textBox3"
Me.textBox3.Size = New System.Drawing.Size(552, 20)
Me.textBox3.TabIndex = 3
'
'textBox4
'
Me.textBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.textBox4.Location = New System.Drawing.Point(68, 88)
Me.textBox4.Name = "textBox4"
Me.textBox4.Size = New System.Drawing.Size(249, 20)
Me.textBox4.TabIndex = 4
'
'textBox5
'
Me.textBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.textBox5.Location = New System.Drawing.Point(388, 4)
Me.textBox5.Name = "textBox5"
Me.textBox5.Size = New System.Drawing.Size(232, 20)
Me.textBox5.TabIndex = 1
'
'maskedTextBox1
'
Me.maskedTextBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.maskedTextBox1.Location = New System.Drawing.Point(68, 116)
Me.maskedTextBox1.Mask = "(999)000-0000"
Me.maskedTextBox1.Name = "maskedTextBox1"
Me.maskedTextBox1.TabIndex = 6
'
'maskedTextBox2
'
Me.maskedTextBox2.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.maskedTextBox2.Location = New System.Drawing.Point(388, 116)
Me.maskedTextBox2.Mask = "(999)000-0000"
Me.maskedTextBox2.Name = "maskedTextBox2"
Me.maskedTextBox2.TabIndex = 7
'
'comboBox1
'
Me.comboBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.comboBox1.FormattingEnabled = True
Me.comboBox1.Items.AddRange(New Object() {"AK - Alaska", "WA - Washington"})
Me.comboBox1.Location = New System.Drawing.Point(388, 87)
Me.comboBox1.Name = "comboBox1"
Me.comboBox1.Size = New System.Drawing.Size(100, 21)
Me.comboBox1.TabIndex = 5
'
'textBox1
'
Me.textBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.textBox1.Location = New System.Drawing.Point(68, 4)
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(249, 20)
Me.textBox1.TabIndex = 0
'
'label7
'
Me.label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.label7.AutoSize = True
Me.label7.Location = New System.Drawing.Point(28, 143)
Me.label7.Name = "label7"
Me.label7.Size = New System.Drawing.Size(34, 14)
Me.label7.TabIndex = 26
Me.label7.Text = "Notes"
'
'label8
'
Me.label8.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.label8.AutoSize = True
Me.label8.Location = New System.Drawing.Point(4, 119)
Me.label8.Name = "label8"
Me.label8.Size = New System.Drawing.Size(58, 14)
Me.label8.TabIndex = 32
Me.label8.Text = "Phone (W)"
'
'richTextBox1
'
Me.tableLayoutPanel1.SetColumnSpan(Me.richTextBox1, 3)
Me.richTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.richTextBox1.Location = New System.Drawing.Point(68, 143)
Me.richTextBox1.Name = "richTextBox1"
Me.richTextBox1.Size = New System.Drawing.Size(552, 140)
Me.richTextBox1.TabIndex = 8
Me.richTextBox1.Text = ""
'
'cancelBtn
'
Me.cancelBtn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cancelBtn.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cancelBtn.Location = New System.Drawing.Point(558, 306)
Me.cancelBtn.Name = "cancelBtn"
Me.cancelBtn.TabIndex = 1
Me.cancelBtn.Text = "Cancel"
'
'okBtn
'
Me.okBtn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.okBtn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.okBtn.Location = New System.Drawing.Point(476, 306)
Me.okBtn.Name = "okBtn"
Me.okBtn.TabIndex = 0
Me.okBtn.Text = "OK"
'
'BasicDataEntryForm
'
Me.ClientSize = New System.Drawing.Size(642, 338)
Me.Controls.Add(Me.okBtn)
Me.Controls.Add(Me.cancelBtn)
Me.Controls.Add(Me.tableLayoutPanel1)
Me.Name = "BasicDataEntryForm"
Me.Padding = New System.Windows.Forms.Padding(9)
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Basic Data Entry"
Me.tableLayoutPanel1.ResumeLayout(False)
Me.tableLayoutPanel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents label1 As System.Windows.Forms.Label
Friend WithEvents label2 As System.Windows.Forms.Label
Friend WithEvents label3 As System.Windows.Forms.Label
Friend WithEvents label4 As System.Windows.Forms.Label
Friend WithEvents label5 As System.Windows.Forms.Label
Friend WithEvents label6 As System.Windows.Forms.Label
Friend WithEvents label7 As System.Windows.Forms.Label
Friend WithEvents label8 As System.Windows.Forms.Label
Friend WithEvents label9 As System.Windows.Forms.Label
Friend WithEvents cancelBtn As System.Windows.Forms.Button
Friend WithEvents okBtn As System.Windows.Forms.Button
Friend WithEvents textBox1 As System.Windows.Forms.TextBox
Friend WithEvents textBox2 As System.Windows.Forms.TextBox
Friend WithEvents textBox3 As System.Windows.Forms.TextBox
Friend WithEvents textBox4 As System.Windows.Forms.TextBox
Friend WithEvents textBox5 As System.Windows.Forms.TextBox
Friend WithEvents maskedTextBox1 As System.Windows.Forms.MaskedTextBox
Friend WithEvents maskedTextBox2 As System.Windows.Forms.MaskedTextBox
Friend WithEvents comboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents richTextBox1 As System.Windows.Forms.RichTextBox
<STAThread()> _
Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New BasicDataEntryForm())
End Sub
End Class
' </snippet1>