Если выбрать элемент, а потом нажать 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
Moderator: Перенёс пример кода под BB-тег "[ code ]"
