请问一个COMBO的一个问题？（在线等待，马上结分）

Question

我在COMBO里加入了一些内容后，点击下拉框出现下拉时，我再把焦点落到其他控件上后，会出现一个现象，就是下拉的最后几项内容会停留在窗体上。请问该如何解决？

Answer 1

Sub combo_LostFocus()
    combo.[_Default] = "你想要的某一项数据"
End Sub

Answer 2

[_Default]是指他的linstindex吗？
我的意思是COMBO的最后几项内容会残留驻留在窗体上

Answer 3

窗口的AutoRedraw属性用True试试。

Answer 4

to phlding(phlding) ( ) 
根据你说的不是combo的原因
你把你的代码贴出来看看

Answer 5

强制刷新一下窗体me.Refresh 

Answer 6

我的代码就是
Private Sub Combo7_LostFocus()
For i = 0 To Combo7.ListCount - 1   '判断系统是否存在
    If Combo7.Text = Combo7.List(i) Then
       Exit Sub
    ElseIf i = Combo7.ListCount - 1 And Combo7.Text <> Combo7.List(i) Then
       MsgBox "没有开通此系统！", vbInformation + vbOKOnly, "无此系统"
       Combo7.SetFocus
    End If
Next i
   
End Sub