Question

VB如何使用PSet方法清除窗体上的一些像素？

Answer 1

使用：Me.PSet (X , Y), Me.BackColor例如代码：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then For i = -30 To 30 For j = -30 To 30 Me.PSet (X + i, Y + j), Me.BackColor Next j Next i ElseIf Button = 1 Then For i = -30 To 30 For j = -30 To 30 Me.PSet (X + i, Y + j), vbRed Next j Next i End IfEnd Sub

Answer 2

难道这也可以？vb不是万能的