说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何在picturebox中使用喷枪和油漆桶?

编辑:说三道四文库 发布时间:2018-02-23 10:36
HTML文档下载 WORD文档下载 PDF文档下载
我已经调用了API,但是却无法实现喷枪和油漆桶的效果。请高手指点一下,最好有源代码。谢谢
油漆桶过于简单,到MSDN查FloodFill及其相关函数。

关于喷笔,稍稍动一点脑筋就可以了

Dim nX, nY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Timer1.Enabled = True
        nX = X
        nY = Y
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Timer1.Enabled = True
        nX = X
        nY = Y
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Me.DrawWidth = 1
    For i = -10 To 10
        For j = -10 To 10
            PSet (nX + Rnd * i * 100, nY + Rnd * j * 100)
        Next j
    Next i
End Sub
我已经解决了
我的主页上有相关的程序:
http://www.applevb.com/sourcecode/sgra.htm
支持建立很多类型的画笔
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘