用户登陆
站点统计
最新评论
日志搜索
其他信息
使用PSET画一个圆 [ 日期：2006-10-20 ] [ 来自：'一个窗体，一个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
-----------------
感谢：双色心情
引用通告地址 (0)：
http://baidu.bzzo.net/so/meblog/trackback.asp?tbID=15
http://baidu.bzzo.net/so/meblog/trackback.asp?tbID=15&CP=GBK