I need help

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
sotonic
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 08.02.2006 (Ср) 10:11

I need help

Сообщение sotonic » 08.02.2006 (Ср) 10:15

Я совсем ламер в этом деле, но мне срочно нужна помощь. Как отловить в ВБ событие RightClick для Label? Просто Click и DblClick есть а RClick нету :( Что делать? Заранее спасибо

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 08.02.2006 (Ср) 10:18

Лови MouseDown (или MouseUp, по желанию) и проверяй там Button.
Lasciate ogni speranza, voi ch'entrate.

sotonic
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 08.02.2006 (Ср) 10:11

Сообщение sotonic » 08.02.2006 (Ср) 10:23

Хм, варинт наверно, но как проверить что за кнопка нажата? Именно это меня интерисует. Потому как Click реагирует и на правую и на левую.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 08.02.2006 (Ср) 10:24

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

sotonic
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 08.02.2006 (Ср) 10:11

Сообщение sotonic » 08.02.2006 (Ср) 10:33

GSerg это чо з азакос под Коперфильда? что ты этим хотел сказать?

sotonic
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 08.02.2006 (Ср) 10:11

Сообщение sotonic » 08.02.2006 (Ср) 10:34

Ух ты ж. Я ж сказал что ламер :) Спасибо ребята

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 08.02.2006 (Ср) 10:50

Отлавливай событие MouseUp. При возникновении этого события в процедуру передаются следующие параметры:
Код: Выделить всё
Button As Integer, Shift As Integer, X As Single, Y As Single

Button - Кнопка мыши, которая была отпущена.
Shift - Передает, какие управляющие клавиши (ctrl, alt, shift) были зажаты во время отпускания кнопки мыши. Значения ALT=4, SHIFT=1, CTRL=2.
X, Y - Позиция курсора относительно верхнего левого угла Label-а.
А я все практикую лечение травами...

Vinechka
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 381
Зарегистрирован: 10.05.2005 (Вт) 4:07
Откуда: Москва

Сообщение Vinechka » 08.02.2006 (Ср) 11:14

С наибольшей долей вероятности (я просто не знаю что именно хочет в итоге получить топикстартер) наиболее правильным вариантом будет ловить MouseUp, но перед этим проверять, был ли MouseDown той же самой кнопкой мыши на этот элемент.

НиколайП
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 125
Зарегистрирован: 06.12.2005 (Вт) 22:16

Сообщение НиколайП » 08.02.2006 (Ср) 12:54

может так будет проще или понятнее, а описание тебе написали выше ...

Код: Выделить всё
Private Sub  Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' это в одну строку :)

If Button = vbRightButton Then
'здесь необходимые тебе действия
End If
End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList