Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

FileSave


Sub  mnuFileSave_Click()

If DataChanged = False Then Exit Sub
       
If MsgBox( "Are you sure?" , vbOKCancel, "Save Changes to Equations" ) = vbCancel Then Exit Sub
   
'save data to file (custom for each application)

DataChanged = False

End Sub