Событие LostFocus () не вызывается после установки приложения

Question

У меня есть простой код в событии LostFocus элемента управления textbox, который изменяет текст в верхний регистр:

Private Sub txtIntegration_LostFocus()
    If Trim(txtIntegration.Text) <> "" Then
        txtIntegration.Text = UCase(Trim(txtIntegration.Text))
    End If
End Sub

Когда приложение установлено, код в верхний регистр текста не работает в.

Я создаю установщик с помощью «Мастера пакетов и развертывания» в Visual Basic 6.

Answer 1

Решение было, когда вы добавляете или удаляете программу, программа удаления не удаляет .EXE полностью. Просто удалите Каталог и решите его!

Answer 2

В качестве шага устранения неполадок и потенциального решения для того, чего вы пытаетесь достичь, вы можете принудительно вводить текст в верхнем регистре при вводе:

Private Sub txtIntegration_Change()
    Dim iPosition As Integer
    With txtIntegration
        iPosition = .SelStart ' Save cursor position
        .Text = UCase$(.Text)
        .SelStart = iPosition  ' Restore cursor position
    End With
End Sub

Вы можете хотя бы попробовать этот подход и посмотреть,он работает после установки. Не должно быть никаких причин, по которым процесс установки нарушает любой ваш код.