安装应用程序后未触发 LostFocus() 事件

Question

我在文本框控件的 LostFocus 事件中有简单的代码将文本更改为大写：

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

安装应用程序时，将文本大写的代码在其中不起作用。

我正在使用 Visual Basic 6 的 "Package and Deployment Wizard" 创建安装程序。

Answer 1

作为您尝试实现的故障排除步骤和潜在解决方案，您可以在键入文本时将其强制为大写：

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

你至少可以试试这个方法，看看安装后是否有效。安装过程不会破坏您的任何代码。

Answer 2

解决方法是，当您添加或删除程序时，删除程序不会完全卸载.EXE 只需删除目录即可解决！

安装应用程序后未触发 LostFocus() 事件

LostFocus() event not triggered after application installation

vb6

installation