home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / graphi2a / splash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-20  |  2.6 KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form Splash 
  3.    Caption         =   "Welcome"
  4.    ClientHeight    =   3255
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   3255
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton Command1 
  15.       BackColor       =   &H00C0C0C0&
  16.       Caption         =   "Enter"
  17.       BeginProperty Font 
  18.          Name            =   "Comic Sans MS"
  19.          Size            =   8.25
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   375
  27.       Left            =   3960
  28.       Style           =   1  'Graphical
  29.       TabIndex        =   1
  30.       Top             =   2880
  31.       Width           =   735
  32.    End
  33.    Begin VB.Timer Timer2 
  34.       Interval        =   2000
  35.       Left            =   120
  36.       Top             =   2760
  37.    End
  38.    Begin VB.Timer Timer1 
  39.       Interval        =   10
  40.       Left            =   120
  41.       Top             =   2760
  42.    End
  43.    Begin VB.Label Label1 
  44.       Alignment       =   2  'Center
  45.       AutoSize        =   -1  'True
  46.       BackColor       =   &H00C0C0FF&
  47.       Caption         =   "Scott Wellbrock"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   24
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   555
  58.       Left            =   600
  59.       TabIndex        =   0
  60.       Top             =   1320
  61.       Width           =   3375
  62.    End
  63. Attribute VB_Name = "Splash"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Option Explicit
  69. Private Sub Command1_Click()
  70. Graphics.Show
  71. Unload Splash
  72. End Sub
  73. Private Sub timer1_timer()
  74. Dim counter, drawcirc
  75. drawcirc = 0
  76. For counter = 1 To 100 Step 1
  77.     Dim x, y, radius
  78.     Dim r, g, b
  79.     r = Rnd * 255
  80.     g = Rnd * 255
  81.     b = Rnd * 255
  82.     x = Splash.ScaleWidth / 2
  83.     y = Splash.ScaleHeight / 2
  84.     Splash.DrawStyle = drawcirc
  85.     Splash.Circle (x, y), Rnd * 3000, RGB(r, g, b)
  86.         Next
  87. End Sub
  88. Private Sub timer2_timer()
  89.   Label1.BackColor = Val(Label1.BackColor) * Rnd
  90.  Label1.Caption = "Graphics and More"
  91.   Label1.Refresh
  92.    End Sub
  93.