2个回答
展开全部
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 Sub
Private Sub Command2_Click() '***结束按钮
Unload Form1 '退出Form1
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture,否则画的图扒慧可能消失
End Sub
代码春则答end=============
代码start===========
'控件:
'名称:Command1,属性Caption:开始
'名称:Command2,属性Caption:结束
Private Sub Command1_Click() '****开始按钮
Circle (1500, 1000), 700, vbBlack '此为画圆函数:【Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】
End Sub
Private Sub Command2_Click() '***结束按钮
Unload Form1 '退出Form1
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture,否则画的图扒慧可能消失
End Sub
代码春则答end=============
百事牛
2024-10-22 广告
2024-10-22 广告
百事牛是共享提供商,我们提供可靠有效的服务,适当合理的授权费有利于的继续更新优化。同样的事情,同样的方法,百事牛团队十年磨一剑,始终至聚焦在密码恢复领域,深耕于此,我们已研制出有别于其他公司的算法和运算模式, 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询