반응형 벽에 닿으면 튕겨나오는 볼1 visual basic,비주얼베이직,vb .net 강좌-벽에 닿으면 튕겨나오는 볼,bounding ball,ClientRectangle,bounds object, timer Enable 은 반드시 truePublic Class Form1 Dim hs As Integer = -5 Dim vs As Integer = -5 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ball.Right > Me.ClientRectangle.Width Then hs = -hs End If If ball.Bottom > Me.ClientRectangle.Height Then vs = -vs End If If ball.Left < 0 Then hs = -hs End If If ball.Top < 0 Then vs = -vs End If ball.Left += hs ball.Top += vs .. 2017. 2. 10. 이전 1 다음 반응형
