Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 11 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最新日志
一个显示格式化时间的列子 删除带子文件夹和文件的文件夹
晴天 使用PSET画一个圆   [ 日期:2006-10-20 ]
使用PSET画一个圆


'一个窗体,一个PictureBox 

Private Const Pi As Single = 3.14 / 180 'VB是弧度制 

Private Sub Form_Load() 
Picture1.DrawWidth = 2 
Picture1.AutoRedraw = True 
For i = 0 To 360 Step 10 '去掉Setp 10就是实线了。 
 X1 = Cos((i - 90) * Pi) * 710 + 900 
 Y1 = Sin((i - 90) * Pi) * 710 + 900 
 Picture1.PSet (X1, Y1), vbBlue 
Next i 
Picture1.Refresh 

End Sub 


-----------------
感谢:双色心情





[阅读字体大小: ]
[本日志由 admin 于 2013-11-01 10:44 PM 编辑]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=15
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=15&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情