비쥬얼베이직 이미지 움직이기 프로그램

소개글

비쥬얼베이직 이미지 움직이기 프로그램에 대한 보고서 자료입니다.

본문내용

End Sub
Private Sub optRed_Click()
lblField.BackColor = RGB(255, 0, 0)
End Sub
Private Sub optYellow_Click()
lblField.BackColor = RGB(255, 252, 0)
End Sub
Private Sub tmrMover_Timer()
If chkLower.Value = 1 And chkRight.Value = 1 Then '아래쪽 오른쪽으로 이동
If img5Pgif.Left < 12960 Then '레이블 범위안에 있으면 움직이게 한다.
img5Pgif.Left = img5Pgif.Left + 500
Else
img5Pgif.Left = img5Pgif.Left '레이블 밖으로 갈것 같으면 움직이지 못하게 한다.
End If
If img5Pgif.Top < 8040 Then
img5Pgif.Top = img5Pgif.Top + 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkLower.Value = 1 And chkLeft.Value = 1 Then '아래 왼쪽으로 이동
If img5Pgif.Left > 120 Then
img5Pgif.Left = img5Pgif.Left - 500
Else
img5Pgif.Left = img5Pgif.Left
End If
If img5Pgif.Top < 8040 Then
img5Pgif.Top = img5Pgif.Top + 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkUpper.Value = 1 And chkRight.Value = 1 Then '위 오른쪽으로 이동
If img5Pgif.Left < 12960 Then
img5Pgif.Left = img5Pgif.Left + 500
Else
img5Pgif.Left = img5Pgif.Left
End If
If img5Pgif.Top > 4800 Then
img5Pgif.Top = img5Pgif.Top - 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkUpper.Value = 1 And chkLeft.Value = 1 Then '위 왼쪽으로 이동
If img5Pgif.Left > 120 Then
img5Pgif.Left = img5Pgif.Left - 500
Else
img5Pgif.Left = img5Pgif.Left
End If
If img5Pgif.Top > 4800 Then
img5Pgif.Top = img5Pgif.Top - 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkUpper.Value = 1 And chkLower.Value = 0 And chkLeft.Value = 0 And chkRight.Value = 0 Then
If img5Pgif.Top > 4800 Then '윗쪽으로 이동
img5Pgif.Top = img5Pgif.Top - 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkUpper.Value = 0 And chkLower.Value = 1 And chkLeft.Value = 0 And chkRight.Value = 0 Then
If img5Pgif.Top < 8040 Then '아래쪽으로 이동
img5Pgif.Top = img5Pgif.Top + 150
Else
img5Pgif.Top = img5Pgif.Top
End If
ElseIf chkUpper.Value = 0 And chkLower.Value = 0 And chkLeft.Value = 0 And chkRight.Value = 1 Then
If img5Pgif.Left < 12960 Then '오른쪽으로 이동
img5Pgif.Left = img5Pgif.Left + 500
Else
img5Pgif.Left = img5Pgif.Left
End If
ElseIf chkUpper.Value = 0 And chkLower.Value = 0 And chkLeft.Value = 1 And chkRight.Value = 0 Then
If img5Pgif.Left > 120 Then '왼쪽으로 이동
img5Pgif.Left = img5Pgif.Left - 500
Else
img5Pgif.Left = img5Pgif.Left
End If
End If
End Sub

키워드

비쥬얼베이직,   움직이는이미지,   이미지움직이기,   visual basic,   그림움직이기프로그램