VB如何用線或是點畫圓??

Question

VB如何用線或是點畫圓??而不是用CircleVB如何用線或是點畫圓??而不是用Circle如題!!謝謝!!

兩個人都說的不錯,真不知道要如何決定,只好交付投票了!!

Answer 1

用三角函數算出下一個點位，在你畫螺旋線那題就是使用Line畫的，你可以參考看看

提供一個畫多邊型的SUB
Private Sub polygon(x, y, w, h, n)
f = 2 * pi
For i = 0 To f / n * (n + 1) Step f / n

Me.Line (x, y)-(x + Sin(i) * w, y + Cos(i) * h)
x = x + Math.Sin(i) * w
y = y + Math.Cos(i) * h
Next
End Sub


橢圓形
Call polygon(1000, 1000, 500, 100, 50)
正方型
Call polygon(1000, 1000, 100, 100, 4)
長方型
Call polygon(1000, 1000, 200, 100, 4)
三角型
Call polygon(1000, 1000, 100, 100, 3)
圓型
Call polygon(1000, 1000, 100, 100, 50)

2006-03-24 16:13:36 補充：
啊....W.J.S.大大回答了，只怪我打字太慢~~~

Answer 2

Private Sub Command1_Click()Dim r%, X&, Y&, X1&, Y1&Const Pi = 3.14159265358979 '圓周率r = 1000 '半徑X = 1500: Y = 1500 '中心點座標For I = 0 To 360    X1 = X - Sin(I / 180 * Pi) * r    Y1 = Y + Cos(I / 180 * Pi) * r    'Me.Line (X, Y)-(X1, Y1), vbRed    Me.PSet (X1, Y1), vbRedNextEnd Sub

2006-03-24 16:24:30 補充：
^^ 啞唬大你是用NET我的是VB6沒關係滴