实时异常13 类型不匹配

2012-01-14

实时错误13 类型不匹配a1 CInt(&H & Mid(Hex(hdc2), 5, 2))这句老是是提示实时错误 13 类型不匹配hdc

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

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

[解决办法]

探讨
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"

热点排行