visual basic.비주얼베이직,vb .net 강좌-랜덤좌표 이미지,random ,radomize,Location

랜덤하게 이미지를 화면에 위치시키는 프로그램입니다.

PictureBox,Timer ,label 2개의 콘트롤을 화면에 위치시킵니다..

Timer  속성 세팅 입니다.

위 의 그림처럼 이미지를 임포트 합니다.

Public Class Form1

    Dim _x As Integer

    Dim _y As Integer

    Dim rnd As New Random

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        _x = rnd.Next(0, Me.Width) 'Me.Width 폼의 x 크기 

        _y = rnd.Next(0, Me.Height)

        Label1.Text = _x & "." & _y

        PictureBox1.Location = New Point(_x - 100, _y - 100) ' 이미지 크기가 100이므로 화면 바깥으로 안나가게 ..

    End Sub

End Class