)
Графика используется,
как правило, для построения определенных
графических отчетов, для улучшения
интерфейса приложения, при создании
собственных элементов управления.
Добавим в наше приложение
прямоугольник, выделяющий область, в
которой находится элемент управления MonthCalendar (Рис.
14).
 |
Рис. 14 Использование графики. |
Листинг:
Public Class Form1
Private
Sub Button1_Click(ByVal
sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
Label1.Text = Label1.Text + TextBox1.Text + ";
"
ListBox1.Items.Add(TextBox1.Text)
End
Sub
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End
Sub
Private
Sub Form1_Paint(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As
Graphics = e.Graphics
Dim pn As
New Pen(Color.Black, 5)
'Задаем ширину и высоту
Dim width As
Integer = 200, height As
Integer = 180
'Задаем координаты вершины
Dim x As
Integer = 5, y As
Integer = 150
Dim rect As
New Rectangle(x, y, width, height)
g.DrawRectangle(pn, rect)
End
Sub
End Class