Dim num As Byte '변수선언
Dim show2 As String '이것도
Private Sub Command1_Click() '파일열기
CommonDialog1.ShowOpen '열기식으로 다이얼로그오픈
WindowsMediaPlayer1.URL = CommonDialog1.FileName '다이얼로그오픈했던게 윈미디어플레이어url로 작동시키기
End Sub
Private Sub Command2_Click() '이미지표시
Timer1.Enabled = True '타이머작동 시킴 왜 비활성화 시켜놓았나면 처음부터 이미지를 안불러오기위해서
Image1.Picture = LoadPicture(show2) ' 여기 " " 안에 이미지경로 넣어주면됨.
End Sub
Private Sub Command3_Click() '다음버튼
If num = 5 Then '여기 5라는숫자는 뭐 이미지 최댓값? 으로 쓰면될듯
MsgBox "끝이당" '마지막장일때 표시할 메시지박스
Else
num = num + 1 '마지막장이아니면 1을 더함
End If
End Sub
Private Sub Command4_Click() '이전버튼
If num = 1 Then
MsgBox "이미 맨처음임" '맨처음일때 표시할 메세지박스
Else
num = num - 1 '처음아니면 -1 시킴
End If
End Sub
Private Sub Form_Load()
num = 1 '폼로드시 첫번째이미지가 1이되도록
End Sub
Private Sub Timer1_Timer()
If num = 1 Then '첫번째 이미지
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\그림 샘플\겨울.jpg") ' 여기 " " 안에 이미지경로 넣어주면됨.
ElseIf num = 2 Then '두번째 이미지
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\그림 샘플\석양.jpg")
ElseIf num = 3 Then '세번째
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\그림 샘플\수련.jpg")
ElseIf num = 4 Then '네번째
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\그림 샘플\푸른 언덕.jpg")
Else '마지막 5개 더원한다면 똑같이 하면됨.
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\그림 샘플\겨울.jpg")
End If
End Sub
=============================================================================================================
프갤.zip
댓글 영역
획득법
① NFT 발행
작성한 게시물을 NFT로 발행하면 일주일 동안 사용할 수 있습니다. (최초 1회)
② NFT 구매
다른 이용자의 NFT를 구매하면 한 달 동안 사용할 수 있습니다. (구매 시마다 갱신)
사용법
디시콘에서지갑연결시 바로 사용 가능합니다.