最小化所有窗口的vb.net代码示例

在 VB.NET 中，可以使用以下代码最小化所有窗口：

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll")>
    Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function

    Private Const SW_MINIMIZE As Integer = 6

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 最小化所有窗口
        For Each hWnd As IntPtr In Process.GetCurrentProcess().Handle.GetProcesses().Select(Function(p) p.MainWindowHandle)
            ShowWindow(hWnd, SW_MINIMIZE)
        Next
    End Sub
End Class

上述代码中，使用了 ShowWindow 函数来最小化窗口。遍历当前进程中的所有窗口，并将它们都最小化。通过调用 ShowWindow 函数，将窗口句柄和 SW_MINIMIZE 参数传递给该函数来最小化窗口。