Ⅰ 如何用vb制作视频播放器
自己看，另外还有解码器。Video
.....\AMOVIE.oca
.....\Amovie.ocx
.....\EQPro.oca
.....\EQPro.ocx
.....\frmfullscreen.frm
.....\FrmVideo.frm
.....\FrmVideo.frm.bak
.....\FrmVideo.frx
.....\FrmVideo.log
.....\MSSCCPRJ.SCC
.....\Video.vbp
.....\Video.vbw
椭圆形多媒体播放器源代码
........................\play1.frm
........................\play1.frx
........................\play1.vbp
........................\play1.vbw
........................\安装必读.txt
........................\说明.htm
http://v.youku.com/v_show/id_XMjEzOTU1Nzcy.html
Ⅱ vb中如何实现背景播放电影
既然把播放器嵌入桌面不容易做到,那我们换一个思路:
在鼠标和键盘发生事件事,用showwindow隐藏播放器(别急,不是你想的那样听我说),把焦点给上一个获得焦点的窗体或是桌面,这段时间内鼠标和键盘件事应该是被阻止的,所以要用到StartMaskKey,但我们的目的不是真正阻止事件,只是暂时的,阻止的事就交给DLL去,只要没有返回值DLL就不会让event发生,所以我们要用到AdressOf 进行函数回调,因为回调函数后,焦点是在操作去,所以你的操作将与平常没什么区别
继续,然后再用timer控件检查鼠标和键盘的发生,若没有事件就马上显示播放器并前置
这样,只要你的电脑足够快,其间的闪烁人眼是发觉不了的,一般配置的估计会微微闪一下,不会有很大问题的,N年前的古董的话,想都别想了...
下面是主要程序的代码提示,看看,基本就是用这个来扩展了:
'在窗体上添加2个CommandButton，并分别改名为cmdStartMask和cmdStopMask）
Option Explicit
Private Declare Function StartMaskKey Lib "MaskKey" (lpdwVirtualKey As Long, ByVal nLength As Long, ByVal lpfnKeyboarProc As Long, Optional ByVal bDisableKeyboard As Boolean = False) As Long
Private Declare Function StopMaskKey Lib "MaskKey" () As Long
Private Sub cmdStartMask_Click()
' 屏蔽 A, B, C, 上, 下, 左, 右及两个win键
Dim key(8) As Long
key(0) = vbKeyA
key(1) = vbKeyB
key(2) = vbKeyC
key(3) = vbKeyLeft
key(4) = vbKeyRight
key(5) = vbKeyUp
key(6) = vbKeyDown
key(7) = &H5B ' 左边的win键
key(8) = &H5C ' 右边的win键
StartMaskKey key(0), UBound(key) + 1, AddressOf KeyboardProc
End Sub
Private Sub cmdStopMask_Click()
StopMaskKey
End Sub
窗体模块的代码和以前的例程几乎一样，只是在调用StartMaskKey函数时加了一个参数：AddressOf KeyboardProc。在VB中用过回调函数的人对这东西绝不会陌生，AddressOf是一个一元运算符，后面接一个函数名，它的功能就是获得指定函数的指针。但有一点必须注意，该回调函数（此例中为KeyboardProc）必须写在VB的标准模块中，标准模块的代码如下：
Option Explicit
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_SYSKEYUP = &H105
Public Type KBDLLHOOKSTRUCT
vkCode As Long ' 虚拟按键码(1--254)
scanCode As Long ' 硬件按键扫描码
flags As Long ' flags
time As Long ' 消息时间戳
dwExtraInfo As Long ' 额外信息
End Type
Public Enum KEYACTION
ACTION_KEYDOWN = WM_KEYDOWN
ACTION_KEYUP = WM_KEYUP
ACTION_SYSKEYDOWN = WM_SYSKEYDOWN
ACTION_SYSKEYUP = WM_SYSKEYUP
End Enum
' 全局键盘钩子回调函数
' 参数: action 标识键盘消息(按下,弹起), keyStruct 包含按键信息
Public Function KeyboardProc(ByVal action As KEYACTION, keyStruct As KBDLLHOOKSTRUCT) As Boolean
Select Case action
Case ACTION_KEYDOWN
Debug.Print keyStruct.vkCode, "按下键盘按键"
Case ACTION_KEYUP
Debug.Print keyStruct.vkCode, "弹起键盘按键"
Case ACTION_SYSKEYDOWN
Case ACTION_SYSKEYUP
End Select
' 返回 True 表示继续传递按键消息
' 返回 False 表示结束按键消息传递
KeyboardProc = False
End Function
' 这个VB标准模块中的KeyboardProc有没有点MFC消息映射函数的味道呢？！需要注意的是，VB的回调函数必须写在标准模块中。细心的人还可能会发现，我对action参数作了一点小手脚，改成了一个枚举类型，这主要是为了易于理解。
Ⅲ 用VB按钮怎么控制视频播放呢
你用windows media player控件播放
一下是windows media player的基本属性
属性/方法 说明
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.ration:double; 媒体总长度
currentMedia.rationString: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
Ⅳ VB做电影播放器
ShockwaveFlash只是Adobe提供的一个Flash播放控件，要播放视频、音频。你只需要使用Windows
Media
Player控件即可。
使用的方法很简单
Me.WindowsMediaPlayer1.URL
=
"C:\1.wav"即可播放
Ⅳ 怎么在VB中插入视频
Ctrl T
在弹出的对话框中
控件——选中“Windows Media Player”项 应用
在工具栏新出现一个控件图标
新建此控件
使用如下：
＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用属性和方法＝＝＝＝＝＝＝＝＝＝＝
[基本属性]
URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.ration Double 总长度
currentMedia.rationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
Ⅵ 如何使用VB实现在桌面上播放视频
呵呵
看了你的要求还蛮高的吗／
我觉得那个QVOD那个软件能实现你的几点要求
LZ
可以试一下
有快捷键.在桌面上播放.不会被轻易关闭
不知道对不对？
把分给我！！～～
Ⅶ 怎样使用vb建立一个视频播放器，
最简单的是添加一个media player的控件，然后设置他的url，这样就能播放mediapalyer支持的视频了
medaplayer控件你要在默认的程序面板上没显示的，你要在控件栏，右键-部件去找
比如说添加了默认的名称为WindowsMediaPlayer1的控件，然后设置WindowsMediaPlayer1.URL =要播放的文件路径
这样就可以了。
Ⅷ 怎样才能在VB中播放视频文件
原因是你地址路径写错了。如果文件和你自身文件在一个目录WindowsMediaPlayer1.URL = "\1.mp3"或者WindowsMediaPlayer1.URL = app.path &"\1.mp3"如果。文件例如在c盘。WindowsMediaPlayer1.URL = "c:\1.mp3"这样只。如果你是rmvb格式的那当然放不了。windows没那控件。
Ⅸ 怎样用VB做一个视频播放器
视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL="视频文件路径"
flash：添加一个shodkwaveflash控件，语法：
ShockwaveFlash1.Movie="flash文件路径"
可以用commondialog打开本地文件(commondialog.showopen)：
文件路径用commondialog.filename
Ⅹ 怎样VB打开播放器播放电影
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL As Long = 1
Const SW_HIDE As Long = 0
Private Sub Form_Click()
Call ShellExecute(Me.hWnd, "Open", "d:\2.txt", vbNullString, _
App.Path, SW_SHOWNORMAL)
End Sub