home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap35 / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-07  |  6.1 KB  |  198 lines
  1. VERSION 4.00
  2. Begin VB.Form About 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4230
  7.    ClientLeft      =   1575
  8.    ClientTop       =   1095
  9.    ClientWidth     =   5190
  10.    ControlBox      =   0   'False
  11.    DrawStyle       =   5  'Transparent
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   1
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   -1  'True
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H80000008&
  22.    Height          =   4635
  23.    Icon            =   "ABOUT.frx":0000
  24.    Left            =   1515
  25.    LinkMode        =   1  'Source
  26.    LinkTopic       =   "Form1"
  27.    MaxButton       =   0   'False
  28.    MinButton       =   0   'False
  29.    ScaleHeight     =   4230
  30.    ScaleWidth      =   5190
  31.    Top             =   750
  32.    Width           =   5310
  33.    Begin VB.Timer Timer1 
  34.       Interval        =   2000
  35.       Left            =   120
  36.       Top             =   2640
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Appearance      =   0  'Flat
  40.       BackColor       =   &H80000005&
  41.       Cancel          =   -1  'True
  42.       Caption         =   "&Close"
  43.       Default         =   -1  'True
  44.       BeginProperty Font 
  45.          name            =   "MS Sans Serif"
  46.          charset         =   1
  47.          weight          =   700
  48.          size            =   8.25
  49.          underline       =   0   'False
  50.          italic          =   0   'False
  51.          strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   495
  54.       Left            =   2040
  55.       TabIndex        =   2
  56.       Top             =   3360
  57.       Width           =   1095
  58.    End
  59.    Begin VB.Label Label3 
  60.       Alignment       =   2  'Center
  61.       Caption         =   $"ABOUT.frx":000C
  62.       BeginProperty Font 
  63.          name            =   "MS Sans Serif"
  64.          charset         =   1
  65.          weight          =   400
  66.          size            =   8.25
  67.          underline       =   0   'False
  68.          italic          =   0   'False
  69.          strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   855
  72.       Left            =   720
  73.       TabIndex        =   4
  74.       Top             =   1800
  75.       Width           =   3735
  76.    End
  77.    Begin VB.Image Image2 
  78.       Appearance      =   0  'Flat
  79.       Height          =   480
  80.       Left            =   4440
  81.       Picture         =   "ABOUT.frx":00C5
  82.       Top             =   2760
  83.       Width           =   480
  84.    End
  85.    Begin VB.Image Image1 
  86.       Height          =   480
  87.       Left            =   3720
  88.       Picture         =   "ABOUT.frx":03CF
  89.       Stretch         =   -1  'True
  90.       Top             =   2760
  91.       Width           =   480
  92.    End
  93.    Begin VB.Line Line1 
  94.       X1              =   480
  95.       X2              =   4680
  96.       Y1              =   1680
  97.       Y2              =   1680
  98.    End
  99.    Begin VB.Label Label2 
  100.       Alignment       =   2  'Center
  101.       Appearance      =   0  'Flat
  102.       BackColor       =   &H00C0C0C0&
  103.       Caption         =   "Chapter 35: Developing a stand-alone Database Application"
  104.       BeginProperty Font 
  105.          name            =   "MS Sans Serif"
  106.          charset         =   1
  107.          weight          =   700
  108.          size            =   12
  109.          underline       =   0   'False
  110.          italic          =   0   'False
  111.          strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H00FF0000&
  114.       Height          =   735
  115.       Left            =   240
  116.       TabIndex        =   1
  117.       Top             =   840
  118.       Width           =   4695
  119.    End
  120.    Begin VB.Label Label1 
  121.       Alignment       =   2  'Center
  122.       Appearance      =   0  'Flat
  123.       BackColor       =   &H00C0C0C0&
  124.       Caption         =   "This application was designed and developed for:"
  125.       BeginProperty Font 
  126.          name            =   "MS Sans Serif"
  127.          charset         =   1
  128.          weight          =   700
  129.          size            =   9.75
  130.          underline       =   0   'False
  131.          italic          =   0   'False
  132.          strikethrough   =   0   'False
  133.       EndProperty
  134.       ForeColor       =   &H00000000&
  135.       Height          =   495
  136.       Left            =   720
  137.       TabIndex        =   0
  138.       Top             =   240
  139.       Width           =   3735
  140.    End
  141.    Begin VB.Label Label4 
  142.       Alignment       =   2  'Center
  143.       Appearance      =   0  'Flat
  144.       BackColor       =   &H00C0C0C0&
  145.       Caption         =   "Copyright 
  146.  1995 Viking Computer Services, Inc."
  147.       BeginProperty Font 
  148.          name            =   "MS Sans Serif"
  149.          charset         =   1
  150.          weight          =   700
  151.          size            =   8.25
  152.          underline       =   0   'False
  153.          italic          =   0   'False
  154.          strikethrough   =   0   'False
  155.       EndProperty
  156.       ForeColor       =   &H80000008&
  157.       Height          =   255
  158.       Left            =   120
  159.       TabIndex        =   3
  160.       Top             =   3960
  161.       Width           =   4935
  162.    End
  163. Attribute VB_Name = "About"
  164. Attribute VB_Creatable = False
  165. Attribute VB_Exposed = False
  166. Private Sub Command1_Click()
  167.     'Close the form
  168.     Unload About
  169. End Sub
  170. Private Sub Form_Activate()
  171.     ' Reset to the default  pointer when returning to this form.
  172.     MousePointer = 0
  173. End Sub
  174. Private Sub Form_Load()
  175.     'Center form
  176.     Left = (Screen.Width - Width) / 2
  177.     Top = (Screen.Height - Height) / 2
  178.     'Place both happy faces
  179.     Image1.Left = 2340
  180.     Image1.Top = 2760
  181.     Image2.Left = 2340
  182.     Image2.Top = 2760
  183.     'Make first face visible
  184.     Image1.ZOrder
  185. End Sub
  186. Private Sub Timer1_Timer()
  187.     'Open mouth (face01 from VB icons)
  188.     If Timer1.Interval <> 500 Then
  189.         Timer1.Interval = 500
  190.         Image2.ZOrder
  191.     Else
  192.         'Close mouth (face02 from VB icons)
  193.         Timer1.Interval = 2000
  194.         Image2.ZOrder 1
  195.         Image1.ZOrder
  196.     End If
  197. End Sub
  198.