Imports System.IO
Public Class snowBoardBrandsForm

    Private Sub addBrandButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addBrandButton.Click, AddSnowBoardBrandToolStripMenuItem.Click

        Dim indexInteger As Integer
        Dim itemFound As Boolean
        Dim upperBrandTextString, upperListItemString As String

        itemFound = False
        indexInteger = 0

        upperBrandTextString = brandComboBox.Text.ToUpper
        If brandComboBox.Text <> "" Then

            Do While Not itemFound And indexInteger < brandComboBox.Items.Count

                upperListItemString = brandComboBox.Items(indexInteger)
                upperListItemString = upperListItemString.ToUpper

                If upperBrandTextString = upperListItemString Then
                    itemFound = True
                Else
                    indexInteger += 1
                End If
            Loop

            If itemFound Then
                MessageBox.Show("Brand is currently in the list", "Brand Match", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Else
                brandComboBox.Items.Add(brandComboBox.Text)
                MessageBox.Show("Brand is added to the list", "Brand Added", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

            brandComboBox.Text = ""
            brandComboBox.Focus()

        Else
            DisplayMessage("You must make an entry here", "Required Field")
            brandComboBox.Text = ""
            brandComboBox.Focus()

        End If
    End Sub

    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub SaveListToFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveListToFileToolStripMenuItem.Click

        Dim indexInteger, countInteger As Integer

        indexInteger = 0
        countInteger = brandComboBox.Items.Count.ToString()

        If countInteger <> 0 Then

            Dim snowBoardBrandsStreamWriter As New StreamWriter("snowboardBrands.Txt")

            For indexInteger = 0 To countInteger - 1

            Next indexInteger

        Else
            DisplayMessage("There are no items to be saved", "Entry Required")

        End If
    End Sub

    Private Sub DisplayMessage(ByVal errormsg As String, ByVal Titlebar As String)

        MessageBox.Show(errormsg, Titlebar, MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub
   
    Private Sub RemoveSnowboardBrandToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveSnowboardBrandToolStripMenuItem.Click

        brandComboBox.Items.RemoveAt(brandComboBox.SelectedItem)

    End Sub

    Private Sub ClearTheListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearTheListToolStripMenuItem.Click
        Dim returnDialogResult As DialogResult

        returnDialogResult = MessageBox.Show("Do you want to clear the brand list?", "Clear List?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If returnDialogResult = Windows.Forms.DialogResult.Yes Then
            brandComboBox.Items.Clear()

        End If

    End Sub

    Private Sub DisplayNumberOfSnowboardBrandsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisplayNumberOfSnowboardBrandsToolStripMenuItem.Click

        Dim numberBrands As Integer
        Dim messageString As String

        numberBrands = brandComboBox.Items.Count.ToString
        messageString = "Total Number of Brands: " & numberBrands.ToString
        MessageBox.Show(messageString, "Snowboard Brands", MessageBoxButtons.OK, MessageBoxIcon.Information)


    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        'AboutBox1.ShowDialog()
    End Sub

    Private Sub snowBoardBrandsForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim brandString As String

        Try
            Dim snowboardBrandsStreamReader As New StreamReader("SnowboardBrand.Txt")
            Do While snowboardBrandsStreamReader.Peek <> -1
                brandString = snowboardBrandsStreamReader.ReadLine()
                brandComboBox.Items.Add(brandString)
            Loop

        Catch ex As Exception
            DisplayMessage("The file SnowboardBrands.Txt will be created.", "File was not found")
        End Try
    End Sub

    Private Sub snowBoardBrandsForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim numberBrands As Integer
        numberBrands = brandComboBox.Items.Count
        If numberBrands = 0 Then
            File.Delete("SnowboardBrand.Txt")
        Else


        End If
    End Sub
End Class