Question

VB程序设计 ： 我在picture事件里面画了圆，想通过Mouse事件移动圆 怎么办 急！今天之内就要！！！

Dim a(8) As Integer
Private Sub Command1_Click()
a(1) = 1
a(2) = 1
a(3) = 0
a(4) = 2
a(5) = 2
Call draw
End Sub

Private Sub draw()
Picture1.Cls
Picture1.BackColor = &HFFC0C0
Picture1.FillStyle = 0
For i = -3 To 3
Picture1.Line (i, -1)-(i, 1), QBColor(0)
Picture1.Line (-3, i)-(3, i), QBColor(0)
Next i

For i = -3 To 3

If a(i + 3) = 1 Then
Picture1.FillColor = QBColor(5)
Picture1.Circle (CInt(i), CInt(0)), 0.3, QBColor(0)

End If

If a(i + 3) = 2 Then
Picture1.FillColor = QBColor(3)
Picture1.Circle (CInt(i), CInt(0)), 0.3, QBColor(0)

End If

Next

End Sub

Answer 1

难道你不知道 PICTURE1的MOUSEMOVE事件里结合X,Y坐标重写DRAW函数？