Add Class examples from 04/01/2015

Signed-off-by: Amrit Panesar <apanesar@4195tech.com>

COM350/ClassExamples/WinForm-04-01-2015/WinformExample/Week2.vb

@@ -0,0 +1,126 @@
+Public Class Week2
+
+    Public formHeight As Integer
+    Public startingLocation As String = String.Empty
+
+    Private Sub buttonLauncher_Click(sender As Object, e As EventArgs) Handles buttonLauncher.Click
+
+        If fbdSelector.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            startingLocation = fbdSelector.SelectedPath
+            textboxStartingLocation.Text = startingLocation
+        End If
+
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.Text = "Week 2"
+        formHeight = Me.Height
+
+        'MessageBox.Show("The form height is: " & formHeight, "Caption", _
+        '                MessageBoxButtons.OK, MessageBoxIcon.Information)
+        Dim startingYValue As Integer = formHeight - (23 + 45)
+        Dim defaultSize As Size = New Size(75, 23)
+        Dim buttonDynamic As Button = New Button()
+        buttonDynamic.Location = New Point(10, startingYValue)
+        buttonDynamic.Size = defaultSize
+        buttonDynamic.Text = "Dynamic"
+        buttonDynamic.Name = "buttonDynamic"
+        buttonDynamic.Visible = True
+
+        Me.Controls.Add(buttonDynamic)
+
+        comboBoxManual.Items.Add("Greenland")
+        comboBoxManual.Items.Add("Iceland")
+        comboBoxManual.Items.Add("Finland")
+        comboBoxManual.Items.Add("Ireland")
+        comboBoxManual.Items.Add("Poland")
+        comboBoxManual.Items.Add("England")
+
+        Dim arrayOfStrings As String() = {"one", "two", "three", "four", "five"}
+        comboBoxGenerics.Items.Insert(0, "-- SELECT -- ")
+        comboBoxGenerics.DataSource = arrayOfStrings
+
+
+        comboBoxStates.DataSource = LoadStates()
+        comboBoxStates.DisplayMember = "StateName"
+        comboBoxStates.ValueMember = "StateAbbreviation"
+
+
+    End Sub
+
+    Private Function LoadData() As String()
+        Return {"six", "seven", "eight", "nine", "ten"}
+    End Function
+
+    Private Sub comboBoxStates_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboBoxStates.SelectedIndexChanged
+
+        textboxIndex.Text = comboBoxStates.SelectedIndex.ToString()
+        Dim currentState As State = CType(comboBoxStates.SelectedItem, State)
+        ' Dim currentState As State = DirectCast(comboBoxStates.SelectedItem, State)
+        ' textboxValue.Text = currentState.StateAbbreviation
+
+    End Sub
+
+    Private Function LoadStates() As List(Of State)
+        Dim listOfStates As List(Of State) = New List(Of State)()
+
+        listOfStates.Add(New State With {
+                            .StateAbbreviation = "OH",
+                            .StateName = "Ohio"
+                         })
+        listOfStates.Add(New State With {
+                            .StateAbbreviation = "NY",
+                            .StateName = "New York"
+                         })
+        listOfStates.Add(New State With {
+                            .StateAbbreviation = "GA",
+                            .StateName = "Georgia"
+                         })
+        listOfStates.Add(New State With {
+                            .StateAbbreviation = "WY",
+                            .StateName = "Wyoming"
+                         })
+        listOfStates.Add(New State With {
+                            .StateAbbreviation = "HI",
+                            .StateName = "Hawaii"
+                         })
+
+        Return listOfStates
+    End Function
+
+    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
+        Application.Exit()
+    End Sub
+
+    Private Sub LaunchTimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LaunchTimerToolStripMenuItem.Click
+        Dim frmTimerForm As TimerForm = New TimerForm()
+        frmTimerForm.ShowDialog()
+    End Sub
+End Class
+
+' Type, Data Type, Custom Type, Custom Class
+Public Class State
+
+#Region "Members and Properties"
+    Private _stateAbbreviation As String
+    Public Property StateAbbreviation() As String
+        Get
+            Return _stateAbbreviation
+        End Get
+        Set(ByVal value As String)
+            _stateAbbreviation = value
+        End Set
+    End Property
+
+    Private _stateName As String
+    Public Property StateName() As String
+        Get
+            Return _stateName
+        End Get
+        Set(ByVal value As String)
+            _stateName = value
+        End Set
+    End Property
+#End Region
+
+End Class