17 lines
446 B
VB.net
17 lines
446 B
VB.net
Imports System.Drawing
|
|
|
|
Public Class GraphicsEx
|
|
|
|
Public Shared Function GetBrightness(c As Color) As Single
|
|
Return (c.R * 0.299F + c.G * 0.587F + c.B * 0.114F) / 256.0F
|
|
End Function
|
|
|
|
Public Shared Function GetContrastedColor(pOtherColor As Color) As Color
|
|
If GetBrightness(pOtherColor) < 0.55 Then
|
|
Return Color.White
|
|
Else
|
|
Return Color.Black
|
|
End If
|
|
End Function
|
|
End Class
|