Private Sub Command1_Click()
Form1.Circle (1200,1500),800,vbBlue
Text1.Text=”画一个实心圆”
End Sub
Private Sub Command2_Click()
Form1.Cls
Text1.Text=”清除实心圆”
End Sub
Private Sub Command3_Click()
End
End Sub
Form1.Circle (1200,1500),800,vbBlue
Text1.Text=”画一个实心圆”
End Sub
Private Sub Command2_Click()
Form1.Cls
Text1.Text=”清除实心圆”
End Sub
Private Sub Command3_Click()
End
End Sub
VB编程绘制图形
811

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



