实现水纹水波的代码 DLL类库 付说明 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim LClickCount As Long ' Randomize If Button = 1 Then WaveDropStone X, Y, 2, 256 Else LClickCount = Rnd * 3 Select Case LClickCount Case 0
VB技术生成动态的水波效果，压缩包内VB版云效果为标准版本，VB版云效果（提速版）为优化提速版本，云效果和水波效果在代码中有核心的生成函数，使用时可单独摘录出来。 Private Type RGBQUAD 只有bibitcount为1，2，4时才有调色板 Blue As Byte 蓝色分量 Green As Byte 绿色分量 Red As Byte 红色分量 Reserved As Byte 保留值 End Type Private Type B
