VB6 - 组合框失去焦点

Question

我正在处理一个 VB6 项目，但遇到了一些我无法解决的问题。在我的项目中，我使用的是 2.0 组合框。一切工作正常，在组合框加载数据、选择它以及整个过程中。我要做的是，一旦选择了数据，我确保在两个组合框中都没有选择相同的数据。我正在尝试在 LOST FOCUS 中为其中一个 cbo 编写一个快速比较 IF 语句，但它似乎不起作用。

Private Sub cbo1_LostFocus() 
if cbo1.text<>"" and cbo2.text<>"" then
    if cbo1.text = cbo2.text then
        MSGBOX "Duplicate Values"
    else
        exit sub
    End if
end if
End Sub

它根本没有意识到有 LOST FOCUS - 我想我从来没有对 cbo 这样做过，通常是文本框等。任何帮助表示赞赏。

Answer 1

您可以尝试 GotFocus。在某些情况下，似乎可以覆盖或屏蔽 LostFoucs 事件。这篇文章显示了类似的问题：http://www.vbforums.com/showthread.php?396536-RESOLVED-VB6-LostFocus

当然，你总是可以升级到最新的 VB，但我猜你有你的理由。