Как упорядочить окна сторонних приложений по рабочему столу

Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim procnames As String() = {"terminal", "terminal64"} ' Указываем названия всех процессов, участвующих в распределении РасположитьОкнаПоРабочемуСтолу(procnames) End Sub

Public Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean End Function

Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean End Function

Private Sub РасположитьОкнаПоРабочемуСтолу(procnames As String()) 'Необходимо получить хендлы приложений, которыми нужно манипулировать - получаем все запущенные процессы Dim processes As New List(Of Process) For Each pn As String In procnames processes.AddRange(Process.GetProcessesByName(pn)) Next Dim procCount As Integer = processes.Count If procCount = 0 Then Return ' Если процессы не найдены выходим Dim screenRect As Rectangle = Screen.PrimaryScreen.Bounds ' Получаем размер рабочего стола screenRect.Height = Screen.PrimaryScreen.WorkingArea.Height ' Исключаем из него панель задач (TaskBar) Dim rowsCount As Integer = ПолучитьКоличествоРядов(procCount) 'Распределяем окна по площади экрана Dim colsCount As Integer = If(procCount Mod rowsCount = 0, procCount / rowsCount, Int(procCount / rowsCount) + 1) Dim r As Integer = 0 Dim c As Integer = -1 Dim winsize As Size = New Size(screenRect.Width / colsCount, screenRect.Height / rowsCount) ' Получаем расчетный размер всех окон Dim countInLastRow As Integer = colsCount - (rowsCount * colsCount - procCount) ' Количество окон в последнем ряду For Each proc As Process In processes c += 1 If c >= colsCount Then c = 0 : r += 1 Dim winrect As Rectangle If countInLastRow < colsCount And r = rowsCount - 1 Then ' На тот случай, если в последнем ряду количество окон меньше чем в предыдущих winsize = New Size(screenRect.Width / countInLastRow, screenRect.Height / rowsCount) End If winrect = New Rectangle(New Point(c * winsize.Width, r * winsize.Height), winsize) If SetForegroundWindow(proc.MainWindowHandle) Then MoveWindow(proc.MainWindowHandle, winrect.X, winrect.Y, winrect.Width, winrect.Height, True) End If Next End Sub

Private Function ПолучитьКоличествоРядов(count As Integer) As Integer Dim screenRect As Rectangle = Screen.PrimaryScreen.Bounds screenRect.Height = Screen.PrimaryScreen.WorkingArea.Height Dim square As Long = screenRect.Width * screenRect.Height Dim proportion As Decimal = screenRect.Width / screenRect.Height Dim winSquare As Long = square / count Dim prevSize As Size = New Size(Math.Sqrt(winSquare * proportion), Math.Sqrt(winSquare * proportion) / proportion) Dim rowsCount As Integer = 1 Dim prevProportion As Decimal = proportion Do Dim elemInRow As Integer = count / rowsCount ' - если количество не кратно - оно округлится до нужного значения ' Размер по ширине будет равняться ширине окна поделенного на кол-во элементов в ряду Dim w As Integer = screenRect.Width / elemInRow Dim h As Integer = screenRect.Height / rowsCount 'Смотрим на получившуюся пропорцию If w / h > 2 Then Exit Do rowsCount += 1 Loop Return rowsCount - 1 End Function