7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-12-13
- 打赏
- 举报
Private Sub Combo1_LostFocus()
If Combo1.Text = "" Then Combo1.SetFocus
End Sub
If Combo1.Text = "" Then Combo1.SetFocus
End Sub
creazyfish 2004-12-13
- 打赏
- 举报
在combobox的LostFocus中写
当combobox为空的时候始终把焦点放在combobox中
Private Sub Combo1_LostFocus()
If Me.Combo1.Text = "" Then
Me.Combo1.SetFocus
End If
End Sub
当combobox为空的时候始终把焦点放在combobox中
Private Sub Combo1_LostFocus()
If Me.Combo1.Text = "" Then
Me.Combo1.SetFocus
End If
End Sub
liul17 2004-12-13
- 打赏
- 举报
不要设成这样不就行了
combobox1.additem ""
至于选择空后不让光标下移则须多加控制如(一个简单示例，你做做参考吧)：
Option Explicit
Private Sub Combo1_Click()
If Combo1.Text = "" Then
Combo1.ListIndex = 0
End If
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "a"
.AddItem ""
.AddItem "b"
End With
End Sub
combobox1.additem ""
至于选择空后不让光标下移则须多加控制如(一个简单示例，你做做参考吧)：
Option Explicit
Private Sub Combo1_Click()
If Combo1.Text = "" Then
Combo1.ListIndex = 0
End If
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "a"
.AddItem ""
.AddItem "b"
End With
End Sub
