在vb.net中使用AVICap函数库监控摄像头视频

本文代码中涉及到avicap32.dll的函数资料均来自因特网，已调试通过。现将调试中遇到的问题和心得记录如下，以备日后查阅，亦冀可供同好参考。

 

先放上代码，代码中的注释为本人所加。

 

Public Class Form1

    '下面两个api函数及常量的声明从正常执行的VB6程序中拷贝过来，使用参数和返回值的类型原是long，执行报错，后改为integer

   Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _

        Alias "capCreateCaptureWindowA" ( _

        ByVal lpszWindowName As String, _

        ByVal dwStyle As Integer, _

        ByVal x As Integer, _

        ByVal y As Integer, _

        ByVal nWidth As Integer, _