home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpong1a / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-09  |  1.2 KB  |  50 lines
  1. VERSION 5.00
  2. Begin VB.Form main2 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "CDXVB-Demo"
  6.    ClientHeight    =   7200
  7.    ClientLeft      =   105
  8.    ClientTop       =   105
  9.    ClientWidth     =   8880
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   480
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   592
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16. Attribute VB_Name = "main2"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. Private Sub Form_Click()
  22.       bActive = False
  23. End Sub
  24. Private Sub Form_Load()
  25.       bActive = True
  26.       Dim ct As Long, nt As Long
  27.       Set myFPS = New CDXVBFPS
  28.       Call DDrawCode.InitDDraw
  29.       Call DInputCode.InitDInput
  30.       Call DSoundCode.InitDSound
  31.       Call CDMusic.InitCDMusic
  32.       
  33.       
  34.       While (bActive)
  35.             DoEvents
  36.             
  37.             myFPS.GetFPS
  38.             
  39.             Call DInputCode.HandleInput
  40.             Call DDrawCode.RenderMe
  41.       Wend
  42.       
  43.       
  44.       myScreen.ShowMouse
  45.       myInput.UnAcquire
  46.       CDMusic.TerminateCDMusic
  47.       
  48.       Unload Me
  49. End Sub
  50.