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等价物，使用它们。