KeyDown

[Winitar]

Почему это работает:

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

Private Sub Text1_KeyDown(K As Integer, Shift As Integer)
If K = 13 Then
   Form1.BackColor = vbRed
End If

End Sub


А это нет:

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

Private Sub Form1_KeyDown(K As Integer, Shift As Integer)
If K = 13 Then
   Form1.BackColor = vbRed
End If

End Sub


???

И что можно сделать, что бы это работало?

[Belkin]

Winitar
У формы задай свойство KeyPreview=True

[Lumen]

Winitar
Это один и тот же код, как он может где-то работать, где-то нет?
Опиши подробнее что делаешь, может и правда нужно че-нить типа KeyPreview установить?

[Viper]

Не че-нить а именно KeyPreview = True надо ставить

[Winitar]

KeyPreview это как раз то что я имел ввиду, то что я и хотел узнать. Знал что у Формы есть подобное свойство, но не знал какое именно, теперь знаю! Пасиб!