VB6和VB.NET如何调用Windows API 详细例子

调用 Windows API 可以在 VB6 和 VB.NET 中实现。下面是一个简单的例子来展示如何在 VB6 和 VB.NET 中使用 Windows API。

VB6中使用 Windows API：

在 VB6 中，可以使用 Declare 语句来引用 Windows API 函数。下面是一个使用 Windows API 获取系统时间的例子：

Private Declare Function GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Sub Command1_Click()
    Dim st As SYSTEMTIME
    GetSystemTime st
    MsgBox "Current time is " & st.wHour & ":" & st.wMinute & ":" & st.wSecond
End Sub

VB.NET中使用 Windows API：

在 VB.NET 中，可以使用 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

以上是一个简单的例子，展示了如何在 VB6 和 VB.NET 中使用 Windows API。