home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vidlibp / vidsynop.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-05-01  |  2.3 KB  |  81 lines
  1. VERSION 2.00
  2. Begin Form VidSynop 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   6480
  6.    ClientLeft      =   1065
  7.    ClientTop       =   480
  8.    ClientWidth     =   6795
  9.    ControlBox      =   0   'False
  10.    Height          =   6885
  11.    HelpContextID   =   240
  12.    Left            =   1005
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6480
  17.    ScaleWidth      =   6795
  18.    Top             =   135
  19.    Width           =   6915
  20.    WindowState     =   2  'Maximized
  21.    Begin CommandButton cmdCancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "&Cancel"
  24.       Height          =   465
  25.       HelpContextID   =   240
  26.       Left            =   4860
  27.       TabIndex        =   2
  28.       Top             =   150
  29.       Width           =   1230
  30.    End
  31.    Begin CommandButton cmdDone 
  32.       Caption         =   "&Done"
  33.       Default         =   -1  'True
  34.       Height          =   465
  35.       HelpContextID   =   240
  36.       Left            =   3330
  37.       TabIndex        =   1
  38.       Top             =   150
  39.       Width           =   1230
  40.    End
  41.    Begin TextBox txtSynopsis 
  42.       BackColor       =   &H0000FFFF&
  43.       FontBold        =   -1  'True
  44.       FontItalic      =   0   'False
  45.       FontName        =   "MS Sans Serif"
  46.       FontSize        =   9.75
  47.       FontStrikethru  =   0   'False
  48.       FontUnderline   =   0   'False
  49.       Height          =   5940
  50.       HelpContextID   =   240
  51.       Left            =   270
  52.       MultiLine       =   -1  'True
  53.       ScrollBars      =   2  'Vertical
  54.       TabIndex        =   0
  55.       Top             =   750
  56.       Width           =   9015
  57.    End
  58. ' Subsystem: Edit
  59. ' Module:    VidSynop.Frm
  60. ' Date:      01/03/94
  61. ' Author:    Richard Stauch
  62. ' Notes:
  63. ' This form displays up to MAXROWs of Video table data in
  64. ' a grid form for review.
  65. Option Explicit
  66. DefInt A-Z
  67. Sub cmdCancel_Click ()
  68. ' Remove the Synopsis form from the display.
  69.   Unload VidSynop
  70. End Sub
  71. Sub cmdDone_Click ()
  72. ' Save the Synopsis text (edited or not).
  73.   Synopsis$ = txtSynopsis.Text
  74. ' Call the Click event of the Cancel button.
  75.   cmdCancel_Click
  76. End Sub
  77. Sub Form_Load ()
  78. ' Load the form, and set the Synopsis text.
  79.   txtSynopsis.Text = Synopsis$
  80. End Sub
  81.