文件名称:VB使用Circle方法画弧和扇形.rar
文件大小:2KB
文件格式:RAR
更新时间:2022-07-30 13:06:54
VB源码-图形处理
VB使用Circle方法画弧和扇形,VB6.0画图形,几何图形。 Const pi = 3.14159 '常量声明 Private Sub Form_Click() ForeColor = vbRed '设置窗体前景色 DrawWidth = 1 '设置线宽 FillStyle = 0 '设置填充样式 FillColor = vbCyan '填充颜色 Circle (1500, 1500), 1000, , -1 / 4 * pi, -pi '画扇形 Circle (2000, 500), 1000, , 3 / 2 * pi, 2 * pi '画弧 fillsyle = 1 Circle (4000, 1000), 500, , -pi / 6, -pi / 3 '画六分之一小扇形 Circle (3850, 1150), 500, , -pi / 3, -pi / 6 '画六分之五大扇形
【文件预览】:
srcfans.com
----Circle方法画弧和扇形()
--------E321.vbp(684B)
--------E321.vbw(50B)
--------MSSCCPRJ.SCC(332B)
--------Form1.frm(993B)