VB中怎样删除用PSET方法画出的某个点(只删除一个点，而不是清屏)
展开全部
这样 ，清除点可以采用重绘点的方法（用背景色重绘）
Private Sub Form_Load()
Show
DrawWidth = 10
again:
For i = 0 To 2 * 3.14 Step 0.0001
PSet (1500 + 1000 * Cos(i), 1500 + 1000 * Sin(i))
Me.ForeColor = Me.BackColor
PSet (1500 + 1000 * Cos(i), 1500 + 1000 * Sin(i))
Me.ForeColor = vbBlack
Next
GoTo again
End Sub
Private Sub Form_Load()
Show
DrawWidth = 10
again:
For i = 0 To 2 * 3.14 Step 0.0001
PSet (1500 + 1000 * Cos(i), 1500 + 1000 * Sin(i))
Me.ForeColor = Me.BackColor
PSet (1500 + 1000 * Cos(i), 1500 + 1000 * Sin(i))
Me.ForeColor = vbBlack
Next
GoTo again
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
