2012-11-05 89 views
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 

有誰知道如何解決它。謝謝!

+0

請下次發佈**最少**(以及相關的*完整*)示例。大部分代碼根本與問題無關。 –

+0

沒關係。我發現「As」和「Integer」之間沒有空格 –

回答

3

你寫過AsIntegerAsBoolean而不是​​和As Boolean