Question

vb程序设计画随即颜色的圆

鼠标按下确定圆心 然后拖动直到松开的时候画出圆 ，半径为按下到松开点的距离 圆的颜色还要随机

Answer 1

Dim OldX As Single
Dim OldY As Single
Dim C As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize
R = 255 * Rnd(1)
G = 255 * Rnd(10)
B = 255 * Rnd(100)
C = RGB(R, G, B)
Me.ForeColor = C
Me.PSet (X, Y)
OldX = X
OldY = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (OldX, OldY), Sqr((OldX - X) ^ 2 + (OldY - Y) ^ 2), C
End Sub