Запрет нажатия клавиши "Enter"

[FastLine_Advance]

Возможно ли запретить активацию кнопки по нажатии клавиши "Enter"? Чтобы функция "Click" выполнялась только через клик мыши.
Надеюсь я правильно объяснил суть проблемы

[Денис]

Сразу видится простейшее решение: использовать MouseUp с Button = 1 вместо Click.

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

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

   If Button = 1 Then
      MsgBox "Кнопка нажата"
   ElseIf Button = 2 Then
      'Можно вывести контекстное меню, например
   End If

End Sub

[iGrok]

Один минус - визуально кнопка будет реагировать на Enter, но происходить ничего не будет.

Если уж так хочешь "кнопку", которая будет реагировать только на клик мыши - делай свою кнопку (usercontrol).
Только делай её отличной по виду от стандартной.

З.Ы. Зачем вообще надо, чтобы кнопка не реагировала на Enter?

[Хакер]

Автор, не майся дурью.

[FastLine_Advance]

Один минус - визуально кнопка будет реагировать на Enter, но происходить ничего не будет.

это неважно.

мне стало все понятно еще с первого ответа! вопрос исчерпан.

[FastLine_Advance]

Автор, не майся дурью.

а дурью никто и не мается. иногда нужен оригинальный выход из проблемы

[Хакер]

Тот кто портит кнопку, лишая её возможности реагировать на Enter, тот дурью и мается.

Читай до конца.