vb源程序.docVIP

Private Declare Function Getpixel Lib gdi32 Alias GetPixel (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function Setpixel Lib gdi32 Alias SetPixel (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Sub BJWSJS_Click() Dim dogr(0 To 1000, 0 To 1000) Dim dogg(0 To 1000, 0 To 1000) Dim dogb(0 To 1000, 0 To 1000) Dim monkeyr(0 To 1000, 0 To 1000) Dim monkeyg(0 To 1000, 0 To 1000) Dim monkeyb(0 To 1000, 0 To 1000) Dim JS1 As Integer JS1 = 0 Dim JS2 As Integer JS2 = 0 Dim JS3 As Integer JS3 = 0 Dim JS4 As Integer JS4 = 0 Dim J