本文代码中涉及到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, _