Dim iii As String
rs.MoveNext
iii = Trim(rs("文件名"))
If Trim(rs("父点")) = "2" Then
MediaPlayer1.Left = 7320
MediaPlayer1.Top = 140
MediaPlayer1.Height = 7685
MediaPlayer1.Width = 7530
Picture1.Visible = False
MediaPlayer1.Visible = True
MediaPlayer1.Enabled = True
MediaPlayer1.FileName = App.Path & " \ 1 \ " & iii & ""
MediaPlayer1.Play
就出现以下错误:
实时错误'-21474467295 (80004005)';
对象'Play'的方法'IMediaPlayer2'失败
rs.MoveNext
iii = Trim(rs("文件名"))
If Trim(rs("父点")) = "2" Then
MediaPlayer1.Left = 7320
MediaPlayer1.Top = 140
MediaPlayer1.Height = 7685
MediaPlayer1.Width = 7530
Picture1.Visible = False
MediaPlayer1.Visible = True
MediaPlayer1.Enabled = True
MediaPlayer1.FileName = App.Path & " \ 1 \ " & iii & ""
MediaPlayer1.Play
就出现以下错误:
实时错误'-21474467295 (80004005)';
对象'Play'的方法'IMediaPlayer2'失败
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货