Search Tools Links Login

A chaotic ScreenSaver using DirectX 7


It's my first DirectX Project. Please say what you think of it!

Original Author: Stephan Kirchmaier

Inputs

You must link "DirectX7 for Visual Basic Type Library" to your Project.

Assumptions

The ScreenSaver ends by clicking on the screen.

Code

Option Explicit
Private DX7 As DirectX7
Private DXD As DirectDraw7
Private DXDS As DirectDrawSurface7
Private DXSD As DDSURFACEDESC2
Private Sub Form_Load()
Dim i As Long, j As Long

frmMain.Show
'Create a DirectX7-Object and a DirectDraw-Object
Set DX7 = New DirectX7
Set DXD = DX7.DirectDrawCreate("")
With DXSD
  .lFlags = DDSD_CAPS
  .ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
End With
'Fullscreen and set the resolution to 640 X 480
DXD.SetCooperativeLevel frmMain.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN
DXD.SetDisplayMode 640, 480, 16, 0, DDSDM_DEFAULT
'Create the Surface using the Surfacedescription DXSD
Set DXDS = DXD.CreateSurface(DXSD)
i = 0
Do Until DoEvents()
  For j = 0 To ScaleWidth Step 50
   'Set the Linecolor
   DXDS.SetForeColor i
   'Draw the line
   DXDS.DrawLine Rnd * Screen.Width, Rnd * Screen.Height, j, 0
   i = i + 1
   'Change the color
   If i = 65536 Then
    i = 0
   End If
  Next j
Loop
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call endp
End Sub
Private Sub endp()
'Clean up things
DXD.RestoreDisplayMode
Set DX7 = Nothing
Set DXD = Nothing
Set DXDS = Nothing
End
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 161 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.