home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / VB / ABOUT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1994-03-14  |  4.8 KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form about_form 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Wais for Windows"
  6.    ClientHeight    =   2865
  7.    ClientLeft      =   1755
  8.    ClientTop       =   2310
  9.    ClientWidth     =   5460
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   3270
  13.    Icon            =   0
  14.    Left            =   1695
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2865
  19.    ScaleWidth      =   5460
  20.    Top             =   1965
  21.    Width           =   5580
  22.    Begin SSPanel about_panel 
  23.       Align           =   1  'Align Top
  24.       Alignment       =   6  'Center - TOP
  25.       BackColor       =   &H00C0C0C0&
  26.       BevelWidth      =   2
  27.       BorderWidth     =   1
  28.       Caption         =   "WAIS for Windows (WinWAIS) Version"
  29.       Font3D          =   0  'None
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "MS Sans Serif"
  33.       FontSize        =   12
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       ForeColor       =   &H00000000&
  37.       Height          =   2265
  38.       Left            =   0
  39.       TabIndex        =   1
  40.       Top             =   0
  41.       Width           =   5460
  42.       Begin SSPanel Panel3D4 
  43.          Alignment       =   6  'Center - TOP
  44.          BackColor       =   &H00C0C0C0&
  45.          BevelOuter      =   1  'Inset
  46.          BevelWidth      =   2
  47.          BorderWidth     =   1
  48.          Caption         =   "Programmed By:"
  49.          Font3D          =   0  'None
  50.          ForeColor       =   &H00000000&
  51.          Height          =   615
  52.          Left            =   1140
  53.          TabIndex        =   7
  54.          Top             =   1470
  55.          Width           =   4155
  56.          Begin Label Label3 
  57.             BackColor       =   &H00C0C0C0&
  58.             Caption         =   "Timothy L. Gauslin"
  59.             Height          =   315
  60.             Left            =   1260
  61.             TabIndex        =   8
  62.             Top             =   270
  63.             Width           =   1725
  64.          End
  65.       End
  66.       Begin SSPanel Panel3D3 
  67.          Alignment       =   6  'Center - TOP
  68.          BackColor       =   &H00C0C0C0&
  69.          BevelOuter      =   1  'Inset
  70.          BevelWidth      =   2
  71.          BorderWidth     =   1
  72.          Caption         =   "Developed By:"
  73.          Font3D          =   0  'None
  74.          ForeColor       =   &H00000000&
  75.          Height          =   885
  76.          Left            =   1140
  77.          TabIndex        =   4
  78.          Top             =   480
  79.          Width           =   4155
  80.          Begin Label Label2 
  81.             BackColor       =   &H00C0C0C0&
  82.             Caption         =   "U.S. Geological Survey"
  83.             Height          =   315
  84.             Left            =   990
  85.             TabIndex        =   6
  86.             Top             =   510
  87.             Width           =   2145
  88.          End
  89.          Begin Label Label1 
  90.             BackColor       =   &H00C0C0C0&
  91.             Caption         =   " Information Systems Division"
  92.             Height          =   255
  93.             Left            =   720
  94.             TabIndex        =   5
  95.             Top             =   270
  96.             Width           =   2625
  97.          End
  98.       End
  99.       Begin SSPanel Panel3D1 
  100.          Alignment       =   6  'Center - TOP
  101.          BackColor       =   &H00C0C0C0&
  102.          BevelOuter      =   1  'Inset
  103.          BevelWidth      =   2
  104.          BorderWidth     =   1
  105.          Font3D          =   1  'Raised w/light shading
  106.          ForeColor       =   &H00000000&
  107.          Height          =   735
  108.          Left            =   210
  109.          TabIndex        =   2
  110.          Top             =   540
  111.          Width           =   735
  112.          Begin PictureBox Picture1 
  113.             BackColor       =   &H00C0C0C0&
  114.             BorderStyle     =   0  'None
  115.             Height          =   525
  116.             Left            =   150
  117.             Picture         =   ABOUT.FRX:0000
  118.             ScaleHeight     =   525
  119.             ScaleWidth      =   495
  120.             TabIndex        =   3
  121.             Top             =   120
  122.             Width           =   495
  123.          End
  124.       End
  125.    End
  126.    Begin CommandButton ok_button 
  127.       Caption         =   "OK"
  128.       Height          =   405
  129.       Left            =   2310
  130.       TabIndex        =   0
  131.       Top             =   2340
  132.       Width           =   705
  133.    End
  134. Sub Form_Load ()
  135.     On Error Resume Next
  136.     hndl = FreeFile
  137.     Open "wais.ver" For Input As hndl
  138.     If Err Then
  139.       Exit Sub
  140.     End If
  141.     Line Input #hndl, ln$
  142.     Close (hndl)
  143.     about_panel.Caption = about_panel.Caption + " " + ln$
  144. End Sub
  145. Sub ok_button_Click ()
  146.     about_form.Hide
  147. End Sub
  148.