mediaplayer控件问题目 问题,如果我用它来做收音机,加入地址后点播放它会加载数据,我要在它未播放的时候在一个文本框显示"正在加载字样",如果开始播放后就出现计时部分,计时部分就不用你们帮忙了,就是不知那个属性判断它是否已经加载到外部收音机地址方文是否已经开始播放. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Wmp.dll控件:WindowsMediaPlayer1.playState :integer类型数据; 播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪 正好我也做个这样的东西,下面的代码参考一下,我的代码是在右下的托盘中显示的:Private Sub WMPlayer_StatusChange() DoEvents SetTrayTip "网络电台:" & mudtCurStation.RadioName & " " & WMPlayer.Status mintTimeout = 0 If WMPlayer.playState = wmppsPlaying Then Timer1.Enabled = False SetTrayIcon picTray(1).Picture mnuSwitch.Caption = "停止" ElseIf WMPlayer.playState = wmppsStopped Or WMPlayer.playState = wmppsPaused Or WMPlayer.playState = wmppsReady Then SetTrayIcon picTray(2).Picture mnuSwitch.Caption = "播放" Timer1.Enabled = False ElseIf WMPlayer.playState = wmppsBuffering Or _ WMPlayer.playState = wmppsReconnecting Or _ WMPlayer.playState = wmppsTransitioning Then Timer1.Enabled = True ' End IfEnd Sub Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 10 Then '缓冲完MediaPlayer1.Controls.play '再播放End IfEnd Sub 急!vb操作excel时,代码没有执行结束如何让excel不可操作 菜鸟请问谁有vb+sql做的设备管理系统 [新手提问]菜单打勾.checked遇到的问题 DLL都需要注册吗? 如何清空用TextOut画上的字? 100分求SQL语句 同一窗口下,如何将一个Image控件放到一个PictureBox控件前面 在线急知水晶报表 请教 vb中如何连接delphi的db数据库文件? 如何把text中的数据四舍五入? 求一个判断条件 [100分]如何旋转180度打印
WindowsMediaPlayer1.playState :
integer类型数据; 播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪
Private Sub WMPlayer_StatusChange()
DoEvents
SetTrayTip "网络电台:" & mudtCurStation.RadioName & " " & WMPlayer.Status
mintTimeout = 0
If WMPlayer.playState = wmppsPlaying Then
Timer1.Enabled = False
SetTrayIcon picTray(1).Picture
mnuSwitch.Caption = "停止"
ElseIf WMPlayer.playState = wmppsStopped Or WMPlayer.playState = wmppsPaused Or WMPlayer.playState = wmppsReady Then
SetTrayIcon picTray(2).Picture
mnuSwitch.Caption = "播放"
Timer1.Enabled = False
ElseIf WMPlayer.playState = wmppsBuffering Or _
WMPlayer.playState = wmppsReconnecting Or _
WMPlayer.playState = wmppsTransitioning Then
Timer1.Enabled = True '
End If
End Sub
If NewState = 10 Then '缓冲完
MediaPlayer1.Controls.play '再播放
End IfEnd Sub