急，VB编程:在图片框中画一个以两点为对角的矩形
答案:3 悬赏:10
解决时间 2021-04-28 01:56
- 提问者网友：爱你等于作孽
- 2021-04-27 16:01
编程:在图片框中画一个以两点为对角的矩形(图片框中以像素为刻度单位,两点坐标用Inputbox函数输入） 需要代码 ，越简单越好 .0
最佳答案
- 二级知识专家网友：滚刀废物浮浪人
- 2021-04-27 16:13
x1 = InputBox("X1", , 100)
y1 = InputBox("Y1", , 100)
X2 = InputBox("X2", , 500)
Y2 = InputBox("Y2", , 500)
Picture1.Line (x1, y1)-(X2, y1)
Picture1.Line (x1, y1)-(x1, Y2)
Picture1.Line (X2, Y2)-(X2, y1)
Picture1.Line (X2, Y2)-(x1, Y2)
y1 = InputBox("Y1", , 100)
X2 = InputBox("X2", , 500)
Y2 = InputBox("Y2", , 500)
Picture1.Line (x1, y1)-(X2, y1)
Picture1.Line (x1, y1)-(x1, Y2)
Picture1.Line (X2, Y2)-(X2, y1)
Picture1.Line (X2, Y2)-(x1, Y2)
全部回答
- 1楼网友：一个很哇塞的汉子
- 2021-04-27 18:27
- 2楼网友：桃花别处起长歌
- 2021-04-27 17:01
兄弟请查看下面代码是否OK。
简洁.
Private Sub picture1_Click() a = InputBox("输入起点", "输入", 100) B = InputBox("输入终点", "输入", 800) Picture1.Line (a, a)-(B, B), vbRed, B End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息