文件名称：VB 控件数组画图.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 03:24:27
VB源码-控件组件
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
【文件预览】：
srcfans.com
----控件数组画图()
--------E158.vbp(578B)
--------MSSCCPRJ.SCC(189B)
--------E158.vbw(50B)
--------Form1.frm(4KB)