home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / easyx / data1.cab / Example_Files / EX_9 / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-03  |  2.8 KB  |  94 lines
  1. VERSION 5.00
  2. Object = "{5A65A9C0-089F-11D2-88AD-0000B45C4CF6}#1.2#0"; "EASYX.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3195
  12.    ScaleWidth      =   4680
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin PROJECTEXLibCtl.EasyX EasyX1 
  15.       Left            =   960
  16.       OleObjectBlob   =   "Form1.frx":014A
  17.       Top             =   120
  18.    End
  19. Attribute VB_Name = "Form1"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = False
  22. Attribute VB_PredeclaredId = True
  23. Attribute VB_Exposed = False
  24. Option Explicit
  25. Const ScreenWidth As Long = 800
  26. Const ScreenHeight As Long = 600
  27. Const HalfScreenHeight As Long = 300
  28. Const HalfScreenWidth As Long = 400
  29. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  30. Private Sub Form_Load()
  31. Dim rt As Long
  32. EasyX1.Window = Me.hWnd
  33. rt = EasyX1.InitDirectDraw(ScreenWidth, ScreenHeight, 8)
  34. If rt <> EX_OK Then
  35.     MsgBox "EasyX could not initialize DirectDraw"
  36.     Exit Sub
  37. End If
  38. 'Create the keyboard and acquire it
  39. EasyX1.InitDirectInput
  40. EasyX1.CreateKeyboard
  41. EasyX1.AcquireKeyboard
  42. RunMain
  43. End Sub
  44. Private Sub RunMain()
  45. Dim X As Long, Y As Long
  46. Dim YMinus As Boolean
  47. Dim XMinus As Boolean
  48. Dim X2 As Long, Y2 As Long
  49.     X2 = X2 + 1
  50.     Y2 = Y2 + 1
  51.     If YMinus Then
  52.         Y = Y - 2
  53.     Else
  54.         Y = Y + 2
  55.     End If
  56.     If XMinus Then
  57.         X = X - 1
  58.     Else
  59.         X = X + 1
  60.     End If
  61.         
  62.         
  63.         
  64.     EasyX1.AcquireKeyboard
  65.     If EasyX1.GetKeyState(EX_ESCAPE) = EX_KEYDOWN Then
  66.         EasyX1.EndDirectX
  67.         Exit Do
  68.     End If
  69.     EasyX1.FillSurface 0, EX_PRIMARYSURFACE
  70.         
  71.     EasyX1.DrawLine X2, HalfScreenHeight - Y, X2, HalfScreenHeight + Y, 150, EX_PRIMARYSURFACE
  72.     EasyX1.DrawLine -X2 + ScreenWidth, HalfScreenHeight - Y, -X2 + ScreenWidth, HalfScreenHeight + Y, 150, EX_PRIMARYSURFACE
  73.     EasyX1.DrawLine HalfScreenWidth - X, Y2, HalfScreenWidth + X, Y2, 150, EX_PRIMARYSURFACE
  74.     EasyX1.DrawLine HalfScreenWidth - X, -Y2 + ScreenHeight, HalfScreenWidth + X, -Y2 + ScreenHeight, 150, EX_PRIMARYSURFACE
  75.     EasyX1.FlipSurface
  76.         
  77.     If Y > HalfScreenHeight Then
  78.         YMinus = True
  79.     ElseIf Y < 0 Then
  80.         YMinus = False
  81.     End If
  82.     If X > HalfScreenWidth Then
  83.         XMinus = True
  84.     ElseIf X < 0 Then
  85.         XMinus = False
  86.     End If
  87.     If X2 > ScreenWidth Then X2 = 0
  88.     If Y2 > ScreenHeight Then Y2 = 0
  89.     DoEvents
  90.     Sleep 5
  91.         
  92. Unload Me
  93. End Sub
  94.