Глупый, бональный вопрос...

[XairOn]

Здравствуйте, вопрос мой действительно глупый и бональный, но тем не менее... В VB у многих контролов (почти у всех) есть событие Click, оно происходит тогда, когда пользователь нажимает на этот конрол... это всем понятно, но вот что меня не устривает, это событие происходит при нажатии любой кнопки мыши (правой или левой), во всех программах (...ну или почти во всех ) контрол реагирует на нажатие только левой кнопки (правая либо игнорируется, либо используется в других целях), так вот мне нужно, что бы в моей проге, как и в любой другой, выполнялось это условие (т.е. левая кнопка для клика, правая игнорируется)... как это сделать? Конечно можно по MouseDown, MouseUp смотреть, но это довольно гиморно (если "делать нормальный" клик) и для большого количества контролов очень неудобно... можно ли как-нибудь по-другому этого добиться???

[uhm]

Охх, что-то сегодня все хотят разбираться с Click Event'ом. По-моему, тебе все-таки придется смотреть по MouseDown/MouseUp'у, потому что Click, во-первых, не дает никакой информации о нажатой кнопке мыши и, во-вторых, если уж на то пошло, может происходить, как ни странно, не только при клике мышкой. Если у тебя фокус на кнопке и ты жмешь пробел, кнопка нажимается и тоже происходит Click event. А если ты действительно щелкнул мышкой, то перед Click'ом всегда происходят сначала MouseDown, потом MouseUp.

[Dex]

...это событие происходит при нажатии любой кнопки мыши (правой или левой), во всех программах...

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

Код: Выделить всё

Select Case Button
Case vbLeftButton
'Что происходит при нажатии левой кнопки
Case vbRightButton
'Что происходит при нажатии правой кнопки
End Select

или чо ето не подходит

[vvs_adm]

Вообще по событию MouseUP не есть хорошо... Можно нажать мыху где-то, подвести к кнопке и отпустить. И клика нет, а MouseUP есть. И так ведь Click только на левую реагирует .

[XairOn]

Эх... видать опять придется ручками...

[Алексей К.]

Простая VB кнопка на правую кнопку не реагирует, а если у тебя другой - сторонний контролл, может у него при событии клик перадется Button As Integer?

[alibek]

Код: Выделить всё

Private MButton As Long
...
Private Sub Command1_Click()
Select Case MButton
  Case 1
    MsgBox "LClick"
  Case 2
    MsgBox "RClick"
End Select
MButton = 0
End Sub
...
Private Sub Command1_MouseDown(...)
MButton = 0
End Sub
...
Private Sub Command1_MouseUp(ByVal Button As Long, ...)
MButton = Button
End Sub


[vvs_adm]

...<cut>...перадется Button As Integer?

[Алексей К.]

vvs_adm
Ничего смешного я здесь не вижу, смысл фразы "может быть" понимаешь?
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Если у него сторонний контрол, то там тип такой - какой захотел сделать разработчик, хоть string, long и т.д.

[CodeName33]

А почему бы в MouseUp координаты не проверять?
Если X,Y < 0 или X,Y > Ширины,высоты кнопки - то клик не защитывать?

[vvs_adm]

Алексей К.Вообще-то я никого не хотел обидеть, и ничего смешного в смысле твоего топика не увидел, да и не смотрел. Я ведь выделил жирным шрифтом то, что показалось мне смешным, а именно опечатка перадется.Так что, извини, если что...

[Алексей К.]

vvs_adm
Ничего плохого.
А я опечатку и сам-то не заметил, подумал ты про тип...

[XairOn]

Простая VB кнопка на правую кнопку не реагирует

кнопка да, но вот скажем, OptionButton или CheckBox реагируют и на левую и на правую кнопки одинаково... Насчет MouseDown, MouseUp я уже говорил, тут ничего для меня сложного нет, просто когда контролов много, очень гиморно для каждого такую кучу обработчиков задействовать... ядумал, что можно как-нибудь иначе, но похоже что нет...

[Sur]

>кнопка да, но вот скажем, OptionButton или CheckBox реагируют и на левую и на правую кнопки одинаково

что-то у тебя не то... с мышкой

[XairOn]

что-то у тебя не то... с мышкой

С какой ещё мышкой??? Мы тут вообще-то про VB говорим... ты поробуй обычный OptionButton на форму кинь, а потом запусти и глянь что получится??? Рекция этого контрола и на правую и на левую кнопки одинаковая... можешь сам убедиться.

[CodeName33]

XairOn, Не, не одинаковая. У меня на правую кнопку вообще никак не реагирует ни CommandButton, ни OptionButton, ни CheckBox.