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), _
pic1.ScaleHeight / 2, , , , 0.5水平椭圆
pic1.Circle (pic1.ScaleWidth / 2, pic1.ScaleHeight / 2), _
pic1.ScaleHeight / 2, , , , 1.5垂直椭圆
End Sub
成品图
本文展示了如何使用OptionExplicit在Visual Basic中创建圆形、椭圆及水平椭圆的方法,并通过示例代码进行说明。
7294

被折叠的 条评论
为什么被折叠?



