VBNet - Форум - .NET 4 Visual Basic и события мыши: ЛКМ, ПКМ, СКМ

Вопрос: .NET 4 Visual Basic и события мыши: ЛКМ, ПКМ, СКМ Добавлено: 22.01.11 00:07

Автор вопроса: QweЯty

можете подсказать какая функция ообработчик отвечает за:

1. наведение мышки на значек в трее (сделал, но с глюками)
2. одинарный щелчек ЛКМ на значек в трее (пока еще нет, застрял на пункте 1)
3. двойной щелчек ЛКМ на значек в трее (сделал, но из-за пункта 1 тупит и не работает)
4. одинарный щелчек ПКМ на значек в трее (сделал)
5. одинарный щелчек СКМ(колесиком) на иконку в трее (не сделало и не смог найти инфу)
сделал так:

' двойной ЛКМ

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        If Me.Visible Then
            Me.Hide()
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
        Else
            Me.ShowInTaskbar = True
            Me.Show()
            Me.WindowState = FormWindowState.Maximized
        End If
    End Sub

' обработка наведения мыши на иконку

    Private Sub Notifyicon1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseMove
        MessageBox.Show("move")
    End Sub

' обработка ПКМ на иконке в трее

    Private Sub ButtShowHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtShowHide.Click
        If Me.NotifyIcon1.Visible Then
            Me.NotifyIcon1.Visible = False
            sender.text = "Показать"
        Else
            Me.NotifyIcon1.Visible = True
            sender.text = "Скрыть"
        End If
    End Sub

как сделать:
- пункт 1:
чтобы выскакивало сообщение типа подсказки а не сообщением в центре экрана.
чтобы была задерка секунды на 1,5-3
- пункт 2 буду потом дулать как решу пункт 1
- пункт 3 работает
- пункт 4 работает
- пункт 5 не работает...

можете подсказать по имеющимся вопросам, а именно:
- как сделать задержку вывода всплывающей подсказки при наведении мыши на иконку в трее.
- какая функция обработки отвечает за нажатие средней кнопки мыши на иконку в трее.

Заранее большое спасибо за помощт и потраченое время.
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: QweЯty Вопросов: 7 Ответов: 12	Профиль \| \| #1	Добавлено: 22.01.11 03:03
	что не так сделал? Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then ShowTipBall = True Else ShowTipBall = False End If End Sub Private Sub NotifyIcon1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseMove If ShowTipBall Then NotifyIcon1.BalloonTipText = "sdfsdf" NotifyIcon1.ShowBalloonTip(1000, NotifyIcon1.BalloonTipText, NotifyIcon1.BalloonTipText, vbNull) End If End Sub звук работает если стоит true, а подсказка - нет причем как тока не пробовал написать... все равно бестолку Ответить

Номер ответа: 2 Автор ответа: QweЯty Вопросов: 7 Ответов: 12	Профиль \| \| #2	Добавлено: 22.01.11 03:07
	p.s. там ошибка была в начале на ПКМ это: Private Sub ВыходToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem1.Click End End Sub Private Sub ПоказатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоказатьToolStripMenuItem.Click Me.ShowInTaskbar = True Me.Show() End Sub Private Sub СкрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СкрытьToolStripMenuItem.Click Me.WindowState = FormWindowState.Minimized Me.ShowInTaskbar = False End Sub пока что... дальше будет больше6) Ответить

Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #3	Добавлено: 22.01.11 11:40
	1. MouseEnter 2. MouseClick 3. MouseDoubleClick 5. MouseClick Ответить

Номер ответа: 4 Автор ответа: Захарка Вопросов: 0 Ответов: 42	Профиль \| \| #4	Добавлено: 22.01.11 12:32
	Вроде если есть обработчик MouseClick, то дабл клик работать не будет, и обрабатываться будет как 2 одинарных кликаю Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 22.01.11 16:42
	в переменной MouseEventArgs [e] будет свойство, означающее количество кликов подряд. Ответить

Страница: 1 |