FillRectangle
Previous  Next

Draws a filled rectangle on the image.
Syntax: FillRectangle (brush As SolidBrush, rect As Rectangle)
Example:
'Add a Drawer object named drawer, a Brush object named brush1 and a Rectangle object named rect.
Sub Globals

End Sub

Sub App_Start
      Form1.Show
      drawer.New1("Form1",false)
      brush1.New1(cRed)
      rect1.New1(50,50,80,40)
      drawer.FillRectangle(brush1.Value,rect1.Value)
      drawer.Refresh2(rect1.Value)
End Sub