VB 怎么调用视频啊急！！！！

有点麻烦，也不给点分啥的！

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

sendmessage 是视频数据传输的连接摄像头

Private Declare Function capCreateCaptureWindow Lib "avicap32dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

avicap32dll 是调用视频的控件

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'创建一个视频窗口，大小：640480

If ctCapWin = 0 Then

T = MeScaleY(Command1Top + Command1Height 11, MeScaleMode, 3) '视频窗口垂直位置：像素

'nStyle = WS_Child + WS_Visible + WS_Caption + WS_ThickFrame '子窗口(在Form1内)+可见+标题栏+边框

'nStyle = WS_Child + WS_Visible '视频窗口无标题栏和边框

nStyle = WS_Visible '视频窗口为独立窗口，关闭主窗口视频窗口也会自动关闭

ctCapWin = capCreateCaptureWindow("我创建的视频窗口", nStyle, 0, T, 640, 480, MehWnd, 0)

End If

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'将视频窗口连接到摄像头，如无后面两条语句视频窗口画面不会变化

'SendMessage ctCapWin, &H400 + 10, 0, 0 '连接摄像头

SendMessage ctCapWin, &H40A, 0, 0 '连接摄像头

'SendMessage ctCapWin, &H400 + 50, 1, 0 '第三个参数：1-预览模式有效,0-预览模式无效

SendMessage ctCapWin, &H432, 1, 0

'SendMessage ctCapWin, &H400 + 52, 30, 0 '第三个参数：设置预览显示频率为每秒 30 帧

SendMessage ctCapWin, &H434, 1, 0

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SendMessage ctCapWin, &H400 + 11, 0, 0 '断开摄像头连接

需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放格式为wma、mp3、asf。还有WindowsMediaPlayer1Controls = play不能用的 吧 这控件都没有Controls这个属性，所以不能用的吧 我直接这样是可以的Private Sub Form_Load()

WindowsMediaPlayer1URL = "E:\music\beyond\BeyondLive1991_Cmp3"End Sub

以上就是关于VB 怎么调用视频啊急！！！！全部的内容，包括:VB 怎么调用视频啊急！！！！、怎样才能在VB中播放视频文件、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！