Определить координаты значка программы в панели задач - Visual Basic .NET

  1. Доброго времени суток. Как определить координаты значка программы в панели задач?


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


Похожие ответы
  1. Всем здравствуйте. Определяю какие порты и чем заняты из командной строки (netstat –aon, tasklist). Существуют ли в .Net функции, облегчающие эту задачу?

  1. Помогите программно определить имя объекта.vb.net1 2 3 Private Sub Field_Leave(sender As Object, e As MouseEventArgs) e.OriginalSource.ToString() End SubОтвет меня не совсем устраивает: System.Windows.Control.Image Хочу заметить, что в XAML, имя определяется как: XML1 x:Name="imgBox1"Вот его и надо как-то вытащить. P.S. Приложение WPF

  1. Необходимо составить программу (консольное приложение). Определить номера строк прямоугольной матрицы (двумерный массив), хотя бы один которых равен k.

  1. Подскажите Заданы координаты N точек в пространстве. Необходимо определить номера точек, расстояние между которыми минимальное

  1. Всем здравствуйте. Файлы в папке имеют одинаковую структуру yymmdd.ved (yymmdd - это дата). Например, 170125.ved. Если в проводнике выбрана сортировка по имени в порядке возрастания, то последним окажется файл с самой старшей датой. Файлов в папке более 1000 шт. Также в папке может оказаться "залётный" файл, например с расширением bak или txt, нас абсолютно не интересующий. Как определить имя ved-файла с самой старшей датой (он будет в самом конце списка). Неужели перебирать и сравнивать? Если перебирать, то тогда хорошо бы начинать с конца.

  1. Всем доброго времени суток! На форме Listview. Как определить, что 1. ячейка пуста 2. пуста колонка? Спасибо за помощь и понимание.

  1. Доброго всем.. Кто нибудь писал под ноуты определение открыта ли крышка ? Поделитесь кодом) Нашёл в инете пару библиотек(кривые) да и не хочу использовать их.. В принцепе можно конечно отследить включена ли матрица и с этого танцевать... Но есть пару прог которые тоже будут включены и вот они будут мешать определение включен ли монитор.. тоесть отпадает вариант с матрицей... Если есть у кого что на уме .. подскажите)

  1. Приветствую! Мужики, как можно определить, есть ли в строке русская буква или нет? Строка в UTF8. Регуляркой можно такое сделать? Если да, респект за пример Или может что-то встроенное уже есть для решения подобных задач? Мне сейчас на ум приходит только сравнение чаров строки с диапазоном русского чарсета в UTF8.

  1. Добрый день, товарищи! Открываем ворд с помощью vb.net1 oWord = CreateObject("Word.Application")Допустим во время работы, создается много таких объектов в ворде. (закрывать их сразу нельзя по задаче) Вопрос. Как по нажатию кнопки, закрыть все ворд окна, открытые нами? Может маркер какой свой писать, или тэг... Я думаю есть же функционал такой. Может через процесс? Но я лишь знаю как закрыть все процессы ворда без разбора