visual basic,비주얼베이직,vb .net 강좌-벽에 닿으면 튕겨나오는 볼,bounding ball,ClientRectangle,bounds object,

동영상 서비스가 종료되어 해당 콘텐츠를 재생할 수 없습니다.

timer  Enable 은 반드시 true

Public 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

    End Sub

End Class