Zip File view

VERSION 2.00
Begin Form frmPixelBoard
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   735
   ClientLeft      =   1290
   ClientTop       =   3060
   ClientWidth     =   7035
   ControlBox      =   0   'False
   Height          =   1170
   Icon            =   PIXELBRD.FRX:0000
   Left            =   1215
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   735
   ScaleWidth      =   7035
   Top             =   2700
   Width           =   7185
   Begin Timer ScrollImage
      Enabled         =   0   'False
      Interval        =   10
      Left            =   2925
      Top             =   1500
   End
   Begin PictureClip picChar
      Cols            =   93
      Location        =   "25380,450,1485,-15"
      Picture         =   PIXELBRD.FRX:0302
   End
   Begin TextBox txtMessage
      Height          =   375
      Left            =   525
      TabIndex        =   3
      Text            =   "PIXEL BOARD BY: DAMON BRODIE !!!"
      Top             =   900
      Width           =   2880
   End
   Begin SSPanel pnlBorder
      BevelInner      =   1  'Inset
      BevelWidth      =   2
      BorderWidth     =   5
      Height          =   750
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7035
      Begin SSPanel pnlWindow
         BevelOuter      =   0  'None
         BevelWidth      =   2
         BorderWidth     =   5
         Height          =   465
         Left            =   135
         TabIndex        =   1
         Top             =   135
         Width           =   6750
         Begin PictureBox picMessage
            AutoRedraw      =   -1  'True
            BackColor       =   &H00000000&
            Height          =   480
            Left            =   30
            ScaleHeight     =   30
            ScaleMode       =   3  'Pixel
            ScaleWidth      =   452
            TabIndex        =   2
            Top             =   0
            Width           =   6810
            Begin Image imgChar
               Height          =   435
               Index           =   1
               Left            =   675
               Top             =   0
               Width           =   270
            End
         End
      End
   End
End
Option Explicit
' Pixel Board 1.0
' September 24, 1994
' Visual Basic 3.0 Prof.
' By: Damon Brodie
' [[Email Removed]]
' email me with any suggestions you have!!


Dim PixelX As Integer
Dim PixelY As Integer
Dim ReturnToStart As Long

Sub FixMessage (Mess$)
' Put spaces on either side of message so that it scrolls on and off.
Mess$ = Space(25) + Trim(Mess$) + Space(25)
End Sub

Sub Form_Load ()
Dim Temp$
PixelX = Screen.TwipsPerPixelX
PixelY = Screen.TwipsPerPixelY
Temp$ = txtMessage.Text
FixMessage Temp$
InitImages Temp$
ScrollImage.Enabled = True
End Sub

Sub imgChar_Click (Index As Integer)
End
End Sub

Sub InitImages (Mess$)
Dim t As Integer
Dim LeftLoc  As Long
LeftLoc = 0
picMessage.Top = 0
picMessage.Width = (imgChar(1).Width * PixelX) * Len(Mess$)
ReturnToStart = -((Len(Mess$) - 25) * imgChar(1).Width) * PixelX

For t = 2 To Len(Mess$)
   Load imgChar(t)
Next

For t = 1 To Len(Mess$)
   imgChar(t).Left = LeftLoc
   imgChar(t).Top = 0
   imgChar(t).Picture = picChar.GraphicCell(Asc(Mid(Mess$, t, 1)) - 32)
   imgChar(t).Visible = True
   LeftLoc = LeftLoc + 18
Next
End Sub

Sub ScrollImage_Timer ()
picMessage.Left = picMessage.Left - 3 * PixelX
If picMessage.Left < ReturnToStart Then
   picMessage.Left = 0
End If
End Sub