VB 控件数组画图.rar

VB控件数组画图，每次输出新图形，前面的清除，可以画直线、矩形、圆。具体的代码操作，请看如下： 　　PrivateSubForm_Load() 　　Picture1.Scale(0,0)-(10,10)'设置坐标系 　　EndSub 　　PrivateSubCommand1_Click(IndexAsInteger)'控件数组的单击事件 　　Picture1.Cls'每次输出新图形，前面的清除 　　Picture1.FillStyle=6'填充十字线形 　　SelectCaseIndex'index代表控件数组