[求助] -

playto · 发表于 2010-2-8 09:51

` `

[ 本帖最后由 playto 于 2010-2-8 17:20 编辑 ]

mikewolf2k · 发表于 2010-2-8 10:29

If ListBox1.ListCount >= 1 Then
      'If no selection, choose last list item.
      If ListBox1.ListIndex = -1 Then
         ListBox1.ListIndex = _
                  ListBox1.ListCount - 1
      End If
      ListBox1.RemoveItem (ListBox1.ListIndex)
End If

joforn · 发表于 2010-2-8 13:43

ListBox1.ListIndex = -1

热浪2006 · 发表于 2010-2-8 14:02

ComboBox1.Text = ""

joforn · 发表于 2010-2-8 14:06

原帖由 playto 于 2010-2-8 13:52 发表

ComboBox1.value = “” ——你觉得这条语句行吗？

自己在下面的各种方式中选一个吧，全部都是一样的效果，推荐用第一种。

Private Sub CommandButton1_Click()
ComboBox1.ListIndex = -1
End Sub
Private Sub CommandButton2_Click()
ComboBox1.Text = vbNullString
End Sub
Private Sub CommandButton3_Click()
ComboBox1.Value = Null
End Sub

复制代码

joforn · 发表于 2010-2-8 14:31

原帖由 playto 于 2010-2-8 14:19 发表

谢谢。经我测试，ComboBox1.Text = vbNullString 这条语句不能用。呵呵。

如果在你的Combobox的Style为fmStyleDropDownList时会出错，这是正常的，所以才会推荐你用第一条，那个是通用的。并且也好记。

joforn · 发表于 2010-2-8 14:55

原帖由 playto 于 2010-2-8 14:39 发表

看了fmStyleDropDownList的含义，终于明白了您的意思！谢谢您！大叔！

…………
呃……我的名字看起来很老么

		自动登录	找回密码
密码			免费注册