我欲写一个俄罗斯方块，寻求帮助！！

Question

方块需要自己画，用控件效率极差对于排满一行我觉得没有必要使用2维数组，1维就可以了
private const TotalCols=10 '共10列
dim aryLines(0 to 19) as long '20行
只要每次下落的时候把对应的行+1[aryLines(DownLines)++]
最后判断aryLines(i)=TotalCols即可
    

Answer 1

用控件话！要么一次性放上几百个控件，要么还得在运行时Load控件，都太麻烦了，还不如自己画。你画的时候，设置DrawMode为 7 - XOR Pen，这样你消去方块的时候只要在原图上按原来的方法再画一次就可以了。
用二维数组来判断方块是否排满一行。数组的每个元素与没个方格空间相对应，用0表示空间没有方块，1表示已有方块。

Answer 2

请有源码？拜托给我一份，先谢了！
[email protected]