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