Нежданный фокус...

[ELC]

Подскажите пожалуйста решение простой, на первый взгляд, проблемы. Суть вкратце такова:
я использую события KeyDown и KeyUp, для изменения картинок на форме (к примеру). Собственно клавиши на клавиатуре при этом используются следующие:
<Right> <Left> <Up> <DownArrow> (те самые стрелочки )

И все у меня работало прекрасно, до тех пор, пока на форме не появились кнопки (CommandButton). Как только я их помещаю на форму события KeyDown и KeyUp для клавиш со стрелками перестают обрабатываться! И нажатие этих клавиш приводит к смене фокуса между кнопками (CommandButton).

КАК сделать так чтобы фокус перестал менятся для кнопок и обработчик моих клавиш снова заработал???

[GSerg]

Поставить форме keypreview=true?

[ELC]

уже стоит....
если keypreview = false, то вообще ничего не работает!

Блин, ну подскажите же что-нибудь интересное!!!!

[Konst_One]

TabStop=False для всех кнопок на данной форме

[Sirik]

лучше отлавливать событие GotFocus кнопок

[ELC]

TabStop=False для всех кнопок на данной форме

при этом перемещение фокуса запрещатся клавишей Tab, но ни как не стралками

лучше отлавливать событие GotFocus кнопок

если можно поясни как? а то либо у меня руки кривые, либо одно из двух

[keks-n]

Ты кнопки убери и используй вместо них лейблы.

[ELC]

Ты кнопки убери и используй вместо них лейблы.

не... так не интересно....
вопрос собственно принципиальный.

ВОЗМОЖНО ЛИ ТАК? или нет?

если нет, то наверное, лучше использовать menu bar....

но очень хочится, чтобы все-таки кнопочки былы

[GAGArin]

лучше отлавливать событие GotFocus кнопок

Я правильно понимаю что нужно смотреть с какой кнопки пришел фокус, и соответственно догадываться что было нажато?

[Konst_One]

похоже, батенька, что-то вы не так делаете
код в студию

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

Option Explicit

Private Sub Command1_Click()
Debug.Print "Command1_Click"
End Sub

Private Sub Command1_GotFocus()
Debug.Print "Command1_GotFocus"
End Sub

Private Sub Command2_Click()
Debug.Print "Command2_Click"
End Sub

Private Sub Command2_GotFocus()
Debug.Print "Command2_GotFocus"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "Form_KeyDown=" & KeyCode & ",Shift=" & Shift
End Sub

все отлавливается как надо

[Sirik]

а если кнопок 100 ? лучше через for c eatch

[ELC]

похоже, батенька, что-то вы не так делаете Confused

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



КАК ЭТО СДЕЛАТЬ?

[GSerg]

Естественно, раз ты добавил в модуль...

[Sirik]

а может лучше поставить хук?

[ELC]

угу...... заработало

только всеравно СТРЕЛКАМИ МЕНЯЕТСЯ ФОКУС на кнопках.....

[Drag]

Берешь одну ненужную кнопку(допустим, ComTmp), помещаешь за пределы формы и пишешь в код формы:

Private Sub ComTmp_LostFocus()
ComTmp.SetFocus
End Sub