home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 4.ddi / ZOOM.FR_ / ZOOM.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  2.0 KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form fZoom 
  3.    BackColor       =   &H00C0C0C0&
  4.    Height          =   2220
  5.    Left            =   3540
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   1815
  8.    ScaleWidth      =   4560
  9.    Top             =   3585
  10.    Width           =   4680
  11.    Begin CommandButton CloseZoomButton 
  12.       Caption         =   "&Close"
  13.       Height          =   264
  14.       Left            =   120
  15.       TabIndex        =   3
  16.       Top             =   36
  17.       Visible         =   0   'False
  18.       Width           =   972
  19.    End
  20.    Begin CommandButton SaveButton 
  21.       Caption         =   "&Save Changes"
  22.       Height          =   264
  23.       Left            =   120
  24.       TabIndex        =   2
  25.       Top             =   36
  26.       Visible         =   0   'False
  27.       Width           =   1932
  28.    End
  29.    Begin CommandButton CloseButton 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "&Close w/o Changes"
  32.       Height          =   264
  33.       Left            =   2160
  34.       TabIndex        =   1
  35.       Top             =   40
  36.       Visible         =   0   'False
  37.       Width           =   1932
  38.    End
  39.    Begin TextBox cData 
  40.       Height          =   1332
  41.       Left            =   48
  42.       MultiLine       =   -1  'True
  43.       ScrollBars      =   2  'Vertical
  44.       TabIndex        =   0
  45.       Top             =   360
  46.       Width           =   4452
  47.    End
  48. Option Explicit
  49. Dim FData As String
  50. Sub cData_KeyPress (KeyAscii As Integer)
  51.   'check for the escape key
  52.   If KeyAscii = 27 Then
  53.     Call CloseButton_Click
  54.     Exit Sub
  55.   End If
  56.   'throw away the key of save not alloed
  57.   If SaveButton.Visible = False Then KeyAscii = 0
  58. End Sub
  59. Sub CloseButton_Click ()
  60.   Unload Me
  61. End Sub
  62. Sub CloseZoomButton_Click ()
  63.   Unload Me
  64. End Sub
  65. Sub Form_Load ()
  66.   cData = gstZoomData
  67.   Height = 2500
  68.   Width = 4600
  69. End Sub
  70. Sub Form_Resize ()
  71.   cData.Width = Me.Width - 200
  72.   cData.Height = Me.Height - 850
  73. End Sub
  74. Sub SaveButton_Click ()
  75.   gstZoomData = cData
  76.   Unload Me
  77. End Sub
  78.