VBcoders Browse New Submit Contact Sign In

No account? Register free

Forgot password?

Raindrops

Scythe  (20 Submissions)   Graphics   Visual Basic 5.0   Intermediate   Wed 3rd February 2021

Draws Raindrops like most know from Javaapplet. Nice effect and now (updated) real fast.
New Version runs smoth on a 333MHz PC (compiled)

API Declarations
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Rate Raindrops (12(12 Vote))

Download Raindrops

Raindrops Comments

No comments yet — be the first to post one!

Post a Comment

0/1000 characters