home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / combo-1r / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-25  |  1.8 KB  |  62 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VBCredits"
  6.    ClientHeight    =   1575
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5625
  10.    BeginProperty Font 
  11.       Name            =   "Fixedsys"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00FFFFFF&
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   105
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   375
  26.    StartUpPosition =   3  'Windows Default
  27. Attribute VB_Name = "frmMain"
  28. Attribute VB_GlobalNameSpace = False
  29. Attribute VB_Creatable = False
  30. Attribute VB_PredeclaredId = True
  31. Attribute VB_Exposed = False
  32. Dim myCredits As New cCredits
  33. Private Sub Form_Load()
  34.     Dim CurTime As Long, NextTime As Long
  35.     Me.Show
  36.     NextTime = timeGetTime() + 50
  37.     myCredits.PosY = Me.scaleheight
  38.     Call LoadTXT
  39.     SetTextAlign Me.hDC, TA_CENTER
  40.     Do While DoEvents()
  41.         CurTime = timeGetTime()
  42.         If CurTime >= NextTime Then
  43.             Me.Cls
  44.             
  45.             myCredits.Move -1
  46.             myCredits.Draw Me.hDC, Me.scalewidth, Me.scaleheight
  47.             
  48.             NextTime = CurTime + 50
  49.         End If
  50.     Loop
  51. End Sub
  52. Public Sub LoadTXT()
  53.     ' Load strings for credits class
  54.     ReDim Strings(0)
  55.     Open App.Path & "\credits.txt" For Input As #1
  56.         Do Until EOF(1)
  57.             ReDim Preserve Strings(UBound(Strings) + 1)
  58.             Input #1, Strings(UBound(Strings))
  59.         Loop
  60.     Close #1
  61. End Sub
  62.