❶ 濡備綍璁╃綉緇滄憚鍍忓ご錛堥氳繃緗戠嚎榪炴帴鐨勬灙鏈猴級鐨勮嗛戝湪VB閲岄潰鏄劇ず錛熷彲浠ョ敤picturebox鍚楋紵
鐩存帴閫氳繃浜ゆ崲鏈鴻繛鎺ュ氨鍙浠ヤ簡錛屾敞鎰廔P鍦板潃蹇呴』璺熺綉緇滄憚鍍忓ご鍦ㄥ悓涓緇勩傛病鏈塏VR鍙浠ョ數鑴戣蔣浠躲備篃鍙浠ョ敤甯︿簯瀛樺偍鐨勪簯鐩告満銆
❷ 濡備綍鐢╲b璋冪敤鎽勫儚澶
鐢ㄤ笅闈㈢殑浠ｇ爜灝卞彲浠ワ細
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
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
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Const WM_CAP_START = &H400
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30)
Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10)
Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52)
Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START + 51)
Private Const WM_CAP_SET_PREVIEW = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11)
Private Preview_Handle As Long
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 Function CapturePicture(nCaptureHandle As Long) As StdPicture
Clipboard.Clear
SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0
Set CapturePicture = Clipboard.GetData
End Function
Private Sub Command1_Click()
SavePicture Picture1.Picture, "c:\a.bmp"
End Sub
Private Sub Command2_Click()
Picture1.Picture = CapturePicture(Preview_Handle)
End Sub
Private Sub Form_Load()
Preview_Handle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, 2, 2, 220, 156, Me.hwnd, 1)
SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 1, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
SendMessage Preview_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0
End Sub
❸ 在電腦上監控攝像頭需要什麼控制項嗎最好是OCX的，我想嵌入到VB做的窗口中，哪位達人給解答一下，
本人用的微方攝像頭監控軟體（在天空軟體里有）
很好用 還能同步錄音有不懂再追問