Приветствую,
На форме кнопка Button1 и PictureBox1
Нажатием на кнопку рисуется прямоугольник с помощью четырёх линий (DrawRectangle не катит), рисунок 1
| Код |
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim g As System.Drawing.Graphics = PictureBox1.CreateGraphics
Using Перо1 As Pen = New Pen(Color.Goldenrod, 2)
g.DrawLine(Перо1, 10, 10, 140, 10)
g.DrawLine(Перо1, 140, 10, 140, 190)
g.DrawLine(Перо1, 140, 190, 10, 190)
g.DrawLine(Перо1, 10, 190, 10, 10)
End Using
End Sub
|
Рисунок 1:
Вопрос..как залить его цветом или заштриховать какой-нть штриховкой, как на рисунке 2 и не обязательно прямоугольник, это может быть и линза кака-нибудь, как на рисунке 2
Рисунок 2:
 |