PLM-forum.ru

Имеется реакция на нажатие кнопки мыши, после которой активизируется выбор элемента и реакция на нажатие кнопки Cancel.
Если выбрать элемент, а потом нажать Cancel, то работает нормально, а если активизировать функцию выбора... Но ничего не выбрать, и нажать Cancel, то режим выбора элемента не завершаеться, даже при выгруженной форме. А если такое произойдет и выбрать элемент, то катька перестает реагировать... На англоязычных ресурсах нашел, что Selection.Clear и SenkKeys должны помоч... но они мне не помогли.
Вопрос: как программно остановить работу функции SelectElement2?

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

Private Sub btnCancel_Click()
    SendKeys "{ESC}", True
    pubPartDoc.Selection.Clear
   
    pubPart.Update
    Unload Me
End Sub
....
....
Private Sub txtBody_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim InputObjectType(0)
    pubPartDoc.Selection.Clear
    InputObjectType(0) = "Body"
   
    txtSurface.BackColor = RGB(225, 225, 225)
    SendKeys "{ESC}", True
   
    Status = pubSelection.SelectElement2(InputObjectType, "Select Body", False)
   
    If Status = "Normal" Then
        If pubPartDoc.Selection.Item(1).Type = "Body" Then
            Set pubBody = pubPartDoc.Selection.Item(1).Value
            txtBody.Text = pubPartDoc.Selection.Item(1).Value.Name
            txtBody.BackColor = RGB(225, 225, 225)
            pubPartDoc.Selection.Clear
            btnOK.Enabled = True
        End If
    End If
   
    pubPartDoc.Selection.Clear
    SendKeys "{ESC}", True

    pubPart.Update
End Sub


Попробуй через Application.StartCommand запустить какую нибудь (безобидную) команду

отменить selectionelement2 получилось через Selection.search

Тоже метод