Visual Basic Concepts

  • Article

Sample ASCII Form

Figure A.3 shows the Blanker.frm form from the Blanker sample application.

Figure A.3   Sample form from Blanker.vbp sample application

Here is part of the Blanker form saved in Visual Basic. Portions of the form removed to save space are indicated by a vertical ellipsis.

VERSION 5.00
Begin VB.Form DemoForm
   BackColor = &H00000000&
   Caption = "Screen Blanker Demo"
   ClientHeight = 960
   ClientLeft = 1965
   ClientTop = 1965
   ClientWidth = 7470
   ForeColor = &H00000000&
   Begin Property Font
      name = "MS Sans Serif"
      charset = 0
      .
      .
      .
   End Property
   Height = 5115
   Icon = "Blanker.frx":0018
   Left = 900
   LinkMode = 1                     ' Source
   LinkTopic = "Form1"
   ScaleHeight = 4425
   ScaleWidth = 7470
   Top = 1335
   Width = 7590
   Begin VB.Timer Timer1
      Interval = 1
      Left = 6960
      Top = 120
   End
   Begin VB.CommandButton cmdStartStop
      BackColor = &H00000000&
      Caption = "Start Demo"
      Default = -1
      Height = 390
      Left = 240
      TabIndex = 0
      Top = 120
      Width = 1830
   End
   Begin VB.PictureBox picBall
      AutoSize = -1               ' True
      BackColor = &H00000000&
      BorderStyle = 0               ' None
      ForeColor = &H00FFFFFF&
      Height = 465
      Left = 1800
      Picture = "Blanker.frx":0788
      ScaleHeight = 465
      ScaleWidth = 465
      TabIndex = 1
      Top = 720
      Visible = 0                  ' False
      Width = 465
   End
   .
   .
   .
   Begin VB.Menu mnuOption
      Caption = "&Options"
      Begin VB.Menu mnuLineCtlDemo
         Caption = "&Jumpy Line"
         Checked = -1               ' True
      End
      Begin VB.Menu mnuCtlMoveDemo
         Caption = "Re&bound"
      End
      .
      .
      .
      Begin VB.Menu mnuExit
         Caption = "E&xit"
      End
   End
End
.
.
.
Attribute VB_Name = "DemoForm"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim Shared FrameNum
Dim Shared XPos
Dim Shared YPos
Dim Shared DoFlag
Dim Shared Motion
.
.
.
Sub CircleDemo ()
   Dim Radius
   R = 255 * Rnd
   G = 255 * Rnd
   B = 255 * Rnd

   XPos = ScaleWidth / 2
   YPos = ScaleHeight / 2
   Radius = ((YPos * 0.9) + 1) * Rnd
   Circle (XPos, YPos), Radius, RGB (R, G, B)
End Sub
.
.
.
Private Sub Timer1_Timer ()
.
.
.
End Sub