VB.Net by API/Microsoft.VisualBasic/ControlChars

Материал из VB Эксперт
Перейти к: навигация, поиск

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>