- 最後登錄
- 2024-5-22
- 在線時間
- 0 小時
- 註冊時間
- 2007-5-12
- 閱讀權限
- 70
- 精華
- 0
- UID
- 1286899
- 帖子
- 1412
- 積分
- 17880 點
- 潛水值
- 38467 米
| 若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com 本帖最後由 darkjack 於 2012-4-20 10:41 PM 編輯
我剛剛想嘗試 用 FrameWork 4.5Beta 安裝結果不能安裝
用 FrameWork 4 我要安裝,顯示我電腦已經有 FrameWork4 了
我用你丟上來的原始碼 直接copy 過去 VS 2008
是有出現了棒子 但是卻少了 磚塊
- Dim b = New Label
- 'Dim l = New Label '<===全域 就會出現棒子 ,取消 卻只出現磚塊
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim L = New Label '<===寫在 裡面卻又會有些錯誤
複製代碼
而你用的專案 2010 我 2008 也不能用
給你一些參考解答
邊界問題 你看看 外介面 跟內介面 是否差距太小
把內介面的 最大超出範圍值設定小一點看看
問題應該是在這段
- Private Function chkHit(ByVal Q As Label) As Boolean
- If Q.Visible = False Then Return False
- If B.Left < Q.Left - B.Width Then Return False
- If B.Left > Q.Left + Q.Width Then Return False
- If B.Top > Q.Top + Q.Height Then Return False
- If B.Top < Q.Top - B.Height Then Return False
- If bx < Q.Left - B.Width And B.Left >= Q.Left - B.Width Then
- dx = -1
- End If
- If bx > Q.Left + Q.Width And B.Left <= Q.Left + Q.Width Then
- dx = 1
- End If
- If by < Q.Top - B.Height And B.Top >= Q.Top - B.Height Then
- dy = -1
- End If
- If by > Q.Top + Q.Height And B.Top <= Q.Top + Q.Height Then
- dy = 1
- End If
- Q.Visible = False
- Return True
- End Function
複製代碼
... |
|