如何用vb调用摄像头
自己这几天打算用vb做个云台控制软件,想在软件里面通过一个picture控件显示摄像头拍摄到的画面,摄像头就是平常用的那种免驱的usb接口的摄像头,虽然网上这方面的东西很多,但是picture里面得到的画面都是黑,没有图像,该怎么弄呢。
Dim Video_Handle As Long
Private Sub Command2_Click()
Video_Handle = CreateCaptureWindow(PicCapture.hwnd)
End Sub
Private Sub Command1_Click()
Dim x As StdPicture
Set x = CapturePicture(Video_Handle)
SavePicture x, "c:\a.bmp"
End Sub
Private Sub Command3_Click()
Disconnect Video_Handle
End Sub
Private Sub Form_Unload(Cancel As Integer)
Disconnect Video_Handle
End Sub
这是网上找到的一段程序,运行以后画面只是黑的。