VB.NET如何使用Windows Api 举例说明

在 VB.NET 中使用 Windows API 可以通过 DllImport 属性来引用 Windows API 函数。下面是一个使用 Windows API 获取系统时间的例子：

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("kernel32.dll")>
    Private Shared Function GetSystemTime(ByRef lpSystemTime As SYSTEMTIME) As Integer
    End Function

    <StructLayout(LayoutKind.Sequential)>
    Private Structure SYSTEMTIME
        Public wYear As Short
        Public wMonth As Short
        Public wDayOfWeek As Short
        Public wDay As Short
        Public wHour As Short
        Public wMinute As Short
        Public wSecond As Short
        Public wMilliseconds As Short
    End Structure

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim st As SYSTEMTIME
        GetSystemTime(st)
        MessageBox.Show("Current time is " & st.wHour & ":" & st.wMinute & ":" & st.wSecond)
    End Sub

End Class

在上述代码中，使用 DllImport 属性引用了 Windows API 函数 GetSystemTime，该函数用于获取系统时间。使用 StructLayout 属性定义了 SYSTEMTIME 结构体，该结构体包含了系统时间的各个成员变量。在 Button1_Click 事件中调用 GetSystemTime 函数获取系统时间，并将其显示在消息框中。

通过使用 DllImport 属性引用 Windows API 函数，可以在 VB.NET 中方便地使用 Windows API，实现更加强大的功能。