注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

泽漆

未出头时先有节,到凌云处仍虚心

 
 
 

日志

 
 
关于我

像猫一样慵懒,像猪一样肚大能容,像人一样喜欢阅读, 性格分裂, 稍微偏激化,矛盾化, 情绪化 ,从不奉承别人 ,有点悲观,我认为想成功最快的方法,是做你喜欢做的事,然后全力以赴,初接触计算机,并且喜欢上了计算机,学习中……

网易考拉推荐

vb画扇形  

2013-02-05 16:15:39|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Const PI = 3.1415926
Private Sub Command1_Click()
Picture1.Cls
Picture1.FillColor = QBColor(3)
Picture1.FillStyle = Int(Rnd * 8)
Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleHeight / 2 - 100, QBColor(3)
End Sub
Private Sub Command2_Click()
Picture1.Cls
Picture1.FillColor = QBColor(9)
Picture1.FillStyle = Int(Rnd * 8)
Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleHeight / 2 - 100, QBColor(8), , , 0.5
End Sub
Private Sub Command3_Click()
Picture1.Cls
Picture1.FillColor = QBColor(13)
Picture1.FillStyle = Int(Rnd * 8)
Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleHeight / 2 - 100, QBColor(13), -PI / 2, -2 * PI
End Sub
 
'Circle (x, y), r, [color], [start], [end] ,纵横比
'若start与end的值为正值时,画出图形为弧线为负值时画出图形为扇形
'start为负值则从起始处有半径实线,end为负值时则从结束处有半径实线
  评论这张
 
阅读(415)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017