Creates a Lens effect like u know from some demos or the windows screensavers. think this is the fastest way to do this in VB. Runs smooth on my 333MHz PC. NEW Lens Calculation is faster (thx to Carles P.V.) and some errors fixed (Thx to Robert Rayment)
| Submitted On | 2002-09-07 16:56:52 |
| By | Scythe |
| Level | Intermediate |
| User Rating | 4.9 (59 globes from 12 users) |
| Compatibility | VB 5.0, VB 6.0 |
| Category | Graphics |
| World | Visual Basic |
| Archive File | Lens_(Upda1302829122002.zip |
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)
React
Typescript
Django
Laravel
Facebook
Microsoft
Google
Alibaba
D3
Tencent