Question

vb 自定义了一个picturebox控件 使用时picture属性总是提示有错

因为vba里面没有picturebox控件，所以准备自己封装一个ocx，picture属性指定的是picturebox的picture属性。

在使用时，直接选择图片时可以正常显示图片。
但是使用 XXXX（自定义控件）.picture = loadpicture("d:\test.jpg" 时 ，总是提示”属性的无效使用“

怎么回事啊？求达人帮帮忙！

或者有达人知道怎么在vba中先灰度图片，然后再二值化的方法，请告知，非常非常感谢！

Answer 1

自定控件估计要加 set 的，即 set XXXX.picture = loadpicture("d:\test.jpg")
灰度问题，如果对每个像素处理，图标还可以，图片的话就慢的没实际意义了，
For x = 0 To Picture1.Width
For y = 0 To Picture1.Height
c = Picture1.Point(x, y)
red = (c And &HFF)
green = (c And 62580) / 256
blue = (c And &HFF00) / 65536
graycolor = (red + green + blue) / 3
Picture1.PSet (x, y), RGB(graycolor, graycolor, graycolor)
DoEvents
Next
Next
这是对每个像素三原色分离出来平均一下。
我就知道这些了，windows绝对提供了处理灰度图像的API 方法，一时也想不起来。

二值化更不懂了，