ＶＢ Picture画圆 如何在圆内以度画点 例如在圆内30°画一个点 用以圆中心画线连上

Question

ＶＢ　Picture画圆　如何在圆内以度画点　例如在圆内30°画一个点　用以圆中心画线连上
Picture１.Cls
Picture１.DrawStyle = 0
Picture１.DrawWidth = 1
Picture１.Circle (1800, 1300), 1000
现在是画一个圆　请指教．．

Answer 1

Const PI = 3.14159265358979
Picture1.AutoRedraw = True
Picture1.DrawStyle = vbSolid
Picture1.DrawWidth = 1
Picture1.Circle (1800, 1300), 1000
Picture1.Circle (1800, 1300), 1000, , , -PI / 6

Answer 2

Private sub Command1_Click()
    dim x,y,r
    x="坐标X"
    Y="坐标Y"
    R="半径"
    picture1.ScaleMode=3
    Picture1.Circle (X,Y),R,,0,0
end sub

Answer 3

Private sub Command1_Click()
    dim x,y,r
    x="坐标X"
    Y="坐标Y"
    R="半径"
    picture1.ScaleMode=3
    Picture1.Circle (X,Y),R,,0,0
end sub

Answer 4

Const PI = 3.14159265358979
Picture1.AutoRedraw = True
Picture1.DrawStyle = vbSolid
Picture1.DrawWidth = 1
Picture1.Circle (1800, 1300), 1000, , -PI / 6, PI / 6 + 0.0001
其实用 cos()、sin() 求出圆周上点的坐标，直接用 Line 画线更直接。