Imports System.IO

Public Class Form1
    Dim item As String



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




    End Sub

    Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        Dim item As String

        item = InputBox("Voeg een item toe aan de lijst.")
        Listbox1.Items.Add(item)

        item = InputBox("Geef de prijs van het item.")
        ListBox2.Items.Add(item)




    End Sub

    Private Sub btnVerwijder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerwijder.Click
        Listbox1.Items.Remove(Listbox1.SelectedItem)
        ListBox2.Items.Remove(ListBox2.SelectedItem)

    End Sub


    Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
        Dim openfile = New OpenFileDialog()
        openfile.Filter = "Text (*.txt)|*.txt"
        If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
            Dim myfile As String = openfile.FileName
            Dim allLines As String() = File.ReadAllLines(myfile)
            For Each line As String In allLines
                Listbox1.Items.Add(line)
            Next
        End If
    End Sub

    Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
        Dim saveFileDialog1 As New SaveFileDialog()
        If saveFileDialog1.ShowDialog = DialogResult.OK Then
            IO.File.WriteAllLines(saveFileDialog1.FileName, Listbox1.Items.Cast(Of String).ToArray)
        End If
    End Sub

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

    Private Sub OverToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OverToolStripMenuItem.Click
        MessageBox.Show("Gemaakt door Nicholas Medina Castaño" & vbCrLf & vbCrLf & "Copyright 2015-2016")

    End Sub

    Private Sub RangschikkingAlfabetischToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RangschikkingAlfabetischToolStripMenuItem.Click
        Listbox1.Sorted = True
        RangschikkingAlfabetischToolStripMenuItem.Checked = True
        RangschikkingVolgensVolgordeVanIngevenToolStripMenuItem.Checked = False
    End Sub

    Private Sub RangschikkingVolgensVolgordeVanIngevenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RangschikkingVolgensVolgordeVanIngevenToolStripMenuItem.Click
        Listbox1.Sorted = False
        RangschikkingVolgensVolgordeVanIngevenToolStripMenuItem.Checked = True
        RangschikkingAlfabetischToolStripMenuItem.Checked = False
    End Sub


    Private Sub OpslaanAlsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanAlsToolStripMenuItem.Click
        Dim saveFileDialog1 As New SaveFileDialog()
        If saveFileDialog1.ShowDialog = DialogResult.OK Then
            IO.File.WriteAllLines(saveFileDialog1.FileName, Listbox1.Items.Cast(Of String).ToArray)
        End If
    End Sub



    Private Sub MiddelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiddelToolStripMenuItem.Click
        KleinToolStripMenuItem.Checked = False
        GrootToolStripMenuItem.Checked = False
        MiddelToolStripMenuItem.Checked = True

        Listbox1.Font = New Font(Listbox1.Font.FontFamily, 14)
        ListBox2.Font = New Font(Listbox1.Font.FontFamily, 14)
    End Sub
    Private Sub KleinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KleinToolStripMenuItem.Click
        KleinToolStripMenuItem.Checked = True
        GrootToolStripMenuItem.Checked = False
        MiddelToolStripMenuItem.Checked = False

        Listbox1.Font = New Font(Listbox1.Font.FontFamily, 9)
        ListBox2.Font = New Font(Listbox1.Font.FontFamily, 9)

    End Sub
    Private Sub GrootToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrootToolStripMenuItem.Click
        KleinToolStripMenuItem.Checked = False
        GrootToolStripMenuItem.Checked = True
        MiddelToolStripMenuItem.Checked = False

        Listbox1.Font = New Font(Listbox1.Font.FontFamily, 24)
        ListBox2.Font = New Font(Listbox1.Font.FontFamily, 24)
    End Sub

    Private Sub HoogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoogToolStripMenuItem.Click


    End Sub
End Class