Visual Basic编写图形填充程序,在窗体上存在绘制和关闭按钮,点击绘制按钮可绘制一个正方形填充红色,坐标为100, 10, 50, 50,绘制一个正方形填充黄色,坐标为100, 70, 50, 50,按关闭按钮关闭窗体,请编写完整代码
时间: 2024-02-13 09:01:47 浏览: 51
以下是 Visual Basic 编写的一个完整的图形填充程序,包括绘制和关闭按钮。您可以将代码复制粘贴到 Visual Basic 环境中进行测试。
```vb
Public Class Form1
Private Sub DrawButton_Click(sender As Object, e As EventArgs) Handles DrawButton.Click
'绘制红色正方形
Dim rect1 As New Rectangle(100, 10, 50, 50)
Dim brush1 As New SolidBrush(Color.Red)
Me.CreateGraphics().FillRectangle(brush1, rect1)
'绘制黄色正方形
Dim rect2 As New Rectangle(100, 70, 50, 50)
Dim brush2 As New SolidBrush(Color.Yellow)
Me.CreateGraphics().FillRectangle(brush2, rect2)
End Sub
Private Sub CloseButton_Click(sender As Object, e As EventArgs) Handles CloseButton.Click
Me.Close()
End Sub
End Class
```
在该程序中,我们添加了两个按钮:绘制按钮和关闭按钮。绘制按钮的 Click 事件处理程序中,我们使用 CreateGraphics 方法创建了一个绘图对象,然后绘制了两个正方形并填充对应的颜色。关闭按钮的 Click 事件处理程序中,我们调用了 Me.Close 方法关闭了窗体。
需要注意的是,使用 CreateGraphics 方法创建的绘图对象是临时的,当窗体被重绘时,绘制的图形会消失。如果您需要保留绘制的图形,请使用窗体的 Paint 事件,将绘图操作放在 Paint 事件处理程序中。
希望这个例子对您有所帮助。如果您有任何问题或者需要进一步的帮助,请随时提问。
阅读全文