A guide to using Paneled Forms, Multi-Splash Screens, SQL Express, and many more in Windows Application Development

Public Class ctrlAddNewEntry

#Region "Event Handlers"
    Private Sub btnGoMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGoMain.Click
        backToMain()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lblNewEntry.Text = ""
        clearTextBoxes()
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If txtName.Text.CompareTo("") = 0 Or txtName.Text Is Nothing Then
            lblNewEntry.Text = "Name is required!!!"
        Else
            Dim nameEntry As String = txtName.Text.Trim()
            Dim startChar As String = nameEntry.Chars(0).ToString()
            nameEntry = nameEntry.Remove(0, 1)
            nameEntry = startChar.ToUpper() + nameEntry
            Dim success As Boolean = DataLayer.insertAddressBook(nameEntry, txtAddress.Text.Trim(), txtPhone.Text.Trim(), txtCell.Text.Trim(), txtMail.Text.Trim(), drpCategory.SelectedValue)
            If success Then
                lblNewEntry.Text = "Entry successfully created for: " + txtName.Text.Trim()
                clearTextBoxes()
            Else
                lblNewEntry.Text = "Errors encountered during creation of entry in records for: " + txtName.Text.Trim()
            End If
        End If
    End Sub

    Private Sub ctrlAddNewEntry_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Enter
        Try
            Dim dsCategory As Data.DataSet = DataLayer.selectCategory()
            If dsCategory.Tables("category").Rows.Count > 0 Then
                With drpCategory
                    .DataSource = dsCategory.Tables("category")
                    .DisplayMember = "Title"
                    .ValueMember = "CategoryID"
                End With
                lblNewEntry.Text = ""
            Else
                MessageBox.Show("No categories defined. Please add some categories to the Address Book.")
                backToMain()
            End If
        Catch ex As Exception
            MessageBox.Show("Error!!! An Error occured while communicating with Database. Please verify if SQL Express is running and restart application.", "Communication Error")
            Application.Exit()
        End Try
    End Sub

    Private Sub drpCategory_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles drpCategory.KeyPress
        drpCategory.SelectedText = drpCategory.SelectedItem
        e.Handled = True
    End Sub
#End Region

#Region "Shared Functions"
    Public Sub backToMain()
        Dim tempObject As New ctrlMain
        Me.ParentForm.Controls.Item("myPanel").Controls.Add(tempObject)
        Me.ParentForm.Controls.Item("myPanel").Controls.RemoveAt(0)
    End Sub

    Public Sub clearTextBoxes()
        txtName.Text = ""
        txtAddress.Text = ""
        txtPhone.Text = ""
        txtCell.Text = ""
        txtMail.Text = ""
    End Sub
#End Region
End Class