vb.net - 打开多个具有不同大小和位置的 explorer.exe 窗口

Question

我对 vb.net 比较陌生，遇到了以下问题：

我试图在 5 个不同的资源管理器窗口中打开 5 个不同的文件夹。所有这些都应该以固定的位置和固定的大小打开。

假设 Folder1 应该在 (5,5)，大小为 (100,150)

文件夹 2 应位于 (50,5)，大小为 (80,75)

文件夹 3 应位于 (100,5)，大小为 (100,50)

Folder4 应位于 (150,5)，大小为 (35,90)

Folder5 应位于 (200,5)，大小为 (50,35)

我在网上找到了这种方法，可以将 explorer.exe 的所有实例移动到固定位置并调整其大小 -> https://social.msdn.microsoft.com/Forums/vstudio/en-US/f4effba6-ed9b-4e4d- a163-922fc158fdfd/open-file-explorer-and-change-its-sizelocation?forum=vbgeneral

    Sub MoveAllExplorerWindows()
    
            Dim ExplorerFileName As String
    
            For Each ExplorerWindow As SHDocVw.InternetExplorer In New SHDocVw.ShellWindows()
                ExplorerFileName = Path.GetFileNameWithoutExtension(ExplorerWindow.FullName).ToLower()
                If ExplorerFileName.ToLowerInvariant() = "explorer" Then
                    ExplorerWindow.Left = 0
                    ExplorerWindow.Top = 0
                    ExplorerWindow.Width = Screen.PrimaryScreen.WorkingArea.Width / 2
                    ExplorerWindow.Height = Screen.PrimaryScreen.WorkingArea.Height
                End If
            Next ExplorerWindow
    
        End Sub

但我希望根据实际文件夹具有不同的位置和大小。上面的代码将调整每个 explore.exe 窗口的大小并将其放在位置 (0,0)。有谁知道我如何更改代码或实现一些全新的东西？

提前致谢！<3

标签： vb.net