Question

vb中怎么设置每摁一下窗体变换一次颜色?

为什么在vb中form1_load下面代码写了画圆的代码运行时却显示不出来？只有在form1_click中才能用？

题目要求：
设置坐标系，左上角坐标为（0，0），右下角坐标为（20，20）；

当重复单击窗体时，以红、黄、绿的顺序交替出现实心圆，每个圆的半径均为2，其圆心也都在窗体的中央。
这道题的代码应该怎么写？

Answer 1

我之前纠结了很久怎么做到有规律地点击换颜色，刚才突然想到了，设置一个变量n
dim n as integer
private sub form1_load（）
scale（0,0）-（20,20）
circle（10,10）,2, vb red
end sub
private sub form1_click
n=n+1
if n mod 3=0 then form1.forecolor= vbred
if （n+1）mod 3=0 then form1.forecolor = vbblue
if （n+2）mod 3=0 then form1.forecolor = vbyellow
end sub

Answer 2

Private Sub Form_Click()
Me.FillColor = IIf(Me.FillColor = vbYellow, vbGreen, IIf(Me.FillColor = vbRed, vbYellow, vbRed))
Me.Circle (10, 10), 2, Me.FillColor
End Sub

Private Sub Form_Load()
Me.Scale (0, 0)-(20, 20)
Me.FillStyle = 0
Me.AutoRedraw = True
Form_Click
End Sub