'Programmer: Janet Joy
'List manager program with menu
Public Class Form1
    Dim currentFile As String
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuExit.Click
        'Temporary: we will addcheck for save later
        End
    End Sub

    Private Sub mnuInsert_Click(sender As Object, e As EventArgs) Handles mnuInsert.Click
        'Add an item to the list box
        Dim s As String
        s = InputBox("Enter item", "Add Item")
        If s <> "" Then
            ListBox1.Items.Add(s)
        End If
    End Sub

    Private Sub mnuDelete_Click(sender As Object, e As EventArgs) Handles mnuDelete.Click
        'Delete if there are items and one is selected
        If ListBox1.Items.Count > 0 And ListBox1.SelectedIndex >= 0 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        Else
            ListBox1.Text = ""
        End If
        If ListBox1.Items.Count > 0 Then
            ListBox1.SelectedIndex = 0
        End If
    End Sub
    Private Sub SaveList()
        Dim S As String
        Dim Num As Integer
        If currentFile = "" Then
            SaveFileDialog1.ShowDialog()
            currentFile = SaveFileDialog1.FileName
        End If
        If currentFile <> "" Then
            FileOpen(1, currentFile, OpenMode.Output)
            For Num = 0 To ListBox1.Items.Count - 1
                S = ListBox1.Items.Item(Num)
                PrintLine(1, S)
            Next Num
            FileClose(1)
            MsgBox("Items saved: " & ListBox1.Items.Count)
        End If
    End Sub 'SaveList

    Private Sub mnuSave_Click(sender As Object, e As EventArgs) Handles mnuSave.Click
        SaveList()
    End Sub
End Class