Ⅰ 如何用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