Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.69
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.69

e.Graphics.DrawRectangle(New Pen(Color.Red, 2), rec)

e.Graphics.FillRectangle(txr, reel)

End Sub

Private Sub Form2_MouseMove(ByVal sender As Object, ByVal e _ As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove z = e.X v = e.Y

SetStyle(ControlStyles.UserPaint, True)

Setstyle(ControlStyles.AllPaintinglnWmPaint, True)

Setstyle(ControlStyles.DoubleBuffer, True)

Me.RefreshO

End Sub

11.2. Регулировка цвета

Как уже упоминалось выше, любой колер можно подобрать, смешивая три цвета: красный, зеленый, голубой. Так что простейший способ регулировки цвета заключается в том, чтобы объявить переменные, значением которых будут величины, определяющие количество каждой из трех красок, то есть интенсивность цвета, а затем изменять значения этих переменных. Необходимые изменения вносятся в уже известный нам код: Color. FromArgb( 255 , 255, 255, 255).

Речь идет о том, что принято называть пространством цветовой модели изображения. Условное обозначение ARGB расшифровывается так: alpha, red, green, blue, то есть альфа, красный, зеленый, голубой. Первое число, которое вы видите в этом коде, определяет степень прозрачности этих цветов. При нулевом значении цвет полностью прозрачен, а при значении 255 имеет наибольшую интенсивность. Второе, третье и четвертое числа отображают интенсивность каждого из трех цветов. Нулевое значение - наименьшая интенсивность, а значение 255 - наибольшая.

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Регулировка цвета

При использовании такой цветовой модели все изменения в окраску объекта можно вносить программно, устанавливая нужные величины непосредственно в коде или с помощью различных элементов управления, таких как таймер, ползунок, поля ввода. В приведенном ниже примере градиентная заливка эллипса регулируется с помощью элемента управления ТгаскВаг (Ползунок).

Dim rd As Integer Dim bl As Integer Dim gr As Integer

Private Sub Forml_Paint(ByVal sender As Object, ByVal _

e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim a As New System.Drawing.Drawing2D.GraphicsPath

a. AddEllipse(200, 20, 200, 200)


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta