初学-怎样使combobox不为空值? 或者是:combo为空值时不给光标下移

Question

如题

Answer 1

不要设成这样不就行了
combobox1.additem ""至于选择空后不让光标下移则须多加控制如(一个简单示例，你做做参考吧)：Option ExplicitPrivate Sub Combo1_Click()
    If Combo1.Text = "" Then
        
        
        Combo1.ListIndex = 0
        
    End If
    
End SubPrivate Sub Form_Load()
    
    With Combo1
        .AddItem "a"
        .AddItem ""
        .AddItem "b"
        
        
    End With
    
End Sub

Answer 2

在combobox的LostFocus中写
当combobox为空的时候始终把焦点放在combobox中Private Sub Combo1_LostFocus()
If Me.Combo1.Text = "" Then
   Me.Combo1.SetFocus
End If
End Sub

Answer 3

Private Sub Combo1_LostFocus()
If Combo1.Text = "" Then Combo1.SetFocus
End Sub