Инструмент CodeEdit от BitShape

[Kotofeich]

Я использую CodeEdit от BitShape. При нажатии кнопки на нем, происходит событие keydown, я выполняю в нем некоторые действия, а как мне запретить дальше довыполнить событие keydown? Например я нажал кнопку "k", выполнил действия, и программа добавила мне текст "k". Как сделать чтобы она ничего не добавила? Кто знает о чем речь, помогите!

[Ruslan Demidow]

Если в качестве параметра процедуры передаётся код нажатой клавиши (KeyCode), то после своих действий обнуляй код (KeyCode=0) и делай Exit Sub.

[Kotofeich]

Не работает. Такое срабатовало в RichTextBox, а тут почему-то нет. И здесь keydown - это функция, а не процедура. Пробовал и итоговое значение функции менять - ничего не помогает. Вот попробуй сделать, чтобы при нажатии кнопок ничего ни писалось...

[Ruslan Demidow]

Не работает. Такое срабатовало в RichTextBox, а тут почему-то нет. И здесь keydown - это функция, а не процедура. Пробовал и итоговое значение функции менять - ничего не помогает. Вот попробуй сделать, чтобы при нажатии кнопок ничего ни писалось...

Где пробовать? Код дай. А лучше проект.

[GM]

Да у меня такая же проблема, при нажатии Ctrl-Space, пробел как вы поняли не должен появлятся. Но даже когда я поставил (KeyCode=0), во всех процедурах обработки клавиш, все равно он появляется.

[Ruslan Demidow]

Кладём на форму тектбокс и вставляем следующий код. Конечно, некузяво через флаг, но видимо по другому никак.

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


Dim bNotExec As Boolean
Option Explicit


Private Sub Form_Load()
    bNotExec = False
    Text1.Text = "Нажмите CTRL+SPACE"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case Shift
        Case vbCtrlMask
            Select Case KeyCode
                Case vbKeySpace
                    Debug.Print "Ок."
                    KeyCode = 0
                    bNotExec = True
                    Exit Sub
            End Select
    End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If bNotExec Then
        bNotExec = Not bNotExec
        KeyAscii = 0
        Exit Sub
    End If
End Sub


[GM]

Да с текстбоксами оно может и работает, ну вот с CodeEdit нет . Там скорее должен выйти такой код

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

Option Explicit

Dim bNotExec As Boolean



Private Sub Form_Load()
    bNotExec = False
    text1.Text = "Нажмите CTRL+SPACE"
End Sub



Private Function text1_KeyDown(ByVal Control As CodeMaxCtl.ICodeMax, ByVal KeyCode As Long, ByVal Shift As Long) As Boolean
Select Case Shift
        Case vbCtrlMask
            Select Case KeyCode
                Case vbKeySpace
                    Debug.Print "Ок."
                    text1_keydown= true
                    bNotExec = True
                    Exit Function
            End Select
    End Select

End Function

Private Function text1_KeyPress(ByVal Control As CodeMaxCtl.ICodeMax, ByVal KeyAscii As Long, ByVal Shift As Long) As Boolean
    If bNotExec Then
        bNotExec = Not bNotExec
                    text1_keypress= true
        Exit Function
    End If
End Function


[Ruslan Demidow]

GM, кстати, что там насчёт ридера? Как продвигаются дела?
И ещё. Решил перенести на работу простым копированием на "чистую" машину. Не запускается. Кричит про ошибку сохдания объекта ActiveX.
Подскажи, какие ocx используются.
И через проксю не хочет посылать сообщения (ответы).
Хотелка - добавь настройки прокси (с авторизацией).
Если не хочешь сюда отвечать, тогда в мыло.
Спасибо.