Erosion (侵蚀) (VB 6.0)
Erosion ( 侵蚀 ) (VB 6.0) 介绍 八邻居侵蚀的计算方式如下: 四邻居侵蚀的计算方式如下: 用法 ‘ 设定所有变量必须宣告才能使用 Option Explicit ‘ 窗体起始加载事件 Private Sub Form_Load() ‘picture1 加载影像 Picture1.Picture = LoadPicture(App.Path & "\Lai, Tai-Yu.bmp") ‘ 宣告巡览 X 轴变量 Dim lngX As Long ‘ 宣告巡览 Y 轴变量 Dim lngY As Long ‘ 宣告结果像素变量 Dim intS ‘ 宣告矩阵第一列变量 Dim intA, intB, intC ‘ 宣告矩阵第二列变量 Dim intD, intE, intF ‘ 宣告矩阵第三列变量 Dim intG, intH, intI ‘ 设定 picture1 控件采用像素为单位 Picture1.ScaleMode = 3 ‘ 使 picture1 控件的自动重绘有效 Picture1.AutoRedraw = True ‘ 设定 picture2 控件采用像素为单位 Picture2.ScaleMode = 3 ...




































