كيفية القيام بما يلي: إنشاء نموذج Windows Shaped

مقالة
11/01/2010

وهذا مثال يعطي نموذج بشكل قطع ناقص بتغيير حجم مع النموذج.

مثال

 Protected Overrides Sub OnPaint( _
ByVal e As System.Windows.Forms.PaintEventArgs)
     Dim shape As New System.Drawing.Drawing2D.GraphicsPath
     shape.AddEllipse(0, 0, Me.Width, Me.Height)
     Me.Region = New System.Drawing.Region(shape)
 End Sub

protected override void OnPaint(System.Windows.Forms.PaintEventArgs e)
{
    System.Drawing.Drawing2D.GraphicsPath shape = new System.Drawing.Drawing2D.GraphicsPath();
    shape.AddEllipse(0, 0, this.Width, this.Height);
    this.Region = new System.Drawing.Region(shape);
}

protected:
    virtual void OnPaint(
        System::Windows::Forms::PaintEventArgs^ e) override
    {
        System::Drawing::Drawing2D::GraphicsPath^ shape =
            gcnew System::Drawing::Drawing2D::GraphicsPath();
        shape->AddEllipse(0, 0, this->Width, this->Height);
        this->Region = gcnew System::Drawing::Region(shape);
    }

التحويل البرمجي للتعليمات البرمجية

يتطلب هذا المثال:

مراجع عن مساحات الأسماء System.Windows.Forms و System.Drawing.

يتجاوز هذا المثال OnPaintأسلوب إلى تغيير شكل نموذج. إلى استخدم هذه التعليمة البرمجية، قم بنسخ إعلان الأسلوب بالإضافة إلى تعليمات برمجية الرسم داخل الأسلوب.