※ 引述《tevil (dd)》之铭言： : 哈哈 小弟我又来了~.~ : 这次是如果一个FORM 里面有 IMAGE1 image2 还有一个BUTTON : image 1,2里面都有自己的图片 : 当我按下BUTTON的时候 希望能够指定 : 去分析其中一个IMAGE的图片 : 将里面凡是属於某一个颜色的地方 都改变成其他颜色 : 下面是我写的程式 : Private Sub Command1_Click() : o = Image2.Left : p = Image2.Top : q = Image2.Left + Image2.idth : r = Image2.Top + Image2.Height : While o < q : While p < r : If Point(o, p) = vbRed Then : PSet (o, p), vbGreen : End If : p = p + 50 : Wend : o = o + 50 : Wend 这边的回圈逻辑上有错误 我不知道怎麽说 while x < image.width while y < image.height // do something 你的回圈长这样 但是你第一次的外层回圈跑完之後, y没有reset 因此後来的回圈都不会执行到里面的程式码 因为这时候y已经大於image.height 所以你只有一条线会变色 : End If : End Sub : 可是这样好像是分析FORM里面的颜色 因为image2都没反应 : 我就把form的颜色全变 结果form有反应 可是还有一点很怪 = = : 我是希望分析一个区域 在这是分析image2的区域 : 可是他都只会有一条线变成绿色 我回圈哪里有问题ㄚ : 这次问题很多 在次拜托大家了 = = --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 211.73.191.98 ※ 编辑: neplayer 来自: 211.73.191.98 (05/25 00:37)