by Walter Eigner (15 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 2nd December 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Fades area of screen.
Dim LONG1 As Long
Dim LONG2 As Long
Dim R1 As Long
Dim G1 As Long
Dim B1 As Long
Dim r As Long
Dim G As Long
Dim B As Long
LONG1 = frm.Point(pointX, pointY)
B1 = LONG1 \ 65536
G1 = (LONG1 - B1 * 65536) \ 256
R1 = LONG1 - B1 * 65536 - G1 * 256
r = abs(r1-1)
G = abs(r2-1)
B = abs(r3-1)
frm.PSet (pointX, pointY), RGB(r, G, B)
End Sub
Sub drawDark(frm As Form, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
Dim x As Integer
Dim i As Integer
For x = x1 To x2
For i = y1 To y2
drawDarkPx frm, x, i, translucentColor
Next
Next
End Sub