小编Phi*_*l R的帖子

我在 Excel VBA 中创建了一个用户窗体，其中有一个未绑定的列表框，其 MultiSelect 属性设置为“扩展”。当该列表框通过单击列表项以外的任何方式获得焦点时，该列表中的所有项目都会显示，周围带有虚线焦点矩形。

下面是一些代码，显示了另一个列表框旁边的现象，其中 MultiSelect 设置为 Single 以进行比较。创建一个用户窗体，在其上放置两个列表框，然后将代码添加到窗体中。当您启动表单时，在列表框之间切换即可查看我所描述的内容。

Private Sub UserForm_Activate()
    ListBox1.MultiSelect = fmMultiSelectSingle
    ListBox2.MultiSelect = fmMultiSelectExtended

    Dim i As Integer
    For i = 1 To 15
        ListBox1.AddItem String(i, Chr(i + 64))
        ListBox2.AddItem String(i, Chr(i + 64))
    Next
End Sub

有没有办法删除焦点矩形或防止它们出现？

谢谢，