0
我不斷收到此錯誤:「聲明期望結束」。「聲明期末」VB.NET錯誤
這裏就是錯誤是在我的代碼:
與* *的部分周圍是什麼顯示爲錯誤。
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
有誰知道如何解決它。謝謝!
請下次發佈**最少**(以及相關的*完整*)示例。大部分代碼根本與問題無關。 –
沒關係。我發現「As」和「Integer」之間沒有空格 –