關於打磚塊遊戲 反彈有點問題

darkjack

你的主執行檔 沒法執行，而你的程式碼又是取片段，實在無從幫起

darkjack

你的主程式還是一樣 不能執行，會有錯誤，我猜想你應該是用 vb 2010 的 Framework 4 作業？

而你的程式碼我整個複製之後
因為你是用自定名稱的 控件 我自己修改之後會變成這種畫面 ＝ ＝


而我滑鼠移動之後 整個介面都會移動
如果按下 button1 (應該是你設定的開始）
則那個框框 會在下方一直重複從左畫到右
...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

我剛剛想嘗試 用 FrameWork 4.5Beta 安裝結果不能安裝
用 FrameWork 4 我要安裝，顯示我電腦已經有 FrameWork4 了

我用你丟上來的原始碼 直接copy 過去 VS 2008

是有出現了棒子 但是卻少了 磚塊

1.   Dim b = New Label
   
2.   'Dim l = New Label   '<===全域 就會出現棒子 ，取消 卻只出現磚塊
   
3.   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   
4.     Dim L = New Label '<===寫在 裡面卻又會有些錯誤

複製代碼

而你用的專案 2010 我 2008 也不能用

給你一些參考解答
邊界問題 你看看 外介面 跟內介面 是否差距太小

把內介面的 最大超出範圍值設定小一點看看


問題應該是在這段

1.    Private Function chkHit(ByVal Q As Label) As Boolean
   
2.         If Q.Visible = False Then Return False
   
3.         If B.Left < Q.Left - B.Width Then Return False
   
4.         If B.Left > Q.Left + Q.Width Then Return False
   
5.         If B.Top > Q.Top + Q.Height Then Return False
   
6.         If B.Top < Q.Top - B.Height Then Return False
   
7.         If bx < Q.Left - B.Width And B.Left >= Q.Left - B.Width Then
   
8.             dx = -1
   
9.         End If
   
10.         If bx > Q.Left + Q.Width And B.Left <= Q.Left + Q.Width Then
    
11.             dx = 1
    
12.         End If
    
13.         If by < Q.Top - B.Height And B.Top >= Q.Top - B.Height Then
    
14.             dy = -1
    
15.         End If
    
16.         If by > Q.Top + Q.Height And B.Top <= Q.Top + Q.Height Then
    
17.             dy = 1
    
18.         End If
    
19.         Q.Visible = False
    
20.         Return True
    
21.     End Function

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員