如何：调用采用无符号类型的 Windows 函数 (Visual Basic)

  • 项目

如果使用的类、模块或结构具有无符号整数类型的成员，则可以使用 Visual Basic 访问这些成员。

调用采用无符号类型的 Windows 函数

  1. 使用 Declare 语句告诉 Visual Basic 哪个库包含函数、函数在该库中的名称、调用顺序以及调用时如何转换字符串。

  2. 在 Declare 语句中，对每个具有无符号类型的参数适当使用 UInteger、ULong、UShort 或 Byte。

  3. 请参阅调用的 Windows 函数的文档，查找它使用的常量的名称和值。 这些内容许多都已在 WinUser.h 文件中定义。

  4. 在代码中声明必要的常量。 许多 Windows 常量都是 32 位无符号值，应声明这些 As UInteger。

  5. 以正常方式调用函数。 下面的示例调用 Windows 函数 MessageBox，该函数采用无符号整数参数。

    Public Class windowsMessage
    Private Declare Auto Function mb Lib "user32.dll" Alias "MessageBox" (
        ByVal hWnd As Integer,
        ByVal lpText As String,
        ByVal lpCaption As String,
        ByVal uType As UInteger) As Integer
    Private Const MB_OK As UInteger = 0
    Private Const MB_ICONEXCLAMATION As UInteger = &H30
    Private Const IDOK As UInteger = 1
    Private Const IDCLOSE As UInteger = 8
    Private Const c As UInteger = MB_OK Or MB_ICONEXCLAMATION
    Public Function messageThroughWindows() As String
        Dim r As Integer = mb(0, "Click OK if you see this!",
            "Windows API call", c)
        Dim s As String = "Windows API MessageBox returned " &
             CStr(r)& vbCrLf & "(IDOK = " & CStr(IDOK) &
             ", IDCLOSE = " & CStr(IDCLOSE) & ")"
        Return s
    End Function
End Class

    可使用以下代码测试函数 messageThroughWindows。

    Public Sub consumeWindowsMessage()
    Dim w As New windowsMessage
    w.messageThroughWindows()
End Sub

    注意

    UInteger、ULong、UShort 和 SByte 数据类型不属于语言独立和与语言无关的组件 (CLS)，因此符合 CLS 的代码不能使用组件来使用它们。

    重要

    调用非托管代码（例如 Windows 应用程序编程接口 (API)）会使代码面临潜在的安全风险。

    重要

    调用 Windows API 需要非托管代码权限，这可能会影响它在部分信任情况下的执行情况。 有关详细信息，请参阅 SecurityPermission 和代码访问权限。

另请参阅