发一个水波纹的特效

vb2014 2011-06-06 10:20:00

用法
Private declare Function enablewater Lib "waterctrl.dll" (Handle As Integer ,left As Integer ,top As Integer ,bitmapHandle As Integer ,WaterRadius as integer, WaterHeight as integer) As Boolean

窗体的句柄
'handle 放置特效窗口的父窗口句柄。
'Left 左位置
'Top 上位置
'Bmp 位图句柄。
'WaterRadius 水纹半径，会令到水纹看起来范围更广。
'WaterHeight 水纹高度，会令到水纹看起来更深。
'注意，水纹插件自动根据图片来设定高度和宽度，
'另外水纹底图必须是翻转的图片，显示的时候会翻转图片来显示。

private declare function waterblob Lib "waterctrl.dll" (x as integer, y as integer. radius as integer ,height as integer) as Boolean '没测试

' 在 x,y 点产生半径为radius, 高度为height 的水纹。

private declare function disablewater Lib "waterctrl.dll" () as boolean
' 释放水纹插件

private declare function flattenwater Lib "waterctrl.dll" () as boolean
'平伏所有水纹。

private declare function setwaterparent Lib "waterctrl.dll" (HWND as integer ) as BOOLean
'v2 新增，设置水纹插件的父句柄

http://download.csdn.net/source/3342563

...全文