作者Peruheru (还在想)
看板Visual_Basic
标题Re: [VB2008]图片沿着表单四边前进问题
时间Fri May 22 01:11:01 2009
※ 引述《Rusifarzero (【呆】)》之铭言：
: 使用TIMERTICK做 让图片绕圈的动作
: 但是他只转了一圈 到了下一圈的时候
: 却只到表单最右侧就停住不动了
: 不知道是哪里出了问题
: Public Class Form1
: Dim x As Integer = 1
: Dim y As Integer = 1
: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles Timer1.Tick
: man.Left = man.Left + x
: If man.Left >= Me.ClientSize.Width - man.Size.Width - 10 Then
: x = 0
: man.Top = man.Top + y
: If man.Top >= Me.ClientSize.Height - man.Size.Height - 10 Then
: x = -1
: y = 0
: End If
: End If
: If man.Left <= 10 Then
: x = 0
: y = 1
: man.Top = man.Top - y
: If man.Top <= 10 Then
: x = 1
: y = 0
: End If
: End If
: End Sub
: End Class
: 麻烦高手替我检视一下是否有哪里出了逻辑错误还是...
: 感激不尽
man.Left = man.Left + x
man.Top = man.Top + y
If man.Left >= Me.ClientSize.Width - man.Size.Width - 10 Then
x = 0
y = 1
If man.Top >= Me.ClientSize.Height - man.Size.Height - 10 Then
x = -1
y = 0
End If
End If
If man.Left <= 10 Then
x = 0
y = -1
If man.Top <= 10 Then
x = 1
y = 0
End If
End If
可能只是撰写习惯的问题
我是觉得写成这样会比较容易判断
因为你X的变化跟Y的变化都是成对出现的
写成这样的话，判断式里面只剩下X跟Y得赋值问题
图片实际变化都是在最外层做
也很容易就看得出来哪边漏写了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.160.163.42
1F：→ Peruheru:VB着色不像C#，会变得乱七八糟，就不着色了.... 05/22 01:11
2F：→ Peruheru:主要就是你X有用正负号来做，Y却没有，蛮怪的XD 05/22 01:12