回复:(freeforever)Option ExplicitPrivate Declar...
下面的与运算有什么功能?为什么要这样写?
iR1 = lColor1 And &HFF
iG1 = (lColor1 \ &H100) And &HFF
iB1 = (lColor1 \ &H10000) And &HFF
这个公式怎么理解?
iR3 = (iR1 * (255 - k) + iR2 * k) / 255
iG3 = (iG1 * (255 - k) + iG2 * k) / 255
iB3 = (iB1 * (255 - k) + iB2 * k) / 255
可以保存为其他格式吗?(不仅是扩展名改变)
SavePicture pic3.Image, App.Path & "\pic\" & Trim(Str(k)) & ".bmp"