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

它根本没有意识到失去了焦点 - 我不认为我曾经对cbo，通常是文本框等做过这样的事情。任何帮助表示赞赏。

Answer 1

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

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