Определить координаты значка программы в панели задач - 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

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы