[VB6 ] 打磚塊板子反彈問題
Private Sub Timer1_Timer()
b.Left = b.Left + x
b.Top = b.Top + y
If b.Left <= 0 Then x = x * -1
If b.Top <= 0 Then y = y * -1
If b.Left + b.Width >= ScaleWidth Then x = x * -1
If b.Left + b.Width >= p.Left And b.Left <= p.Left + p.Width And b.Top +
b.Height >= p.Top Then
y = y * -1
End If
End Sub
--------
b是球 p是板子
球從板子的左上或右上進去的話
會卡在裡面反彈才出來 如圖:
http://ppt.cc/g915
http://ppt.cc/uO6!
請問該如何解決
另外
在KeyDown移動板子的時候
球會停住不動
放開按鍵才會繼續移動
請問是什麼原因
謝謝~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.40.207.141
推
03/26 17:23, , 1F
03/26 17:23, 1F
→
03/26 17:24, , 2F
03/26 17:24, 2F
推
03/26 17:26, , 3F
03/26 17:26, 3F
→
03/26 17:27, , 4F
03/26 17:27, 4F
→
03/26 17:27, , 5F
03/26 17:27, 5F
→
03/26 17:27, , 6F
03/26 17:27, 6F
→
03/26 17:28, , 7F
03/26 17:28, 7F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章