ASCII 窗体示例

图 A.3 示出了取自 Blanker 应用程序示例的 Blanker.frm 窗体。

图 A.3 取自 Blanker.vbp 应用程序示例的窗体示例

这里是保存在 Visual Basic 中的 Blanker 窗体的部分。移动到保存空间的窗体部分用竖的省略号表明。

VERSION 6.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                     '源
   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