VB.Net by API/Microsoft.VisualBasic/ControlChars
ControlChars.Lf
<source lang="vbnet">
Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class GetSaturationGetBrightness
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim g As Graphics = Me.CreateGraphics() " Create a color Dim clr As Color = Color.FromArgb(255, 200, 0, 100) " Get hue, saturation, and brightness components Dim h As Single = clr.GetHue() Dim s As Single = clr.GetSaturation() Dim v As Single = clr.GetBrightness() Dim str As String = "Hue: " + h.ToString() + ControlChars.Lf + "Saturation: " + s.ToString() + ControlChars.Lf + "Brightness: " + v.ToString() " Display data g.DrawString(str, New Font("verdana", 12), Brushes.Blue, 50, 50) " Dispose g.Dispose()
End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class
</source>