|
Option Explicit
Dim SongRet As String
Dim SingerRet As String
Dim LastSrc As String
Dim isIndex As Boolean
Dim cboInd As Integer
Dim frmTitle As String
Dim ActCtl As Control
Dim sNum As String
Dim OldMsg As String
Dim BeforeMute As Long
Dim MciErrMsg As String * 128
Dim RetVal As Long
|
|
|
mp3\", strret, 128, 0)
End Function
Public Function MP3Pause(songfile)
Dim ret As Long
\' MCI System에 음악 파일 정지(Pause)를 명령
ret = mciSendString(\"pause mp3\", strret, 128, 0)
End Function
Public Function MP3Open(songfile)
Dim ret As Long
\' MCI System에 음악 파일을 등록
\' MCI System이 음
|
|
메뉴펼치기
