C++/CLI 如何封装VB.NET中使用的带结构体的Windows 的API，在VB.NET中调用封装后的Api，详细例子

在 C++/CLI 中封装带结构体的 Windows API，可以通过使用 `struct` 关键字定义结构体，并使用 `DllImport` 属性声明要封装的 Windows API 函数。

以下是一个简单的例子，演示如何封装 `SYSTEMTIME` 结构体和 `GetSystemTime` 函数：

C++/CLI 封装：

#pragma once

#include <Windows.h>

using namespace System;
using namespace System::Runtime::InteropServices;

namespace MyAPIWrapper
{
    public value struct SystemTimeWrapper
    {
        property short Year;
        property short Month;
        property short DayOfWeek;
        property short Day;
        property short Hour;
        property short Minute;
        property short Second;
        property short Milliseconds;

        SystemTimeWrapper(const SYSTEMTIME& st)
        {
            Year = st.wYear;
            Month = st.wMonth;
            DayOfWeek = st.wDayOfWeek;
            Day = st.wDay;
            Hour = st.wHour;
            Minute = st.wMinute;
            Second = st.wSecond;
            Milliseconds = st.wMilliseconds;
        }
    };

    public ref class SystemTimeApiWrapper
    {
    public:
        static SystemTimeWrapper GetSystemTime()
        {
            SYSTEMTIME st;
            GetSystemTime(&st);

            return SystemTimeWrapper(st);
        }

    private:
        [DllImport("Kernel32.dll")]
        static void GetSystemTime(SYSTEMTIME* lpSystemTime);
    };
}

VB.NET 调用：

Imports MyAPIWrapper

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim st As SystemTimeWrapper = SystemTimeApiWrapper.GetSystemTime()

        MessageBox.Show(String.Format("{0}/{1}/{2} {3}:{4}:{5}.{6}", st.Month, st.Day, st.Year, st.Hour, st.Minute, st.Second, st.Milliseconds))
    End Sub

End Class

在 VB.NET 中，我们可以像调用普通的 .NET 类一样调用封装后的 `SystemTimeApiWrapper` 类，这样可以方便地使用 Windows API，并且通过封装，可以避免直接调用 Windows API 带来的一些问题。