VPF::Перехват нажатий определённой кнопки мыши.

Welemir

Дата 25.12.2009, 04:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 11.8.2009

Репутация: нет
Всего: нет

Доброе утро всем! Кто знает,как создать счётчик нажатия (или перехват событий) определённой кнопки мыши ? Вот такой вот код работает,но не так,как хотелось бы(:

Код


Dim counter As Integer = 0

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

        counter = counter + 1
        MsgBox(counter)




    End Sub

Как видно,подсчёт идёт нажатия всех кнопок мыши(средней,левой и правой).Ни одно из моих условий не прокатило,а именно:

1) Проверка значений элементов списка MouseButtons
2) Проверка значения свойства свойства Button объекта e (непонятно,что за значение,но всё равно яв пролёте.((Проверял ифом).

Экскалупатор

Дата 25.12.2009, 05:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1746
Регистрация: 1.4.2009
Где: г. Минск

Репутация: 5
Всего: 24

я не шарю в бейсике, но на шарпе:

Код


private void label1_Click(object sender, EventArgs e)
        {
            if ((e as MouseEventArgs).Button == MouseButtons.Right)
            {
                MessageBox.Show("нажато правой");
            }
        }

я думаю что перевести сможешь.

Это сообщение отредактировал(а) Экскалупатор - 25.12.2009, 05:36

diadiavova

Дата 25.12.2009, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 18
Всего: 142

Цитата(Welemir @ 25.12.2009, 04:31

)

Проверял ифом

Ты так это джелал?

Код


Dim counter As Integer = 0
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    If e.Button =  MouseButtons.Right Then
        counter = counter + 1
        MsgBox(counter)
    End If
    End Sub

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| .NET для новичков \| Следующая тема »