求助!水波特效!
各位好.有一事不明白.能在vb6.0下很容易实现的水波特效.为什么在vb.net下就实现不了呢?网上一个都没有相关介绍.以下是vb6.0的相关源代码.我转换成vb.net后.修改了相关代码还是不能实现.
以下是 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.csdn.net/u/20080415/23/c69b1279-e634-4da9-ad6c-0b221b9e8993.html?seed=535108703
页:
[1]