¿Cómo utilizar el programa VB para abrir el monitor de la computadora (cámara)? Por favor ayúdenme, soy un principiante en VB.
¡Gracias!
--------------------
Controles: 3 botones de comando, un cuadro de imagen
Función de declaración privada capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long , _
ByVal x As Long, _
ByVal y As Long As Long, _
ByVal nWidth As Long, _
ByVal nHeight Mientras, _
ByVal hWndParent Mientras, _
ByVal nID Mientras) Mientras
Const privada WS_CHILD = amp; >
Const privada WS_VISIBLE = H10000000
Const privada WM_USER = H400
Const privada WM_ CAP_START = H400
Constante privada WM_CAP_EDIT_COPY = (WM_CAP_START 30)
Constante privada WM_CAP_DRIVER_CONNECT = (WM_CAP_START 10)
Constante privada WM_CAP_SET_PREVIEWRATE = (WM_CAP_START 52)
Constante privada WM_CAP_SET_OVERLAY = (WM_CAP_START 51)
Const privada WM_CAP_SET_PREVIEW = (WM_CAP_START 50)
Const privada WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START 11)
Función de declaración privada SendMessage Lib "user32" _
Alias "SendMessageA" (_
ByVal hwnd Mientras, _
ByVal wMsg Mientras, _
ByVal wParam Mientras, _
lParam As Any) Mientras
Private Preview_Handle Mientras
Función privada CreateCaptureWindow( _
hWndParent Mientras, _
Opcional x As Long = 0, _
Opcional y As Long = 0, _
Opcional nWidth As Long = 320, _
Opcional Elija nHei
ght As Long = 240, _
nCameraID opcional As Long = 240, nCameraID opcional As Long = 0) As Long
Preview_Handle = capCreateCaptureWindow("Video", _
WS_CHILD WS_VISIBLE, x, y, _
nWidth, nHeight, hWndParent, 1)
SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, nCameraID, 0
SendMessage Preview_Handle , WM_ CAP_SET_PREVIEWRATE, 30, 0
SendMessage Preview_Handle, WM_CAP_SET_OVERLAY, 1, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0
CreateCaptureWindow = Preview_Handle
Función final
Función privada CapturePicture(nCaptureHandle siempre que) como StdPicture
Clipboard.Clear
SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0
Establecer CapturePicture = Clipboard.GetData
Función final
Subdesconexión privada (nCaptureHandle As Long, _
Opcional nCameraID = 0)
SendMessage nCaptureHandle, WM_ CAP_DRIVER_DISCONNECT, _
nCameraID, 0
End Sub
Atenuar Video_Handle As Long
Privado Sub Command2_Click()
Video_ Handle = CreateCaptureWindow(PicCapture.Path amp; "\a.bmp"
End Sub
Private Sub Command3_Click()
Desconectar Video_Handle
End Sub
Private Sub Form_Resize()
Me.PicCapture.Width = Me.PicCapture.Width - 400
Me.PicCapture.Width = Me.PicCapture.Width - 400
Me.PicCapture.Width = Me.PicCapture.Width ancho - 400
Me.
Altura = Me.Height - 1400
Me.PicCapture.Refresh
End Sub
Sub privado Form_Unload(Cancelar como entero)
Desconectar Video_Handle
End Sub