6,7,8怎么改
vb吧
全部回复
仅看楼主
level 7
6,7,8怎么改
2020年10月18日 03点10分 1
level 7
2020年10月18日 03点10分 2
level 7
2020年10月18日 03点10分 3
level 15
8在哪里呢?
(6)题目图片看不清,不知道该显示什么
(7)如果碰到左边或右边,则改变X方向,碰到左边就是Shape1.Left<=0,另外这一空还需要写个Or,即填Shape1.Left<=0 Or
2020年10月18日 03点10分 4
level 7
2020年10月18日 04点10分 5
level 15
(6)填 X & "," & Y
(7)改为 If Shape1.Left <= 0 Or Shape1.Left >= Picture1.ScaleWidth - Shape1.Width Then
(8)改为 If Shape1.Top <= 0 Or Shape1.Top >= Picture1.ScaleHeight - Shape1.Height Then
2020年10月18日 04点10分 6
1