作者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