' 프로그램 실행시키면 새로운 창이 하나 뜨면서 재생하는데 그 새창이 뭔지 도대체 모르겠다..어디서 나온건지..아시는분은 답변을 남겨주세요.
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Activate()
Dim returnstring As String
Dim FileName As String
returnstring = Space(127)
FileName = "c:winntclock.avi"
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
End Sub
Private Sub Command1_Click()
' 플레이 멈추기
erg = mciSendString("close video", returnstring, 127, 0)
End Sub
Source Page : http://www.mentalis.org/tips/tip60.shtml
