急！！！！！！关于多媒体编程的一些问题......

Question

你用什么来播放视频，如果是MPlayer控件、MCI控件等控件我就没法帮你了

Answer 1

用MCI命令吧，使用如下方法
打开视频，设置时间格式为帧
按帧显示而不是播放
如下面的方法,你可以参考下面的方法
'=======================================================
'打开MCI设备，FILENAME为文件名,并设置时间格式为帧
'=======================================================
Public Function OpenMusic(FileName As String) As Boolean
    Dim ShortPathName As String * 255
    Dim RefShortName As String
    GetShortPathName FileName, ShortPathName, 255
    RefShortName = Left(ShortPathName, InStr(1, ShortPathName, Chr(0)) - 1)    MciCommand = "open " & RefShortName & " alias NOWMUSIC"
    mciSendString MciCommand, vbNull, 0, 0
    mciSendString "set NOWMUSIC time format frames", vbNullString, 0, 0
end Function'======================================================
'设置媒体的当前进度
'======================================================
Public Function SetMusicPos(Position As Long) As Boolean
    Dim RefInt As Long
    SetMusicPos = False
    RefInt = mciSendString("seek NOWMUSIC to " & Position, vbNull, 0, 0)
    If RefInt = 0 Then SetMusicPos = True
End Function