• Home
 · 
• Graphics
 · 
• TestPattern

TestPattern

Simulates an antique rolling indian-head test pattern
using the up and down movement of the mouse as a vertical
hold control. Uses StretchBlt to resize the image to
current resolution. Have fun...

API Declarations
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Const SRCCOPY = &HCC0020

Rate TestPattern

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Download TestPattern