1、
Microsofe Multimedia Control 6.0
和Microsofe Multimedia Control 6.0(sp3)有什么不同?
在有些机子里只有Microsofe Multimedia Control 6.0(sp3),然后同样的代码就是运行不了
2、
用MMcontrol控件打开一个AVI的小动画(无声)的时候就可以,但打开一个AVI的电影的时候就像放慢镜头似的,而且没声音,难道是因为AVI文件太大的原因?用 "Sequencer "播放小的mid时就有声音
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "AVIVideo"
'MMControl1.DeviceType = "Sequencer"
'MMControl1.FileName = "c:\aaa.mid"
MMControl1.FileName = "c:\虫虫特工队.avi"
MMControl1.Command = "Open"
End SubPrivate Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close"
End Sub3、
MediaPlayer控件播放一个电影后,如果要保存怎么实现?比如说有个下拉菜单,有“打开”和“另存为”,通过通用对话框打开选择文件播放后,单击“另存为”。
Dim FileNum As Integer
CommonDialog1.DialogTitle = "保存"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "VCD文件(*.mpg;dat;mpv)|*.mpg|*.dat|*.mpv"
CommonDialog1.DefaultExt = "*.mpg"
CommonDialog1.ShowSave
FileNum FreeFile
Open CommonDialog1.FileName For Output As #FileNum
......这还要写什么?
Microsofe Multimedia Control 6.0
和Microsofe Multimedia Control 6.0(sp3)有什么不同?
在有些机子里只有Microsofe Multimedia Control 6.0(sp3),然后同样的代码就是运行不了
2、
用MMcontrol控件打开一个AVI的小动画(无声)的时候就可以,但打开一个AVI的电影的时候就像放慢镜头似的,而且没声音,难道是因为AVI文件太大的原因?用 "Sequencer "播放小的mid时就有声音
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "AVIVideo"
'MMControl1.DeviceType = "Sequencer"
'MMControl1.FileName = "c:\aaa.mid"
MMControl1.FileName = "c:\虫虫特工队.avi"
MMControl1.Command = "Open"
End SubPrivate Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close"
End Sub3、
MediaPlayer控件播放一个电影后,如果要保存怎么实现?比如说有个下拉菜单,有“打开”和“另存为”,通过通用对话框打开选择文件播放后,单击“另存为”。
Dim FileNum As Integer
CommonDialog1.DialogTitle = "保存"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "VCD文件(*.mpg;dat;mpv)|*.mpg|*.dat|*.mpv"
CommonDialog1.DefaultExt = "*.mpg"
CommonDialog1.ShowSave
FileNum FreeFile
Open CommonDialog1.FileName For Output As #FileNum
......这还要写什么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货