[创建vb6安装程序时不保存更改

Question

我在文本框控件的LostFocus（）操作中有一个简单的句子

将文本更改为大写；像这样

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

但是在安装应用程序时，大写文本的操作在txtIntegration中不起作用，我正在使用Visual Basic 6的“要分发的打包和部署向导来创建安装程序]

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

您至少可以尝试这种方法，并在安装后查看它是否有效。安装过程不会破坏您的任何代码。