검색어 입력폼
평가점수C

비주얼베이직 mp3플레이어&동영상파일

등록일 2004.10.20 파일확장자텍스트 (txt) | 가격 500원

소개글

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

참고 자료

없음
다운로드 맨위로