从组合框中删除项目时,最后一个项目被删除,但文本仍保留...在删除最后一个项目后,如何使组合框为空白?

时间:2019-06-20 13:24:10

标签: vba ms-word

非常简单的问题,但在任何地方都找不到答案。

我创建了一个命令按钮,该按钮可根据选择的项目从组合框的列表中删除这些项目。删除最后一项时,“技术上”已删除,但最后一项的文本保留在组合框字段中。这会使用户感到困惑;在这种情况下,他们会认为仍附加了一个项目(项目列表是文件路径)。

我尝试了复杂的路线,例如将第一个索引字段设置为“无附件”,并为此建立解决方案。例如删除最后一个字段后,将其设置为“无附件”。但这要求我以这种方式初始化组合框,并更改代码的其他区域,这只会使所有内容不必要地变得复杂。

仅是代码的简短说明,它需要一个布尔值,用户可以通过选择是来删除所有内容或按下“删除选定的选项”来提示输入

Private Sub rmvFile(removeAll As Boolean)
    If removeAll = False Then
    'trying to work out how to remove selected item
        fileListComboBox.RemoveItem (fileListComboBox.ListIndex)
    Else
        Do While fileListComboBox.ListCount > 0
            fileListComboBox.RemoveItem (0)
        Loop
    End If

End Sub

我期望的结果是,当我删除组合框中的最后一个项目时,它将为空白,但这不会发生。最后一项文本保留在组合框中,使用户感到困惑。

0 个答案:

没有答案