我用MediaPlayer控件做了一个播放器,但是点完暂停后,再点播放就有黑影闪烁(屏幕变黑)代码如下:
Dim playfilename As String
Dim playposition As Double
'播放
Private Sub cmd1_Click()
cmd2.Enabled = True
cmd3.Enabled = True
cmd1.Enabled = False
MediaPlayer1.FileName = playfilename
MediaPlayer1.CurrentPosition = playposition
MediaPlayer1.PlayEnd Sub
'暂停
Private Sub cmd2_Click()
cmd1.Enabled = True
cmd2.Enabled = False
cmd3.Enabled = True
MediaPlayer1.Pause
playposition = MediaPlayer1.CurrentPosition
End Sub
怎么才能解决此问题
Dim playfilename As String
Dim playposition As Double
'播放
Private Sub cmd1_Click()
cmd2.Enabled = True
cmd3.Enabled = True
cmd1.Enabled = False
MediaPlayer1.FileName = playfilename
MediaPlayer1.CurrentPosition = playposition
MediaPlayer1.PlayEnd Sub
'暂停
Private Sub cmd2_Click()
cmd1.Enabled = True
cmd2.Enabled = False
cmd3.Enabled = True
MediaPlayer1.Pause
playposition = MediaPlayer1.CurrentPosition
End Sub
怎么才能解决此问题
解决方案 »
- 在text1输入完内容后按enter直接复制输入内容复制怎样编写
- winsock 接收问题
- 如何实现VB+SOAP+WebService中的记录锁定问题?
- 在WIN2000下用VB打包到WINXP下不能安装(急!!)
- 求肋电脑高手
- 给青海玉树捐款账号是什么--百度快照查看
- sql告售请进,关于一个SQL的问题!急急急急!!!
- 讨论向Formula One 6中填充SQL记录集数据的速度问题,VsView7,VSFlexGrid7的注册码
- 拨号连接,怎样获取服务器IP?(null)
- 超急!!注同表操作!!大侠请来观注(在线等答啊。。。。。。)
- 菜菜关于(VB数据显示控件)的疑问,请大家进来看看!
- 怎样使“开始”菜单的“程序”菜单项不能用?
Private Sub cmd1_Click()
cmd2.Enabled = True
cmd3.Enabled = True
cmd1.Enabled = False
'判断当前的状态,当为pause时跳过下一句
MediaPlayer1.FileName = playfilename
'******
MediaPlayer1.Play