[VB.NET] 좌우로 움직이는 레이블[Label]

if문을 이용해 Label을 클릭했을 때 좌우로 왔다 갔다하는 프로그램을 만들어 보겠습니다.

완전 간단합니다..

변수 하나를 추가해 그 변수가 0일때는 오른쪽으로 1일때는 왼쪽으로 이동하게 하는 것입니다.

저는 비주얼스튜디어 2008로 실습해보겠습니다.

우선 프로그램을 실행해 단축키 Ctrl + N로 새프로젝트를 실행해줍니다.

저같은 경우 이름을 yellowRabbit로 하겠습니다.

그리고 나서 좌측의 도구상자에서 Label을 더블클릭해 레이블을 추가해줍니다.. 

드래그로 적당한 곳에 이동시켜주시면 됩니다.

레이블의 바탕색을 바꿔보겠습니다. 속성창에서 BackColor 의 속성을 바꿔주시면 됩니다. 

전 Yellow로 바꾸겠습니다.

그다음 레이블의 이름을 바꿔보겠습니다. Text속성창에서 변경해주시면 됩니다..

yellowRabbit로 변경했습니다.

레이블의 텍스트 , 배경색이 변경된 모습입니다.

그리고 명령어로 이 레이블을 좌우로 움직이게 하려면 레이블의 이름으로 움직이게 합니다.

그 이름을 바꿔보겠습니다. Name에서 변경하시면 됩니다. 전 army82로 변경했습니다.

위 과정을 모두 마치셨으면 레이블을 더블클릭해 주시면 됩니다... 그럼 아래와 같은 코드가 보여집니다.

Name속성에서 army82로 변경해서 army82_Click , army82.Click로 보여지는군요..

아래 코드 내용입니다.

Dim way As Integer  '<---way 변수추가 /정수형(Integer)'

If way = 0 Then   way가 0일때

        army82.Left += 100  '<---오른쪽으로 100이동'

        way = 1   '<---way를 1으로 변경'

    Else

        army82.Left -= 100  '<---왼쪽으로 100이동'

        way = 0   '<---way를 0으로 변경'

    End If

그리고 레이블의 바깥부분 Form부분을 더블클릭해 주시면 아래와 같은 코드가 나타납니다. Form의 기본 이벤트인 Form1_Load프러시저 작성화면입니다.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        way = 0  '<---way의 초기값으로 0을 지정해줍니다.'

    End Sub

이상입니다. 

F5를 누르셔서 실행하신후 레이블을 클릭해보시면 좌우로 왔다 갔다하는 모습을 보실 수 있을 겁니다.

<출처:VB.NET 2010 조은석>