我用windowsmediaplayer 全屏播放影片,代码如下: frmTwoScreen.WindowsMediaPlayer1.Visible = True
frmTwoScreen.Visible = True
frmTwoScreen.WindowsMediaPlayer1.URL = App.Path & "\" & VideoName
frmTwoScreen.WindowsMediaPlayer1.Controls.Play
frmTwoScreen.WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height 影片可以播放 但是屏幕是黑屏的 有声音 用鼠标双击下才会显示画面,不知道是怎么回事?请各位大虾进来帮忙
frmTwoScreen.Visible = True
frmTwoScreen.WindowsMediaPlayer1.URL = App.Path & "\" & VideoName
frmTwoScreen.WindowsMediaPlayer1.Controls.Play
frmTwoScreen.WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height 影片可以播放 但是屏幕是黑屏的 有声音 用鼠标双击下才会显示画面,不知道是怎么回事?请各位大虾进来帮忙
解决方案 »
- 求助:vb checkbox存储 保存上一步的保存状态
- 各位帮忙看看了,急在线等!!!
- 多少专家分才能升为高级用户
- VB 中的文件拷贝/删除 取文件的类型 判断文件是否存在
- 想写个图象处理的软件,使用什么编程语言好?
- vb adodc1添加删除更新代码怎么写啊
- 简单问题,十万火急,大家来帮忙:关于音频的播放问题
- 一台配置很好的笔记本电脑为什么会慢的像老牛!!·!
- 怎么点选MSFlexGried不同的行后出现不同的详细记录窗口?详细见内容。
- 帮帮我!(为什么我才能给这么一点分?)
- 看JAVA程序员做自用的单元测试类好像都是常见的事,可是感觉在VB6的圈子里很少人这么做
- 如何去掉CheckBox中的虚线框与选中后的实线框
WindowsMediaPlayer1.fullScreen = True
frmTwoScreen.WindowsMediaPlayer1.Visible = True
frmTwoScreen.Visible = True
frmTwoScreen.WindowsMediaPlayer1.URL = "F:\电子书\YELLOR\cd1.rmvb"
frmTwoScreen.WindowsMediaPlayer1.Controls.play
frmTwoScreen.Move 0, 0, Screen.Width, Screen.Height
frmTwoScreen.WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
加上frmTwoScreen.Move 0, 0, Screen.Width, Screen.Height这句就在第一显示器上显示了
也可以使用:
frmTwoScreen.Move Screen.Width,0, 第二屏宽(分辨率)*15, Screen.Height
WindowsMediaPlayer1.Move Screen.Width,0, 第二屏宽(分辨率)*15, Screen.Height
http://topic.csdn.net/u/20081111/17/4446fdc7-64a0-4889-87aa-b1cd0da4b004.html