Re: [問題] 請問有關picture移動的問題

[josephkao (來去隨心)]

Private Sub Command1_Click(Index As Integer)
P_Flag = Index
'789   Command1
'456   Command1
'123   Command1
If Index = 5 Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
Select Case P_Flag
Case 1
Picture1.Top = Picture1.Top + 100
Picture1.Left = Picture1.Left - 100
If Picture1.Top + Picture1.Height > Form1.ScaleHeight Then P_Flag = 7
If Picture1.Left < 0 Then P_Flag = 3
Case 2
Picture1.Top = Picture1.Top + 100
If Picture1.Top + Picture1.Height > Form1.ScaleHeight Then P_Flag = 8
Case 3
Picture1.Top = Picture1.Top + 100
Picture1.Left = Picture1.Left + 100
If Picture1.Top + Picture1.Height > Form1.ScaleHeight Then P_Flag = 9
If Picture1.Left + Picture1.Width > Form1.ScaleWidth Then P_Flag = 1
Case 4
Picture1.Left = Picture1.Left - 100
If Picture1.Left < 0 Then P_Flag = 6
Case 6
Picture1.Left = Picture1.Left + 100
If Picture1.Left + Picture1.Width > Form1.ScaleWidth Then P_Flag = 4
Case 7
Picture1.Top = Picture1.Top - 100
Picture1.Left = Picture1.Left - 100
If Picture1.Top < 0 Then P_Flag = 1
If Picture1.Left < 0 Then P_Flag = 9
Case 8
Picture1.Top = Picture1.Top - 100
If Picture1.Top < 0 Then P_Flag = 2
Case 9
Picture1.Top = Picture1.Top - 100
Picture1.Left = Picture1.Left + 100
If Picture1.Top < 0 Then P_Flag = 3
If Picture1.Left + Picture1.Width > Form1.ScaleWidth Then P_Flag = 7
End Select
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 203.75.203.158
→ amortization:非常感謝喔^^
→ josephkao:花一個小時寫這個程式結果P幣二元唉
→ josephkao:P_Flag 先宣告哦.沒貼到