home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / FORM1.FR_ / FORM1.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1.3 KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   960
  6.    ClientTop       =   1410
  7.    ClientWidth     =   5655
  8.    Height          =   4545
  9.    Left            =   900
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   5655
  13.    Top             =   1065
  14.    Width           =   5775
  15. Sub CheckToSave ()
  16.     AskCheck = False
  17.     For i = 0 To forms.Count - 1
  18.         If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
  19.             AskCheck = True
  20.         End If
  21.     Next
  22.     If AskCheck Then
  23.         Dim Msg, NL
  24.         Dim Response As Integer
  25.         NL = Chr$(10) & Chr$(13)
  26.         Msg = "The information in this savings has been changed."
  27.         Msg = Msg & NL
  28.         Msg = Msg & "Do you want to save the changes?"
  29.         Response = MsgBox(Msg, 51, "Visual Basic Savings Planner")
  30.         Select Case Response
  31.         Case 2  'User selects Cancel, cancel the unload
  32.             Cancel = True
  33.         Case 6  'User select Yes, save the savings plan
  34.             SavePlan    'Invoke the Save procedure
  35.         Case 7  'User selects No, Ok to unload
  36.             Cancel = False
  37.         End Select
  38.     End If
  39. End Sub
  40. Sub Form_Load ()
  41. End Sub
  42. Sub SavePlan ()
  43. End Sub
  44.