[VB6 ] 請問關於扇型
請問各位大大 關於畫扇型 除了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
推
220.135.50.80 06/17, , 1F
220.135.50.80 06/17, 1F
→
140.127.116.200 06/20, , 2F
140.127.116.200 06/20, 2F
推
220.132.148.111 06/24, , 3F
220.132.148.111 06/24, 3F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章