太懒了不好,这里放上我验证概念时写的低效率的程序,仅仅是看算法结构,这里用的是3x3的结构元素。运行效果:简单的滤波还是很不错的。 Public Sub ClearNoise(ByVal dgGrayValue As Integer) Dim p As Byte() = New Byte(9 - 1) {} Dim y As Integer For y = 1 To (Me...
这个是给某人做项目的时候写的。原本是C#的,我改写成XXXXXT了,并且编译了一个dll。 --->>>>>>>><<<<<<<<---测试通过,很好用原文地址XXXXXXXXXXXXXXXXXXXt/jinjazz/archive/2008/08/01/XXXXXXXXXXpx调用方法:Private Sub button1_Click_1(ByVal sender As Object, ByV...