各位好.有一事不明白.能在vb6.0下很容易实现的水波特效.为什么在下就实现不了呢?网上一个都没有相关介绍.
以下是vb6.0的相关源代码.我转换成后.修改了相关代码还是不能实现.
以下是 vb6.0的代码:和我在另一个论坛讨论该问题的网址.麻烦各位帮忙看看.如何实现水波特效:
dll文件在附件里

Private Declare Function WaterInit Lib "waterdll.dll" (ByVal bitmap As Long) As Long
Private Declare Function WaterMouseAction Lib "waterdll.dll" (ByVal hdc As _
    Long, ByVal sx As Long, ByVal sy As Long, ByVal mx As Long, _
        ByVal my As Long, ByVal half As Long, ByVal deep As Long) As Long

Private Declare Function WaterTimer Lib "waterdll.dll" (ByVal hdc As Long, ByVal sx As _
    Long, ByVal sy As Long) As Long


Private Sub Form_Load()
     
     
    WaterInit Picture1.Picture.Handle

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    WaterMouseAction Form1.hdc, 10, 10, X, Y, 60, 500
     
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    WaterMouseAction Form1.hdc, 10, 10, X, Y, 5, 80
End Sub

Private Sub Timer1_Timer()

    WaterTimer Form1.hdc, 10, 10
     
End Sub

另一个论坛讨论该问题的网址:
http://topic.