可以画直线、矩形、圆、椭圆、圆弧等几何图形，可以设置线条的颜色 ，线条粗细也有多种大小可选，整体来说，这款简易绘图工具写的还是挺不错的。以下是一些画图参数的定义： Private Structure pointapi 定义点的结构 Dim x As Int32 定义或设置点的x坐标 Dim y As Int32 定义或设置点的y坐标 End Structure Private Structure rect 定义矩形结构 Dim left As Int32
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 填充十字线形
