비주얼베이직 mp3플레이어&동영상파일
- 최초 등록일
- 2004.10.20
- 최종 저작일
- 2004.10
- 텍스트
- 가격 1,000원
소개글
mp3와 동영상이 같이되는 간단한 비베 프로그램입니다...
그냥 간단해보이는 프로그램입니다.
컴파일 실행환경
비베6.0
본문내용
Option Explicit
Dim intMin, intSec As Integer
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cmdOpen_Click()
On Error GoTo errcancel
dlgOpen.CancelError = True
dlgOpen.DialogTitle = "MP3 파일열기"
dlgOpen.Filter = "MP3 Files(*.mp3)|*.mp3"
dlgOpen.ShowOpen
If dlgOpen.FileName <> "" Then
WMP.FileName = dlgOpen.FileName
WMP.autoStart = False
WMP.stop
lbFileName = dlgOpen.FileTitle
WMP.currentPosition = 0
intSec = 0
intMin = 0
lbTime.Caption = Format(intMin, "00:") + _
Format(intSec, "00")
Timer1.Interval = 0
Timer1.Enabled = False
cmdPlay.Enabled = True
참고 자료
없음