구조화된 프로그램과 비교하여 Visual Basic에는 개체의 "메서드" 기능이 추가되어 있습니다. 객체 속성과 다른 이 "방법"을 완전히 익히는 것은 시각화 응용 프로그램 개발에 매우 중요합니다. 아래에서는 애니메이션에 이 방법을 적용하는 방법을 설명하기 위해 VB4.0의 이동 방법을 예로 들어 보겠습니다.
이 예에서는 나비의 비행 과정을 완료하기 위해 move 메서드를 사용하려고 합니다. 타이머의 중단을 통해 일정 간격(예시에서는 0.2초)마다 화면상의 나비의 위치가 이동하고, 나비의 모양이 변경(날개를 펴고 날개를 접는 방식)하여 일시적인 효과를 줍니다. 비전은 나비가 날아다니는 장면을 생생하게 보는 데 사용됩니다. 나비의 위치 이동은 move 메소드를 통해 구현됩니다. move 메소드에서 사용하는 형식은 다음과 같습니다.
객체.왼쪽으로 이동,위로
그 중 left 는 객체의 왼쪽 경계(x축)의 수평 좌표이고, top은 객체의 상단 경계(Y축)의 수직 좌표입니다. 이 예에서는 객체 상자(imagebox)입니다. 메인이라고 합니다.
나비의 날개가 펼쳐지고 접히는 이미지는 비트맵 파일 bfly1.bmpbfly2.bmp에 의해 제공되며, 필요에 따라 기타 비행 비트맵 파일을 생성하여 보다 사실적인 효과를 만들 수 있습니다.
이 예에서는 양식 구조와 각 개체의 속성이 다음과 같이 설정됩니다.
객체 속성 설정
양식 캡션 나비 비행 애니메이션 디자인
이미지 프레임 이름main
그림 bfly1
이미지 프레임 이름openwings
그림 bfly1
이미지 프레임 이름closewings
그림 bfly2
명령 상자 이름command1
캡션종료(&X)
타이머이름타이머1
간격200
관련 프로그램은 비교적 간단하며 코드는 다음과 같습니다.
타이머 인터럽트 프로그램:
PRivateSubTimer-타이머()
StaticPickBmpAsInteger
Main.MoveMain.Left 20,Main.Top-5
IfPickBmp다음
Main.Picture=OpenWings.Picture'는 열린 나비 그림을 표시합니다.
또 다른
Main.Picture=CloseWings.Picture'닫힌나비그림을표시합니다.
종료
PickBmp=NotPickBmp'값을 전환합니다.
EndSub
종료 버튼(종료) 프로그램:
PrivateSubCommand1-클릭()
언로드미
끝
EndSub
이러한 방식으로 VB의 이동 방법과 기타 개체 속성을 사용하면 더욱 복잡한 애니메이션 디자인을 얻을 수 있습니다. ->