最近做一個東西，要求開始自動播放完一段視頻，然后就黑屏，等待按下電腦鍵盤p鍵，又重新開始播放視頻，播放完黑屏，如此重復。我自己寫了個，只能實作播放完黑品，后面按鍵操作不知道要放在哪里,請大家幫幫忙，謝謝了！代碼如下：
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Dim edata As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If keycode = vbKeyP Then
MCIWnd1.FileName = CommonDialog1.FileName
CommonDialog1.FileName = "F:\zm\FFTEY9GG6MPCY4F.wmv" 'CommonDialog1.FileName
MCIWnd1.Position = MCIWnd1.Start
MCIWnd1.Command = "Play"
End If
End Sub
Private Sub Form_Load()
MCIWnd1.Left = Form1.ScaleLeft
MCIWnd1.Top = Form1.ScaleTop
MCIWnd1.Width = Screen.Width 'Form1.ScaleWidth
MCIWnd1.Height = Screen.Height 'Form1.ScaleHeight
MCIWnd1.Command = "Close"
'CommonDialog1.Action = 1
MCIWnd1.FileName = CommonDialog1.FileName
CommonDialog1.FileName = "F:\zm\FFTEY9GG6MPCY4F.wmv" 'CommonDialog1.FileName
MCIWnd1.Command = "Play"
End Sub
Private Sub Form_Resize()
MCIWnd1.Left = Form1.ScaleLeft
MCIWnd1.Top = Form1.ScaleTop
MCIWnd1.Width = Screen.Width 'Form1.ScaleWidth
MCIWnd1.Height = Screen.Height 'Form1.ScaleHeight
End Sub
Private Sub MCIWnd1_PositionChange(ByVal Position As Long)
If MCIWnd1.Position = MCIWnd1.Length Then
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '關閉顯示幕
End If
End Sub
uj5u.com熱心網友回復：
用鍵盤鉤子定義熱鍵：http://topic.csdn.net/u/20110307/14/dff9d358-adfc-4871-a053-f698f28487fc.html
uj5u.com熱心網友回復：
好的，謝謝了！以前沒學過，很多定義都完全不懂，先了解下。uj5u.com熱心網友回復：
這兩天也在做VB的視頻播放器菜鳥遇到很多問題
LZ的原始碼可否分享下?
[email protected]
不勝感激
uj5u.com熱心網友回復：
看一下flash控制元件的屬性uj5u.com熱心網友回復：
謝謝了！以前沒學過，很多定義都完全不懂轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/132442.html
標籤：多媒體
上一篇：視窗置頂問題