Не могу выделить текст в Text1_KeyDown - VB

Формулировка задачи:

Доброго времени суток) У меня возникла проблема при обработке события Text1_KeyDown. Есть некий TextBox, при нажатии на клавиши vbKeyDown, vbKeyUp, vbKeyPageDown, vbKeyPageUp требуется выделить текст, находяшийся внутри.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyDown
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyUp
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyPageDown
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    Case vbKeyPageUp
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End Select
End Sub
Проблема в том, что текст выделяется только при нажатии клавиш vbKeyPageUp, vbKeyPageDown...а после обработки vbKeyDown, vbKeyUp....выделение пропадает......


textual

Код к задаче: «Не могу выделить текст в Text1_KeyDown - VB»

KeyCode = 0
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5

Источник
Похожие ответы