пусть на usercontrol есть текстовое поле
когда я нажимаю Enter при вводе текста в это поле, UserControl_KeyDown вызывается дважды, оба раза с vbKeyReturn
почему?
Option Explicit
Event KeyDown(KeyCode As Integer, Shift As Integer)
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "Text1_KeyDown", KeyCode
RaiseEvent KeyDown(KeyCode, Shift)
End Sub
Option Explicit
Private Sub UserControl11_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "UserControl11_KeyDown", KeyCode
End Sub
Text1_KeyDown 17
UserControl11_KeyDown 17
Text1_KeyDown 16
UserControl11_KeyDown 16
Text1_KeyDown 39
UserControl11_KeyDown 39
Text1_KeyDown 13
UserControl11_KeyDown 13
Text1_KeyDown 8
UserControl11_KeyDown 8
Text1_KeyDown 13
UserControl11_KeyDown 13
Сейчас этот форум просматривают: AhrefsBot и гости: 7