用VB編程畫圓

添加以個TEXT2,壹個按鈕，復制壹下代碼即可Private Sub Command2_Click()

Dim i As Integer

'i = Val(Text2.Text)

For i = 1 To Val(Text2.Text)

Form3.Picture1.Circle (120, 260), i * 10, vbRed

Next

'Form3.Picture1.Circle (60, 60), 40, vbRed '畫壹個圓心(60,60)半徑40的紅色的圓（默認空心）

'

'

'Form3.Picture1.FillStyle = 0 '設定填充模式為實心

'Form3.Picture1.FillColor = vbBlue '設定填充色藍色

'Form3.Picture1.Circle (190, 60), 40, vbRed '下來畫出來的就是填充了實心藍色的圓了

'

'

'Form3.Picture1.DrawWidth = 3 '設定邊框寬度為3

'Form3.Picture1.Circle (60, 190), 40, vbRed '這次繪制出來的圓邊框粗細為3

'

'Form3.Picture1.DrawStyle = 5 '設定邊框不可見

'Form3.Picture1.FillColor = vbRed '設定填充色紅色

'Form3.Picture1.Circle (190, 190), 40 '這次繪制出來壹個無邊框、填充顏色是紅色的圓

Form3.Picture1.Refresh

End Sub

上一篇:公路工程進度計劃編制的步驟及內容是什麽？

下一篇:什麽是機器人的常見用途？