Como: Chamar uma função do Windows que usa tipos não assinados (Visual Basic)

  • Artigo

Se você estiver consumindo uma classe, módulo ou estrutura que tenha membros de tipos inteiros não assinados, você pode acessar esses membros com o Visual Basic.

Para chamar uma função do Windows que usa um tipo não assinado

  1. Use uma instrução Declare para informar ao Visual Basic qual biblioteca mantém a função, qual é seu nome nessa biblioteca, qual é sua sequência de chamada e como converter cadeias de caracteres ao chamá-la.

  2. Declare Na instrução, use UInteger, ULong, UShort, ou Byte conforme apropriado para cada parâmetro com um tipo não assinado.

  3. Consulte a documentação da função do Windows que você está chamando para encontrar os nomes e valores das constantes que ela usa. Muitos deles são definidos no arquivo WinUser.h.

  4. Declare as constantes necessárias em seu código. Muitas constantes do Windows são valores não assinados de 32 bits e você deve declará-los As UInteger.

  5. Chame a função da maneira normal. O exemplo a seguir chama a função MessageBoxdo Windows , que usa um argumento inteiro não assinado.

    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

    Você pode testar a função messageThroughWindows com o código a seguir.

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

    Atenção

    Os UIntegertipos de dados , ULong, e SByte não fazem parte do Language Independence and Language Independent Components (CLS), portanto, UShorto código compatível com CLS não pode consumir um componente que os usa.

    Importante

    Fazer uma chamada para código não gerenciado, como a interface de programação de aplicativos (API) do Windows, expõe seu código a possíveis riscos de segurança.

    Importante

    Chamar a API do Windows requer permissão de código não gerenciado, o que pode afetar sua execução em situações de confiança parcial. Para obter mais informações, consulte SecurityPermission e Permissões de acesso ao código.

Consulte também