Значение константы клика левой кнопкой мыши по значку в панели задач

@Petr_S · Регистрация: 21.04.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Не могу найти.

VB.NET

1
2
3

   Private Const WMessageRightClickTaskbar As Integer = &H313  
   Protected Overloads Overrides Sub WndProc(ByRef m As Message)  
         If m.Msg = WMessageRightClickTaskbar Then

WMessageRightClickTaskbar - константа клика правой кнопкой мыши на значке программы в панели задач.

Какое значение у константы, для клика левой кнопкой мыши?

@Yury Komar · 30.01.2016, 03:35

Может юыть тебе поможет это сообщение?

VB.NET

1	const WM_RBUTTONUP

@Petr_S · 30.01.2016, 12:12 **[ТС]**

Yury Komar, нет, не то. Мне нужна именно константа клика левой кнопкой мыши по значку программы на панели задач.

У меня свой стиль окна программы. Соответственно, FormBorderStyle = None .
Из-за этого невозможно свернуть-развернуть окно, просто кликая мышью по значку на панели задач. Хотел восстановить эту функцию, отлавливая такие клики в WndProc . Но не знаю константу.
Может есть другое решение.

@Yury Komar · 30.01.2016, 13:52

Petr_S, стоит поискать в примерах на vb6, там должно быть, там это дела именно через API и константы решалось...

@ovva · 30.01.2016, 15:30

Сообщение &H313 не соответствует нажатию ПКМ (разве что в WinXP), а вот для Shift+ПКМ справедливо. Свернуть/Восстановить окно приложения можно так

VB.NET

 Protected Overloads Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = &H313 Then
        If Me.WindowState = FormWindowState.Normal Then
            Me.WindowState = FormWindowState.Minimized
        Else
            Me.WindowState = FormWindowState.Normal
        End If
    End If
    MyBase.WndProc(m)
End Sub

@Petr_S · 30.01.2016, 21:30 **[ТС]**

Сообщение от ovva

Сообщение &H313 не соответствует нажатию ПКМ (разве что в WinXP)

ovva, те три строки из первого сообщения - начало процедуры вызова собственного меню программы при клике по значку на панели задач. У меня это используется, работает в XP и Vista.

Я нашел решение проблемы с использованием CreateParams

VB.NET

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim CP As CreateParams = MyBase.CreateParams
            CP.Style = &HA0000
            Return CP
        End Get
    End Property

@Замабувараев · 02.02.2016, 10:59

Почему не подходит стандартный элемент управления NotifyIcon https://msdn.microsoft.com/ru-... 10%29.aspx ?

@Petr_S 207 / 224 / 87 Регистрация: 21.04.2013 Сообщений: 404
	30.01.2016, 12:12 [ТС]	3
	Yury Komar, нет, не то. Мне нужна именно константа клика левой кнопкой мыши по значку программы на панели задач. У меня свой стиль окна программы. Соответственно, FormBorderStyle = None . Из-за этого невозможно свернуть-развернуть окно, просто кликая мышью по значку на панели задач. Хотел восстановить эту функцию, отлавливая такие клики в WndProc . Но не знаю константу. Может есть другое решение. 0

@Yury Komar Модератор 4203 / 3287 / 497 Регистрация: 27.01.2014 Сообщений: 6,033
	30.01.2016, 13:52	4
	Petr_S, стоит поискать в примерах на vb6, там должно быть, там это дела именно через API и константы решалось... 0

@Замабувараев COM‐пропагандист 859 / 768 / 147 Регистрация: 18.12.2014 Сообщений: 2,195 Записей в блоге: 4
	02.02.2016, 10:59	7
	Почему не подходит стандартный элемент управления NotifyIcon https://msdn.microsoft.com/ru-... 10%29.aspx ? 0

Значение константы клика левой кнопкой мыши по значку в панели задач

Решение