请教 有点蓝：
Dim mplayer = vars("mplayer")
If mplayer.playState = WMPLib.WMPPlayState.wmppsPlaying
If not mplayer.fullScreen Then mplayer.fullScreen = True
End If
上面的代码，如果单独做一个“全屏”按钮，在视屏播放过程中点击，可以全屏；
但如果把它加在“播放”按钮代码里的后面，点“播放”，无法全屏。
原“播放”按钮代码：
Dim ls As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim mplayer = e.Form.Controls("Panel1").Basecontrol.controls("mplayer")
For i As Integer = 0 To ls.items.Count - 1
If mplayer.currentMedia.sourceURL = ls.SelectedValue Then
Exit For
End If
mplayer.ctlcontrols.Next
Next
mplayer.ctlcontrols.play
加好友 
发短信
Post By：2018/5/14 21:52:00 [显示全部帖子]
