实现水纹水波的代码 DLL类库付说明 PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) DimLClickCountAsLong 'Randomize IfButton=1Then WaveDropStoneX,Y,2,256 Else LClickCount=Rnd*3 SelectCaseLClickCount Case