这是我画的一个圆  
   Dim a As Single
   Dim b As Single

Private Sub picdraw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   a = X
   b = Y
End Sub

Private Sub picdraw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    Picdraw.Cls
    Picdraw.Circle ((a + X) / 2, (b + Y) / 2), (((a - X) ^ 2 + (b - Y) ^ 2) ^ 0.5) / 2, RGB(0, 0, 0)
    End If
  
End Sub

不是这样的，是要通过在画好的这个圆内画无数条给定颜色的直径，最终填满这个圆

我没有办法呀，大哥，师傅叫我这样写的，主要是为了教学，能提点一下小弟吗

感谢前辈，但是这样有一个问题就是，圆画好后，触发mouseUp事件会重复的做画线动作

[ 本帖最后由 落日幻影 于 2013-10-23 16:25 编辑 ]

mousedown，跟mousemove是我自己写的，后面的mouseup是lowxiong前辈帮我补的。前辈能不能就是说：在画好圆之后，在这个圆内点一下，然后由这个点发散画线到颜色与线的颜色不一样的圆周位置，也是找两个点的坐标，我实在不知道怎么来写

[ 本帖最后由 落日幻影 于 2013-10-23 17:03 编辑 ]

我先不管怎么拖动画圆了，先画两个现成的圆，我写了这段代码，可以实现在一个区域内点一下可以画出一条直线，但怎么写可以把这个区域一这样画线的方式填充好，我试着谢了好几次都不行，前辈帮我补充一下
Dim rgbColor As String
Dim dr As Single
Dim dg As Single
Dim db As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    rgbColor = Hex(Me.Point(x, y))
    rgbColor = Change2RGB(rgbColor)
    Call printline(x, y)
   
End Sub



Private Sub Form_paint()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Circle (2000, 2000), 1000, RGB(0, 0, 0)
    Circle (2800, 2800), 1000, RGB(0, 0, 0)
End Sub


Private Function printline(x As Single, y As Single)
   
    Dim lx As Single
    Dim ly As Single
    Dim rx As Single
    Dim ry As Single
    Dim loopflag As Boolean
    loopflag = True
    lx = x - 1
    Do While loopflag
        If Change2RGB(Me.Point(lx, y)) <> rgbColor Then
            loopflag = False
        Else
            lx = lx - 1
        End If
    Loop
   
    loopflag = True
    rx = x + 1
    Do While loopflag
        If Change2RGB(Me.Point(rx, y)) <> rgbColor Then
            loopflag = False
        Else
            rx = rx + 1
        End If
    Loop
    Me.Line (lx, y)-(rx, y), RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
End Function

Private Function Change2RGB(c As String)
    Select Case Len(c)
        Case 1: Change2RGB = "00000" & c
        Case 2: Change2RGB = "0000" & c
        Case 3: Change2RGB = "000" & c
        Case 4: Change2RGB = "00" & c
        Case 5: Change2RGB = "0" & c
    End Select
End Function

真的非常感谢前辈，麻烦你了

真的很感谢前辈