|
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解码质量的不同,播放画面质量和音质将有所差异。 |
正在阅读：用VB设计VCD播放器用VB设计VCD播放器
2004-04-13 12:29
出处：CSDN
责任编辑：sdq
键盘也能翻页，试试“← →”键
