Практическое руководство. Рисование линии в Windows Forms

Статья
11/05/2008

Обновлен: Ноябрь 2007

В этом примере на форме рисуется линия.

Пример

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics As System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawLine(myPen, 0, 0, 200, 200)
myPen.Dispose()
formGraphics.Dispose()

System.Drawing.Pen myPen = new System.Drawing.Pen(System.Drawing.Color.Red);
System.Drawing.Graphics formGraphics;
formGraphics = this.CreateGraphics();
formGraphics.DrawLine(myPen, 0, 0, 200, 200);
myPen.Dispose();
formGraphics.Dispose();

System::Drawing::Pen^ myPen =
    gcnew System::Drawing::Pen(System::Drawing::Color::Red);
System::Drawing::Graphics^ formGraphics;
formGraphics = this->CreateGraphics();
formGraphics->DrawLine(myPen, 0, 0, 200, 200);
delete myPen;
delete formGraphics;

Компиляция кода

Этот метод нельзя вызывать в обработчике события Load. Если размер формы был изменен или форма была скрыта другой формой, рисунок перерисовываться не будет. Чтобы выполнять перерисовку автоматически, нужно переопределить метод OnPaint.