当前位置: 开源爱好者 » VB源码 » 图形编程 » 详情页

VB使用Circle方法画弧和扇形

  • 时间:2018-02-11
  • 测试环境:VB6.0
  • 源码概述:画图形

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 '画六分之五大扇形

VB使用Circle方法画弧和扇形测试效果图
源码包大小:1.92K
该源码已累计下载了:
相关VB源码:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图