VB工程--百例47--球体.

前端之家收集整理的这篇文章主要介绍了VB工程--百例47--球体.前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

Option Explicit

Private Sub Form_Activate()
pic1.Circle (pic1.ScaleWidth / 2,pic1.ScaleHeight / 2),_
pic1.ScaleHeight / 2
pic1.Circle (pic1.ScaleWidth / 2,_
pic1.ScaleHeight / 2, 0.5水平椭圆
pic1.Circle (pic1.ScaleWidth / 2,1.5垂直椭圆

End Sub

成品图

猜你在找的VB相关文章