用VB画矩形，在矩形的中间画条线将矩形为上下两部分，但程序运行后为什么会是这样？
PrivateSubCommand1_Click()Scale(-30,30)-(30,-30)Picture1.ClsPicture1.Line(10,10)-Step...
Private Sub Command1_Click()Scale (-30, 30)-(30, -30)Picture1.ClsPicture1.Line (10, 10)-Step(20, 20), , BPicture1.Line (10, 15)-(20, 15)End Sub
展开
1个回答
展开全部
Picture1.Line (10, 10)-Step(20, 20), , B 相当于
Picture1.Line (10, 10)-(30, 30), , B
所以要在矩形中间画一条横线，必须
Picture1.Line (10, 20)-(30, 20)
或者
Picture1.Line (10, 20)-Step(20, 0)
Picture1.Line (10, 10)-(30, 30), , B
所以要在矩形中间画一条横线，必须
Picture1.Line (10, 20)-(30, 20)
或者
Picture1.Line (10, 20)-Step(20, 0)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
