Search Tools Links Login

LaserShow Credits or Picture Writer *UPDATE*


This code writes images to a form using lines (Look like laser beams) and lets the writed text or picture go down smoothly, Now the laser moves also and the writed text waits at the en of the form until the new one arrives.

Original Author: Peter Hebels

API Declarations

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

About this post

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

Categories

Visual Basic 6

Attachments

LaserShow_628963172002.zip
Posted: 9/3/2020 3:45:00 PM
Size: 24,713 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.