实时错误13 类型不匹配
a1 = CInt("&H" & Mid(Hex(hdc2), 5, 2)) '这句老是是提示 实时错误 13 类型不匹配
hdc2 是用for to 循环找到的图片框1某点的颜色值（用的getpixel）

如果换成 a1 = CInt("&H" & Mid(Hex(hdc2), 3, 2)) 就没错。。。。。。。


[解决办法]

VB code

a1 = CInt("&H" & Mid((Right("000000" & Hex(hdc2), 6)), 5, 2))
[解决办法]
探讨


7楼能解释下代码吗 我有点看不懂 为什么+"000000"