说明: 实现水纹水波的代码 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 <hackcsy> 上传 | 大小:10kb