 |
2004-04-13 12:29 出处：CSDN 作者：gnuljf 责任编辑：sdq
|
Else MMControl.From=j End If MMControl.Command=″Play″ End Sub Sub MMControl_ BackClick(Cancel As Integer) i=MMControl.Position－100 ′数值100为后退量,可适当调整 If i<0 Then MMControl.From=0 Else MMControl.From=i End If MMControl.Command=″Play″ End Sub MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题。 调整好窗体Form的标题、图标、颜色等,然后编译成EXE文件,你就可以在Windows下拥有自己的VCD播放器了。 另外,因电脑性能差异及VCD解码质量的不同,播放画面质量和音质将有所差异。 |
软件大小：45.02 MB
软件授权：免费
立即下载
