画图工具选择.docxVIP

Integer, Shift As Integer, X As Single, Y As复杂的画圆工具，ABS(r屉指把 Integer, Shift As Integer, X As Single, Y As 复杂的画圆工具，ABS(r屉指把r转化为 正数。如果高宽比值小于1,那么半径取一半 宽。如果高宽比值大于 1,那么半径取一半高。 bl = (Y - n) / (X - m) bl = Abs(bl) If bl = 1 Then r = (X - m) / 2 Else r = (Y - n) / 2 End If r = Abs(r) huabu.Circle ((X + m) / 2, (Y + n) / 2), r, , , , bl ? ForeColor = RGB(a,b,c) ? Fillstyle——设定填充模式， ? FillColor——设定填充颜色 ? Pset(x,y) ? Line (x1,y1)-(x2,y2) Line (x1,y1)-(x2,y2), , B Line (x1,y1)-(x2,y2), , BF ------设定前景色(画笔颜色) 。为填充，1为透明，2 — 7为各种图案 ? Line (x1,y1)-(x2,y2),rgb(255,0,0), BF ? Circle (x,y),半径 一在(x,y)处画点 ----画线