作者hitw ((￣ε(#￣) #○=(一-一o))
看板Visual_Basic
标题[VB6 ] 请问关於扇型
时间Thu Jun 16 22:17:59 2005
请问各位大大 关於画扇型 除了Circle有其它function吗?
circle好像只能画弧度
我画出弧度之後 要怎麽line到弧的二端 变成完整的扇型呢??
以下为目前的程式码 .........m(_ _)m
Dim X As Double
Dim y As Double
Dim z As Double
Dim i As Double
Private Sub Command1_Click()
X = Text1.Text / 57 << 径换算成start的角度
y = Text2.Text / 57 << 夹角的角度
z = Text3.Text << 输入半径
i = X + y << end的角度
Form2.Circle (2500, 2500), z, vbBlue, X, i
End Sub
Private Sub Command2_Click() <<用来清除form2
Form2.Cls
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.148.99
1F：推 Caro1:我记得度数变号之後就有连到圆心的线出来了～～ 220.135.50.80 06/17
2F：→ jackdawliu:略略略 z, vbBlue, -X, -i (这里加负号)140.127.116.200 06/20
3F：推 hitw:感激不尽 搞定了220.132.148.111 06/24