Определить координаты значка программы в панели задач - Visual Basic .NET
Формулировка задачи:
Доброго времени суток. Как определить координаты значка программы в панели задач?
Решение задачи: «Определить координаты значка программы в панели задач»
textual
Листинг программы
Public Class Form1 Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal smIndex As Integer) As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Boolean 'Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As IntPtr, ByVal fuWinIni As Integer) As Integer Private Structure RECT Dim left As Integer Dim top As Integer Dim right As Integer Dim bottom As Integer End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim S As String = "", R As RECT GetWindowRect(FindWindow("Shell_TrayWnd", ""), R) S &= "Разрешение: " & My.Computer.Screen.Bounds.Size.Width & " х " & My.Computer.Screen.Bounds.Size.Height & vbCrLf & vbCrLf S &= "Размеры ячейки сетки для свернутого окна: " & vbCrLf & _ "Ширина: " & GetSystemMetrics(47) & vbCrLf & "Высота: " & GetSystemMetrics(48) & vbCrLf & vbCrLf S &= "Координаты панели задач: " & vbCrLf & _ "Левый край: " & R.left & vbCrLf & "Правый край: " & R.right & vbCrLf & _ "Верх: " & R.top & vbCrLf & "Низ: " & R.bottom MsgBox(S) End Sub End Class