当前位置:编程学习 > VB >>

我在vb中加了一个视频播放软件 请问如何有vb控制视频播放软件中的 停止 播放 全屏

我在vb中加了一个视频播放软件 请问如何有vb控制视频播放软件中的 停止 播放 全屏  
求求求高手指点 --------------------编程问答-------------------- 什么方式加的?插件? --------------------编程问答-------------------- WMPlayer控件是不错选择
属性/方法名: 说明: 
[基本属性]   
URL:String; 指定媒易做图置,本机或网络地址 
uiMode:String; 播放器界面模式,可为Full, Mini, None, Invisible 
playState:integer; 播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪 
enableContextMenu:Boolean; 启用/禁用右键菜单 
fullScreen:boolean; 是否全屏显示 
[controls] wmp.controls //播放器基本控制 
controls.play; 播放 
controls.pause; 暂停 
controls.stop; 停止 
controls.currentPosition:double; 当前进度 
controls.currentPositionString:string; 当前进度,字符串格式。如“00:23” 
controls.fastForward; 快进 
controls.fastReverse; 快退 
controls.next; 下一曲 
controls.previous; 上一曲 
[settings] wmp.settings //播放器基本设置 
settings.volume:integer; 音量,0-100 
settings.autoStart:Boolean; 是否自动播放 
settings.mute:Boolean; 是否静音 
settings.playCount:integer; 播放次数 
[currentMedia] wmp.currentMedia //当前媒体属性 
currentMedia.duration:double; 媒体总长度 
currentMedia.durationString:string; 媒体总长度,字符串格式。如“03:24” 
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题,"Author"=艺术家,"Copyright"=版权信息,"Description"=媒体内容描述, "Duration"=持续时间(秒),"FileSize"=文件大小,"FileType"=文件类型,"sourceURL"=原始地址 
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息 
currentMedia.name:string; 同 currentMedia.getItemInfo("Title") 
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性 
currentPlaylist.count:integer; 当前播放列表所包含媒体数 
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息,其子属性同wmp.currentMedia


playState:integer; 播放状态。这个属性改变时同时引发PlayStateChange事件与StateChange事件。取值范围为枚举型:WMPLib.WMPPlayState,它的成员如下:
  wmppsUndefined = 0;   //未知状态
  wmppsStopped = 1;    //播放停止
  wmppsPaused = 2;     //播放暂停
  wmppsPlaying = 3;     //正在播放
  wmppsScanForward = 4;   //向前搜索
  wmppsScanReverse = 5;   //向后搜索
  wmppsBuffering = 6;     //正在缓冲
  wmppsWaiting = 7;      //正在等待流开始
  wmppsMediaEnded = 8;    //播放流已结束
  wmppsTransitioning = 9;    //准备新的媒体文件
  wmppsReady = 10;      //播放准备就绪
  wmppsReconnecting = 11;   //尝试重新连接流媒体数据
  wmppsLast = 12;       //上一次状态,状态没有改变赞同0| 评论  --------------------编程问答-------------------- x = Shell("D:\Program Files\Stereoscopic Player\StereoPlayer.exe ", 1)
用shell调用的
--------------------编程问答--------------------
WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.fullScreen = True'全屏
--------------------编程问答-------------------- 如果没有开放接口的话,只能考虑sendmessage了 --------------------编程问答-------------------- WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.fullScreen = True'全屏


WindowsMediaPlayer是不是代表windows中自带的媒体播放器啊 --------------------编程问答--------------------
引用 6 楼 ren2shan 的回复:
WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.fullScreen = True'全屏


WindowsMediaPlayer是不是代表windows中自带的媒体播放器啊

可以这么说,windows自带一个播放控件,我们通常称之为:wmplayer控件,你可以在部件中将其添加到你的程序中,对其编程即可。网上百度一下,有很多的例子的。 --------------------编程问答-------------------- 用vb调用Windows Media Player可以实现 暂停 播放等功能为什么Stereoscopic Player (未注册)不可以

Windows Media Player标题栏显示Windows Media Player

Stereoscopic Player标题栏显示Stereoscopic Player (未注册)

hwnd = FindWindow(vbNullString, "Windows Media Player")


可以用

hwnd = FindWindow(vbNullString, "Stereoscopic Player (未注册)")


不可以用  

只能让其窗口置前不能调用菜单功能
求教!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! --------------------编程问答-------------------- vb中如把一个工程里面的textbox 调入另一个工程里面的listbox --------------------编程问答-------------------- --------------------编程问答-------------------- shell出来的东西,严格来说不是在“程序”里面。无法象控件一样控制。
你有两个办法可以实现,当然,是不一定能实现。

1)通过句柄,找到StereoPlayer.exe中“播放”、“暂停”等的句柄(FindWindowEx),然后通过SendMessage发送点击消息。
这种方法是可以获取按钮的句柄前提下才可以。你可以使用SPY++这个工具来辅助一下。

2)通过向目标窗口发送按键的方法。
很多播放器都有按键控制的,例如暴风就是按空格就暂停的。你可以通过发送空格来进行控制。类似这样。

如果你要将视频窗口放到程序里面,那就不能用SHELL了,你可以试下VLC。不过VLC好象对VB6不支持,你只能用VB.NET。 --------------------编程问答--------------------
补充:VB ,  VBA
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,