-

playto

`                     `

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

mikewolf2k

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

ListBox1.ListIndex = -1

热浪2006

ComboBox1.Text = ""

joforn

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


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

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

1. 
   
2. Private Sub CommandButton1_Click()
   
3.   ComboBox1.ListIndex = -1
   
4. End Sub
   
5. 
   
6. Private Sub CommandButton2_Click()
   
7.   ComboBox1.Text = vbNullString
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton3_Click()
    
11.   ComboBox1.Value = Null
    
12. End Sub
    

复制代码

joforn

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


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

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

joforn

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

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

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