• Home
 · 
• Graphics
 · 
• Modifies the amount of red, green, or blue in an area of a picture box or form. Doesn't use Direct

Modifies the amount of red, green, or blue in an area of a picture box or form. Doesn't use Direct

Modifies the amount of red, green, or blue in an area of a picture box or form. Doesn't use Direct X.

Rate Modifies the amount of red, green, or blue in an area of a picture box or form. Doesn't use Direct

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function ModifyGammaRect(obj As Object, x1 As Single, y1 As Single, x2 As Single, y2 As Single, R As Integer, G As Integer, B As Integer, Optional Quick As Boolean = False) As Boolean
On Local Error GoTo err:
obj.FillStyle = 1
obj.FillColor = RGB(Abs(R), Abs(G), Abs(B))
If Quick Then
obj.DrawMode = 15
obj.Line (x1, y1)-(x2, y2), RGB(Abs(R), Abs(G), Abs(B)), BF
Else
If R < 0 Then
obj.DrawMode = 3
obj.Line (x1, y1)-(x2, y2), RGB(Abs(R), 0, 0), BF
End If
If R > 0 Then
obj.DrawMode = 15
obj.Line (x1, y1)-(x2, y2), RGB(Abs(R), 0, 0), BF
End If
If G < 0 Then
obj.DrawMode = 3
obj.Line (x1, y1)-(x2, y2), RGB(0, Abs(G), 0), BF
End If
If G > 0 Then
obj.DrawMode = 15
obj.Line (x1, y1)-(x2, y2), RGB(0, Abs(G), 0), BF
End If
If B < 0 Then
obj.DrawMode = 3
obj.Line (x1, y1)-(x2, y2), RGB(0, 0, Abs(B)), BF
End If
If B > 0 Then
obj.DrawMode = 15
obj.Line (x1, y1)-(x2, y2), RGB(0, 0, Abs(B)), BF
End If
End If
ModifyGammaRect = True
obj.DrawMode = 13
Exit Function
err:
ModifyGammaRect = False
End Function

Function ModifyGammaCirc(obj As Object, x1 As Single, y1 As Single, Radius As Single, R As Integer, G As Integer, B As Integer, Optional Quick As Boolean = False) As Boolean
On Local Error GoTo err:
If Quick Then
obj.DrawMode = 15
obj.Circle (x1, y1), Radius, RGB(Abs(R), Abs(G), Abs(B))
Else
obj.FillStyle = 0
If R < 0 Then
obj.DrawMode = 3
obj.FillColor = RGB(Abs(R), 0, 0)
obj.Circle (x1, y1), Radius, RGB(Abs(R), 0, 0)
End If
If R > 0 Then
obj.DrawMode = 15
obj.FillColor = RGB(Abs(R), 0, 0)
obj.Circle (x1, y1), Radius, RGB(Abs(R), 0, 0)
End If
If G < 0 Then
obj.DrawMode = 3
obj.FillColor = RGB(0, Abs(G), 0)
obj.Circle (x1, y1), Radius, RGB(0, Abs(G), 0)
End If
If G > 0 Then
obj.DrawMode = 15
obj.FillColor = RGB(0, Abs(G), 0)
obj.Circle (x1, y1), Radius, RGB(0, Abs(G), 0)
End If
If B < 0 Then
obj.DrawMode = 3
obj.FillColor = RGB(0, 0, Abs(B))
obj.Circle (x1, y1), Radius, RGB(0, 0, Abs(B))
End If
If B > 0 Then
obj.DrawMode = 15
obj.FillColor = RGB(0, 0, Abs(B))
obj.Circle (x1, y1), Radius, RGB(0, 0, Abs(B))
End If
End If
obj.DrawMode = 13
ModifyGammaCirc = True
Exit Function
err:
ModifyGammaCirc = False
End Function