▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

동영상(avi) 파일 재생하기

조회 수 7170 추천 수 0 2005.05.24 21:27:12
뭉충닷컴 *.101.175.159
' 프로그램 실행시키면 새로운 창이 하나 뜨면서 재생하는데 그 새창이 뭔지 도대체 모르겠다..어디서 나온건지..아시는분은 답변을 남겨주세요.


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
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 본 게시물들은 AllAPI.net 에서 퍼온것을 수정한겁니다. 뭉충닷컴 2005-05-24 7593