用VB怎么样实现画一个圆和一条直线,一个矩形?
展开全部
这个简单.
加入一个图片框:picture1.
一个命今按钮:command1.
按钮的单击事件在图片框里画图:
Private Sub Command1_Click()
Picture1.Circle (600, 800), 500, vbRed '画圆
Picture1.Line (300, 400)-(1700, 1800), vbBlue '画线
Picture1.Line (600, 500)-(600, 1500), vbGreen '下面四项都是画矩形的
Picture1.Line (600, 1500)-(2500, 1500), vbGreen
Picture1.Line (2500, 1500)-(2500, 500), vbGreen
Picture1.Line (2500, 500)-(600, 500), vbGreen
End Sub
加入一个图片框:picture1.
一个命今按钮:command1.
按钮的单击事件在图片框里画图:
Private Sub Command1_Click()
Picture1.Circle (600, 800), 500, vbRed '画圆
Picture1.Line (300, 400)-(1700, 1800), vbBlue '画线
Picture1.Line (600, 500)-(600, 1500), vbGreen '下面四项都是画矩形的
Picture1.Line (600, 1500)-(2500, 1500), vbGreen
Picture1.Line (2500, 1500)-(2500, 500), vbGreen
Picture1.Line (2500, 500)-(600, 500), vbGreen
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询