Кнопка отмены пользовательской формы _Имеет_ Не отвечает? - PullRequest
Новая
       6

Кнопка отмены пользовательской формы _Имеет_ Не отвечает?

0 голосов
/ 30 января 2010

Прилагаемые процедуры VBA предназначены для пользовательской формы индикатора выполнения. Все работает, как и ожидалось, за исключением того, что кнопка отмены периодически не отвечает.

Я говорю с перебоями, потому что в 95% случаев мне приходится нажимать кнопку отмены несколько раз, прежде чем процедура останавливается. Я вижу, что событие нажатия кнопки анимируется, но процедура не прерывается. Похоже, что-то крадет фокус у кнопки отмены, прежде чем может произойти событие нажатия кнопки.

Кнопки выхода и закрытия окна реагируют, как и ожидалось, одним щелчком мыши.

Что мне нужно сделать, чтобы кнопка отмены реагировала правильно? Спасибо!

Обновление : я заметил, что когда я нажимаю и удерживаю кнопку отмены, вместо кнопки, удерживающей кнопку «вниз», она поднимается обратно. Так что, очевидно, что-то сбрасывает состояние кнопки вверх, достаточно быстро, чтобы процедура не перехватывала состояние выключения для запуска события click.

Вот код в модуле пользовательской формы (с именем UserForm1): 

Private mbooUserCancel As Boolean

Public Property Get UserCancel() As Boolean
    UserCancel = mbooUserCancel
End Property

Private Property Let UserCancel(ByVal booUserCancel As Boolean)
    mbooUserCancel = booUserCancel
End Property

Public Sub UpdateProgress(CountTotal As Long, CountProgress As Long)
    On Error GoTo Error_Handler
    ProgressBar1.Value = CountProgress / CountTotal * 100
    DoEvents
Error_Handler:
    If Err.Number = 18 Then CommandButton1_Click
End Sub

Private Sub CommandButton1_Click()
    Hide
    UserCancel = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    CommandButton1_Click
End Sub

Private Sub UserForm_Activate()
    With Application
        .Interactive = False
        .EnableCancelKey = xlErrorHandler
    End With
End Sub

Private Sub UserForm_Terminate()
    Application.Interactive = True
End Sub

Вот код для модуля (названного Module1), который вызывает UserForm1: 

Sub TestProgress()

    On Error GoTo Error_Handler

    Dim objUserForm As New UserForm1
    Dim lngCounter As Long
    Dim lngSubCounter As Long

    With objUserForm
        .Show vbModeless
        DoEvents
        For lngCounter = 1 To 5
            If .UserCancel Then GoTo Exit_Sub
            For lngSubCounter = 1 To 100000000
            Next lngSubCounter
            .UpdateProgress 5, lngCounter
        Next lngCounter
        Application.Wait Now + TimeValue("0:00:02")
        .Hide
    End With

Exit_Sub:

    If objUserForm.UserCancel Then
        MsgBox "User Cancelled from UserForm1"
    End If
    Exit Sub

Error_Handler:

    If Err.Number = 18 Then
        Unload objUserForm
        MsgBox "User Cancelled from Module1"
    End If

End Sub

Ответы [ 3 ]

1 голос
/ 08 февраля 2012

Если люди все еще нуждаются в ответе, хорошо, я исследовал и взломал его!

Для нажатия на кнопку отмены код должен быть; 

Private Sub CommandButton1_Click()

Unload Me

'this bit ends all macros

End

End Sub
1 голос
/ 30 января 2010

У меня работает по первому клику каждый раз. Попробуйте выгрузить все надстройки или любой другой код, который может выполняться внутри приложения контейнера, и посмотрите, поможет ли это.

0 голосов
/ 20 февраля 2010

Ответ заключается в том, чтобы использовать модальные пользовательские формы для индикаторов выполнения, чтобы событие нажатия кнопки могло срабатывать, не затеняя при обработке в вызывающей процедуре.

...