Пример: рисование линий
Подпрограмма Button1_Click рисует горизонтальную прямую линию синего цвета
Подпрограмма Form1_Paint рисует прямую линию красного цвета
Dim G As Graphics
Dim P1 As Pen = New Pen(Color.Blue, 2)
Private Sub Button1_Click(ByVal sender _
As Object, ByVal e _
As System.EventArgs) Handles Button1.Click
G = Me.CreateGraphics
G.DrawLine(P1, 10, 165, 160, 165)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e _
As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim P2 As Pen = New Pen(Color.Red, 2)
G = Me.CreateGraphics
G.DrawLine(P2, 10, 15, 110, 115)
End Sub
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|