vb.net聲明的問題

Question

我是vb.net（框架4）的新手，Visual Studio在以下聲明中給我提出了警告。

Private Declare Auto Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long 

Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 

Private Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As IntPtr) As IntPtr 

Private Declare Auto Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) As Boolean 

Private Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 

Private Declare Auto Function SetForegroundWindow Lib "user32" (ByVal hWnd As IntPtr) As Boolean 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 

更重要的是我如何在未來找出正確的聲明？

Answer 1

我無法想象你會從這些聲明中得到警告。但是，是的，EnumChildWindows是錯誤的，並且不可能在VB.NET程序中使用。修復：

Private Delegate Function EnumChildCallback(ByVal hWnd As IntPtr, ByVal lparam As IntPtr) As Boolean 

Private Declare Auto Function EnumChildWindows Lib "user32" (ByVal hWndParent As IntPtr, ByVal lpEnumFunc As EnumChildCallback, ByVal lParam As IntPtr) As Boolean 

GetWindowText的cch參數是錯誤的，它是Integer。其餘的都很好。

Pinvoke.net是這些聲明一個合理的體面資源。或者您可以使用P/Invoke Interop Assistant工具。它們都不是完美的，只有SO纔是。

Answer 2

它看起來像你正在轉換一個VB6應用程序。所有這些函數都有.net等價物，使用它們。