Megosztás a következőn keresztül:

Útmutató: Kitöltött téglalap rajzolása Windows-űrlapon

Ez a példa egy kitöltött téglalapot rajzol egy űrlapra.

példa

System::Drawing::SolidBrush^ myBrush =
    gcnew System::Drawing::SolidBrush(System::Drawing::Color::Red);
System::Drawing::Graphics^ formGraphics;
formGraphics = this->CreateGraphics();
formGraphics->FillRectangle(myBrush, Rectangle(0, 0, 200, 300));
delete myBrush;
delete formGraphics;

System.Drawing.SolidBrush myBrush = new System.Drawing.SolidBrush(System.Drawing.Color.Red);
System.Drawing.Graphics formGraphics;
formGraphics = this.CreateGraphics();
formGraphics.FillRectangle(myBrush, new Rectangle(0, 0, 200, 300));
myBrush.Dispose();
formGraphics.Dispose();

Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Red)
Dim formGraphics As System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.FillRectangle(myBrush, New Rectangle(0, 0, 200, 300))
myBrush.Dispose()
formGraphics.Dispose()

A kód összeállítása

Ezt a metódust nem hívhatja meg az Load eseménykezelőben. A rajzolt tartalom nem lesz újrarajzolva, ha az űrlapot egy másik űrlap átméretezi vagy eltakarja. Ahhoz, hogy a tartalom automatikusan újrafestődjön, Önnek felül kell írnia a OnPaint metódust.

Robusztus programozás

Mindig Dispose kell hívnia minden olyan objektumon, amely rendszererőforrásokat használ, például Brush és Graphics objektumokat.

Lásd még