Public Sub Pencil(Optional ByVal Sensitivity As Long = 25) Dim I As Long Dim L As Long Dim M As Long Dim N As Long Dim Col As Long Dim ColNext As Long 'On Error GoTo ErrLine If Not CanPut Then Exit Sub Done = False TimeFilter = timeGetTime For I = 0 To OutPutWid - 1 M = I + 1 For L = 0 To OutPutHei - 1 N = L + 1 Col = ColOut(0, I, L) * 3 + ColOut(1, I, L) * 6 + ColOut(2, I, L) Col = Col \ 10 '当前点的灰度哦。 ColNext = ColOut(0, M, N) * 3 + ColOut(1, M, N) * 6 + ColOut(2, M, N) ColNext = -ColNext / 10 '下一点的灰度哦。 If Col + ColNext > Sensitivity Then '判断灰度变化是否超过设定的阀值 ColOut(0, I, L) = 0 'RGB(0,0,0)表示黑色 ColOut(1, I, L) = 0 ColOut(2, I, L) = 0 Else ColOut(0, I, L) = 255 'RGB(255,255,255)表示白色 ColOut(1, I, L) = 255 ColOut(2, I, L) = 255 End If Next Next Done = True TimeFilter = timeGetTime - TimeFilter Exit Sub ErrLine: MsgBox Err.Description End Sub 这里用到的所有全局变量都已经在前几章中用到，就不再重复说明了。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
