[RESOLVED] Save all files in a tabcontrol

[Decster1]

I have created a WinForms program with a DevExPress tabcontrol! What I cant figure out is when the user clicks the form close button or Exit and they have multiple files in multiple tabpages and havent save any of them yet how do I get the program to ask to save all of them? I have this so far but only saves one file!

Function SaveChanges() As Boolean
        Dim reply As MsgBoxResult
        reply = MsgBox("Have you saved your document(s)?", MsgBoxStyle.YesNo + vbQuestion)
        If reply = MsgBoxResult.Yes Then
            tc1.SelectedTabPage.Dispose()
            tc1.SelectedTabPageIndex = tc1.SelectedTabPageIndex - 1
        End If
        If reply = MsgBoxResult.No Then
            SaveToolStripMenuItem.PerformClick()
            tc1.SelectedTabPageIndex = tc1.SelectedTabPageIndex - 1
        End If
    End Function

[jmcilhinney]

It's only saving one because you're only telling it to save one, i.e. the selected one. If you want to save the contents of every page then you have to visit every page. How do you usually visit every item in a collection? With a loop. One of the ideas behind Visual Basic is that the code reads rather like an English sentence, so simply speaking the task you need to perform can often give you a big clue to how to implement it. In this case, you want to save the contents of each page. That's a good indication that you should use a For Each loop.

[Decster1]

Thanks for your reply and setting me straight as you have for everyone in many of your post! I got it to work by using this code :

Function SaveChanges() As Boolean
        Dim strTabText As String = tc1.SelectedTabPage.Text
        Dim reply As MsgBoxResult
        reply = MsgBox("Have you saved your document(s)?", MsgBoxStyle.YesNo + vbQuestion)
        If reply = MsgBoxResult.Yes Then
            tc1.SelectedTabPage.Dispose()
        Else
            For Each Page As DevExpress.XtraTab.XtraTabPage In tc1.TabPages
                If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                    CType(Page.Controls.Item(0), AxXtremeSyntaxEdit.AxSyntaxEdit).SaveFileAs(SaveFileDialog1.FileName)
                    lastSavePath = SaveFileDialog1.FileName
                End If
            Next Page
        End If
    End Function