求图像马赛克显示的算法

[迷图小羔羊]

例如例如图片大小为1024x1280马赛克的大小为12x12，取相邻点像素rgb的平均值

[laviewpbt]

http://files.cnblogs.com/Imageshop/VB%E5%9B%BE%E5%83%8F%E5%A4%84%E7%90%86%E6%A8%A1%E6%9D%BF.rar

我以前共享的，不过上面这个链接不是我的。

[迷图小羔羊]

看了很就很久都看不懂，不知道那一部分才是

[赵4老师]

655356 ？！

[Trent1985]

http://dongtingyueh.blog.163.com/blog/static/461945320127217563098/

[迷图小羔羊]

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Dim mark As Boolean Dim color As Long Dim r As Integer Dim g As Integer Dim b As Integer Dim starttime As Data Dim endtime As Data Dim spendtime As Data Public Function mosaic(Picture1 As PictureBox) Dim row As Integer Dim lin As Integer Dim rl As Integer Dim ll As Integer Dim xl As Integer Dim yl As Integer Dim k As Integer Dim j As Integer Dim X As Integer Dim Y As Integer Dim color As Long Dim r As Integer Dim b As Integer row = Int(Picture1.ScaleWidth / 10) lin = Int(Picture1.ScaleHeight / 10) rl = Picture1.ScaleWidth Mod 10 ll = Picture1.ScaleHeight Mod 10 For Y = 0 To (lin - 1) * 10 Step 10 For X = 0 To (row - 1) * 10 Step 10 color = GetPixel(Picture1.hdc, X + 5, Y + 5) r = color Mod 256 b = (Int(color / 65536)) g = Int((color - (b * 65536) - r) / 256) For k = 0 To 9 For j = 0 To 9 SetPixel Picture1.hdc, X + k, Y + j, RGB(r, g, b) Next j Next k Picture1.Refresh Next X If rl <> 0 Then xl = Picture1.ScaleWidth - rl color = GetPixel(Picture1.hdc, xl + rl / 2, Y + 5) r = color Mod 256 b = (Int(color / 65536)) g = Int((color - (b * 655356) - r) / 256) For k = 0 To rl - 1 For j = 0 To 9 SetPixel Picture1.hdc, xl + k, Y + j, RGB(r, g, b) Next j Next k Picture1.Refresh End If Next Y If ll <> 0 Then yl = Picture1.ScaleHeight - ll For X = 0 To (row - 1) * 10 Step 10 color = GetPixel(Picture1.hdc, X + 5, yl + ll / 2) r = color Mod 256 b = (Int(color / 65536)) g = Int((color - (b * 65536) - r) / 256) For k = 0 To 9 For j = 0 To ll - 1 SetPixel Picture1.hdc, X + k, Y + j, RGB(r, g, b) Next j Next k Picture1.Refresh Next X If rl <> 0 Then color = GetPixel(Picture1.hdc, xl + rl / 2, yl + ll / 2) r = color Mod 256 b = (Int(color / 65536)) g = Int((color - (b * 65536) - r) / 256) For k = 0 To rl - 1 For j = 0 To ll - 1 SetPixel Picture1.hdc, X + k, Y + j, RGB(r, g, b) Next j Next k Picture1.Refresh End If End If endtime = Time spendtime = endtime - starttime End Function Private Sub Command3_Click() Picture1.AutoRedraw = True mosaic Picture1 Picture1.AutoRedraw = False End Sub 这段程序哪里出错了？