VB工程---百例46-----园、椭圆、饼形2

Option Explicit

Private Sub Command1_Click()
Pic1.Cls
Pic1.FillColor = vbBlue
Pic1.FillStyle = 0
Pic1.Circle (Pic1.ScaleWidth / 2,Pic1.ScaleHeight / 2),Pic1.ScaleHeight / 2,vbBlue


End Sub

Private Sub Command2_Click()
Pic2.Cls
Pic2.FillColor = vbRed
Pic2.FillStyle = 2
Pic2.Circle (Pic2.ScaleWidth / 2,Pic2.ScaleHeight / 2),Pic2.ScaleWidth / 2,_
vbRed,0.5

End Sub

Private Sub Command3_Click()
Const pi = 3.1415926
Pic3.Cls
Pic3.FillColor = vbGreen
Pic3.FillStyle = 3
Pic3.Circle (Pic3.ScaleWidth / 2,Pic3.ScaleHeight / 2),_
Pic3.ScaleHeight / 2,vbRed,-pi / 2,-2 * pi

End Sub

成品图

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...