Question

我不断收到此错误：“预期声明结束”。

以下是我的代码中的错误：

周围带有* *的部分显示为错误。

Declare Function capGetDriverDescriptionA Lib"avicap32.dll" _
(ByVal wDriverIndex As Short, _
ByVal lpszName As String, ByVal *cbName* *AsInteger*, _
ByVal lpszVer As String, _
ByVal cbVer As Integer) *AsBoolean*

'--The capCreateCaptureWindow function creates a capture window--
Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
(ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Short, ByVal hWnd As Integer, _
ByVal nID As Integer) As Integer

'--This function sends the specified message to a window or windows--
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal Msg As Integer, _
ByVal wParam As Integer, _
<MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer

'--Sets the position of the window relative to the screen buffer--
Declare Function SetWindowPos Lib"user32"Alias"SetWindowPos" _
(ByVal hwnd As Integer, _
ByVal hWndInsertAfter As Integer, ByVal x As Integer, _
ByVal y *AsInteger*, _
ByVal cx As Integer, ByVal cy As Integer, _
ByVal wFlags As Integer) As Integer

'--This function destroys the specified window--
Declare Function DestroyWindow Lib "user32" _
(ByVal hndw As Integer) As Boolean

'---used to identify the video source---
Dim CamSource As Integer

'---used as a window handle---
Dim hWnd As Integer

有谁知道如何修复它。谢谢！

Answer 1

您已撰写AsInteger和AsBoolean而不是As Integer和As Boolean。

＆＃34;声明结束预期＆＃34; VB.NET错误

1 个答案: