【发布时间】:2013-10-08 00:22:35
【问题描述】:
我正在尝试通过单击一个按钮来绘制一个矩形,但是尽管我认为它很简单,但我无法正确完成。
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
' Create pen.
Dim blackPen As New Pen(Color.Black, 1)
' Create rectangle.
Dim rect As New Rectangle(10, 710, 35, 100)
' Draw rectangle to screen.
Me.CreateGraphics.DrawRectangle(blackPen, rect)
End Sub
我正在使用 VB.NET
【问题讨论】:
-
你应该为你的按钮命名。
-
你遇到了什么错误?
-
使用 CreateGraphics() 几乎永远不会正确,当表单重新绘制自身时,您绘制的任何内容都会再次消失。这里可能的“它不起作用”的解释是你的窗口不够大。使用小于 710 的值。最小化并恢复窗口以查看 CreateGraphics() 的问题。