实时异常13 类型不匹配
实时错误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))
------解决方案--------------------