VB 控件数组画图.rar

VB 控件数组画图，每次输出新图形，前面的清除，可以画直线、矩形、圆。具体的代码操作，请看如下： 　　Private Sub Form_Load() 　　 Picture1.Scale (0, 0)-(10, 10) '设置坐标系 　　End Sub 　　Private Sub Command1_Click(Index As Integer) '控件数组的单击事件 　　Picture1.Cls '每次输出新图形，前面的清除 　　Picture1.FillStyle = 6 '填充十字线形 　　Select Case Index 'index代表控件数组的索引号，用此分支结构判断用户单击了哪个按钮 　　 Case 0 '用户单击控件数组里第一个命令按钮 　　 Picture1.Print "画直线" 　　 Picture1.Line (2, 2)-(7, 7) '在图片框上画直线 　　 Case 1 '用户单击控件数组里第二个命令按钮 　　 Picture1.Print "画矩形" 　　 Picture1.Line (2, 2)-(7, 7), , BF '在图片框上画矩形 　　 Case 2 '用户单击控件数组里第三个命令按钮 　　 Picture1.Print "画圆" '在图片框上画圆 　　 Picture1.Circle (4.5, 4.5), 3.5, , , , 1 　　 Case Else '用户单击控件数组里第一个命令按钮 　　 End 　　 End Select 　　End Sub