我用了两个嵌套结果说:“编译错误 For Control 控件变量已在使用”?! 那一位高手能帮忙解答一下?如何办。 先谢谢了!
For Inu_pic_dbl(0) = 0 To Inu_Pic(Inu_Index_byt).ScaleWidth Inu_pic_dbl(1) = Inu_pic_dbl(0) - Inu_Pic(Inu_Index_byt).ScaleWidth \ 2 For Inu_pic_dbl(2) = 0 To Inu_Pic(Inu_Index_byt).ScaleHeight
If Inu_Pic(Inu_Index_byt).Point(Inu_pic_dbl(1), Inu_pic_dbl(2)) <> bgcol Then If Inu_pic_dbl(1) > 0 And Inu_pic_dbl(1) < Inu_Pic(Inu_Index_byt).ScaleWidth - 1 And Inu_pic_dbl(2) > 0 And Inu_pic_dbl(2) < Inu_Pic(Inu_Index_byt).ScaleHeight - 1 Then 'PicTarget.PSet (Inu_pic_dbl(0), Inu_pic_dbl(2)), PicSource.Point(Inu_pic_dbl(1), Inu_pic_dbl(2)) frmMain.PSet (Inu_pic_dbl(0) * 15 + Inu_x, Inu_pic_dbl(2) * 15 + Inu_y), Inu_Pic(Inu_Index_byt).Point(Inu_pic_dbl(1), Inu_pic_dbl(2)) End If End If Next Inu_pic_dbl(2) Next Inu_pic_dbl(0)