Как программно назначить кнопку по умолчанию?

[viter.alex]

Мне нужно при нажатии Enter переносить фокус на другую кнопку, чтобы пользователь не нажимал Tab. Не получается! Делаю через AcceptButton, но кнопка не изменяется. Вот, простейший пример:

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

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.AcceptButton = Button2
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.AcceptButton = Button1
  End Sub
End Class

По идее, нужно чтобы фокус циклически перемещался с одной кнопки на другую при нажатии Enter

[MIT]

Можно попробовать так: в событии KeyDown отловить Enter, передать фокус следующему элементу (TabIndex в помощь), после чего обнулить код, что бы Enter не "дошел" до кнопки. Впрочем это только в теории.

[viter.alex]

Не верю!

Однако, как все запущено: http://msdn.microsoft.com/ru-ru/library/system.windows.forms.form.acceptbutton.aspx

Кнопка "Принять" может не активироваться, если выбранный в текущий момент элемент управления на форме перехватывает клавишу ВВОД и обрабатывает ее. Например, элемент управления многострочного текстового поля допускает нажатие клавиши ВВОД, если она выбрана для вставки нового строкового символа в элемент управления.

Т.е., если у меня кнопка сейчас активна, то я не могу назначить другую кнопку по умолчанию.

[MIT]

Не верю!

Мы здесь не вопросы веры обсуждаем, а программирование, где есть только факты

Возможно я не понял что тебе надо... Ведь тебе надо по нажатию на Enter перекинуть фокус на следующий контрол? Если да, то такой вариант, пусть он и не очень эстетичен, думаю сойдет:

Наследуем класс кнопки:

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

Public Class MyButton
    Inherits System.Windows.Forms.Button

    Protected Overrides Function IsInputKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If keyData = 13 Then Return True
        Return MyBase.IsInputKey(keyData)
    End Function
End Class

В коде формы пишем

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

    Public Shared Function Recursive(Of T As Control)(ByVal controls As Control.ControlCollection) As IEnumerable(Of T)
        Dim col As New List(Of T)

        For Each c As Control In controls
            Dim ct As T = TryCast(c, T)
            If ct IsNot Nothing Then col.Add(ct)

            For Each cc As T In Recursive(Of T)(c.Controls)
                col.AddRange(cc)
            Next
        Next
        Return col
    End Function

Далее добавляем несколько кнопок на форму и ловим события:

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

    Private Sub _KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown, Button2.KeyDown, Button3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim b As MyButton = DirectCast(sender, MyButton)
            b = (New List(Of Control)(Recursive(Of Control)(b.Parent.Controls))).Find(Function(c As Control) c.TabIndex = b.TabIndex + 1)
            If b IsNot Nothing Then b.Focus()
            e.Handled = True
        End If
    End Sub

[viter.alex]

Гм, не знаю, пригодится ли мне это на практике, но в плане теории очень полезно. На день раздумий хватит.
Пусть юзер табом работает. Не развалится

[Emzari]

Можно сделать вот так. в собитии KeyUp каждого контролла добавить вот такой код

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

If e.KeyCode = Keys.Enter Then
      Me.SelectNextControl(sender, True, False, False, True)
End If


или написать свой обработчик собитии KeyUp и подключать его каждому контроллу