비베에서 이미지박스 랑 타이머 이용해서
이미지박스안에서 그림이 움직으는 걸 함 만드려보려고 하는데요
일단 커맨드키를 누르면 그림이 계속 움직이게 만들려고하는데
기본적인 소스코드 를 어떻게 잡아야될지 모르겠어요 ㅠㅠ
Dim p As stirng
Private Sub Command3_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
p = p + 1
Image2.Picture = LoadPicture("penguin" "& p &.jpg")
If p = 7 Then
p = 0
End If
End Sub
여기서 자꾸 감이 안잡히네요ㅜㅜ
기본 개념도 안되있으면서 뭔 애니메이션이야 p가 어디에 연결되있지도 않구만... 이미지 로딩 처리도 무한으로 계속 되겠구만..엉망이네..
Image2.Left=Image2.Left+1 을 추가해보면 이미지 움직이는걸 확인해볼 수는 있을거다.. 그전에 코드 정리부터 제대로 하길..