VB画圆

renyucai1963

http://www.doc88.com/p-60284827978.html

renyucai1963

Option Explicit

Private Sub Command1_Click()
Const r = 4406.875
Line (100, 4800)-(10000, 4800)
Line (5000, 100)-(5000, 10000)

Circle (5000, 4800), r - 3000
Circle (5000, 4800), r - 2500
Circle (5000, 4800), r - 2000
Circle (5000, 4800), r - 1500
Circle (5000, 4800), r - 1000
Circle (5000, 4800), r - 500
Circle (5000, 4800), r
End Sub

Private Sub Form_Click()
Dim r As Long, L As Long
Const pi = 3.1415926
'L = 2 * pi * r
L = 1107568
r = L / (2 * pi)
Print r * 0.025
End Sub

Private Sub Form_Load()
Me.Caption = "2012-11-19 11:19 (1) 单位"
Me.Top = 100
Me.Width = 10000
Me.Height = 10000
End Sub

地瓜小雨

学习啦。。

JuncoJet

418892474

看了你那往页，，但我画了三个圆由于它们的Z相不是在同一线上，所以颜色没有集合，怎么办？？ 只显示在最上面的颜色。。。。。。

renyucai1963

VB等分圆

http://hi.baidu.com/mizuda/item/a396f7fc14b45ae91b111fe4

renyucai1963

Private Sub Command1_Click()
Const r = 4406.875

'坐标线
Line (100, 4800)-(10000, 4800)
Line (5000, 100)-(5000, 10000)

'控件的外观
Me.DrawMode = 1
Me.DrawStyle = 2
Me.DrawWidth = 3

'圆的位置及大小
'Circle (5000, 4800), r - 3000
'Circle (5000, 4800), r - 2500
'Circle (5000, 4800), r - 2000
'Circle (5000, 4800), r - 1500
'Circle (5000, 4800), r - 1000
'Circle (5000, 4800), r - 500
Circle (5000, 4800), r

'控件的外观
Me.DrawMode = 1
Me.DrawStyle = 2
Me.DrawWidth = 3

End Sub

Private Sub Form_Click()
Dim r As Long, L As Long
Const pi = 3.1415926

'圆的周长公式：L=2*pi*r
'L = 2 * pi * r

L = 1107568 'L为圆的周长
r = L / (2 * pi) 'r为圆的半径：4406.875;r=176275

'求半径=？
Print r
'Print r * 0.025
End Sub

Private Sub Form_Load()
'定制标题栏
Me.Caption = "2012-11-19 11:19 (1) 单位"
'定制窗体的大小、位置。
Me.Top = 100
Me.Width = 10000
Me.Height = 10000
End Sub

renyucai1963

'点的大小和位置
Me.DrawWidth = 100: Me.PSet (1000, 1000)