Re: [VB2008]圖片沿著表單四邊前進問題

看板Visual_Basic作者Peruheru (還在想)時間15年前 (2009/05/22 01:11)推噓0(0推 0噓 2→)

留言2則, 1人參與討論串2/2 (看更多)

※ 引述《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

→

Peruheru

05/22 01:11, , 1^F

05/22 01:11, 1^F

→

Peruheru

05/22 01:12, , 2^F

05/22 01:12, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 Peruheru 的文章

文章代碼(AID): #1A5Oicr0 (Visual_Basic)