vb怎么用*输出圆形
vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形...
vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形vb怎么用*输出圆形
展开
- 你的回答被采纳后将获得:
- 系统奖励15(财富值+成长值)+难题奖励30(财富值+成长值)
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
VB图形那章就有画圆的函数circle()
VB画圆代码:主要使用函数【Circle (x, y), 半径, 颜色 】 :Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色
代码start==========='控件:'名称:Command1,属性Caption:开始'名称:Command2,属性Caption:结束
Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数:【Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End SubPrivate Sub Command2_Click() '***结束按钮Unload Form1 '退出Form1End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture,否则画的图可能消失End Sub
代码end=============
VB画圆代码:主要使用函数【Circle (x, y), 半径, 颜色 】 :Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色
代码start==========='控件:'名称:Command1,属性Caption:开始'名称:Command2,属性Caption:结束
Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数:【Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End SubPrivate Sub Command2_Click() '***结束按钮Unload Form1 '退出Form1End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture,否则画的图可能消失End Sub
代码end=============
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询