VB2005 在picturebox控件的click中绘图的问题

来源：百度知道 编辑：UC知道 时间：2024/05/25 06:39:06
Dim m As Integer
Dim strBrush As New Drawing.SolidBrush(Drawing.Color.Black)
Dim strFont As New System.Drawing.Font("新宋体", 10)
Dim strFormat As New Drawing.StringFormat()

Private Sub picturebox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picturebox.Click

m += 1
Dim mybitmap As New Drawing.Bitmap(100, 48)
Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(mybitmap)
Me.picReady.Image = mybitmap
Dim pointarray As Drawing.Point() = {New Drawing.Point(2, 24), New Drawing.Point(25, 2), New Drawing.Point(75, 2), New Drawing.Point(98, 24), New Drawing.Point(75, 46), New Drawing.Point(25, 46)}’填充区域

If m Mod 2 Then 'picturebox控件单击奇数次
g.FillPolygon(Drawing.Brushes.WhiteSmoke, pointarray)
Else
g.FillPolygon(Drawing.Brushes.blue, pointarray)
End If
g.DrawString(&q

LZ能描述下这部分代码运行的时，具体出现了什么问题吗，
我给个单击时改变窗体颜色的代码。LZ看看
private sub form_click()
refresh
end sub

private sub form_paint()
static num as integer
x=scalewidth/2
y=scaleheight/2
radius=scalewidth/4
filstyle=vbFSSslid
num=num+1
num=num mod 2
selext case num
case 0
fillcolor=QBcolor(0)
circle(x,y),radius
case 1
filecolor=QBcolor(1)
circe(x,y),radius
end select
end sub

代码是直接在回答问题的文本框里打的 考虑可能有不当的地方
代码都比较简单，就没加注释,LZ将就看下

确保picturebox控件名称是对的(也就是你的窗体上有这个名称的控件)