刚刚自学vb，一个问题求指导

如图
我需要让黑色的shape块，在点击按钮后自动逆时针围绕窗运动，现在已经可以向右向下向左运动了，就是不能向上运动，在逆时针到左边框时也不停下就一直飞出去了，不晓得怎么的。。。
哪位老师帮解惑一下，谢谢，感谢

timer1的r的值有3种情况。
另：更为清楚的写法：
声明sx, sy，转向时×(-1)

要使图形在窗体容器中边缘绕一周，可以使用二维平面坐标表示。用x和y分别表示图形中心点坐标，xs和ys分别表示图形运动的速度和方向。
假设图形宽高为2×w和2×h，窗体容器宽高为sw和sh，则(x, y)的位置可以为(w, h)-(sw-w, sh-h)

你的代码写的太多了，我来帮你写一下。

要判断是否运动到了四个角的位置,如果达到了就要转换另一种运动语句.

实际上timer1_timer过程的代码，还是有简化的余地的，只是这样写便于你阅读

Private Sub Form_Load()
Me.Shape1.Left = 0
Me.Shape1.Top = 0
End Sub
Private Sub Timer1_Timer()
With Me.Shape1
If .Left <= 0 And .Top + .Height < Me.ScaleHeight Then
.Left = 0
.Top = .Top + 60
ElseIf .Left + .Width <= Me.ScaleWidth And .Top + .Height >= Me.ScaleHeight Then
.Left = .Left + 60
.Top = Me.ScaleHeight - .Height
ElseIf .Left + .Width >= Me.ScaleWidth And .Top > 0 Then
.Left = Me.ScaleWidth - .Width
.Top = .Top - 60
ElseIf .Top <= 0 And .Left >= 0 Then
.Top = 0
.Left = .Left - 60
End If
' Debug.Print .Left & "," & .Top
End With
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

12回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六