Question

我正在尝试将列表框的BackColor更改为白色。我已成功将其更改为红色（以显示缺少的输入），但我希望单击时将其更改为白色。我的代码是：

Private Sub lstEqualToOrAround_Click()
    lstEqualToOrAround.BackColor = &H8000000F
End Sub

通过使用watch，我可以看到该事件已触发并运行了代码，但不会改变颜色。我不知道为什么。

我试图使其调用另一个Sub并从那里更改颜色，但是在这种情况下我不起作用。但是，我可以在“新建子项目”或“点击”事件中执行其他操作，但不能更改BackColor

编辑：我已经使用'DblClick'事件使它工作了，但这不是我想要的用户。（我必须使用vba，因为我们无法访问其他任何东西）

Answer 1

由于屏幕上的功能没有参数，因此无法刷新到屏幕。

您可以使用MouseDown事件代替Click事件

Private Sub lstEqualToOrAround_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 lstEqualToOrAround.backColor = &H8000000F
End Sub

单击更改列表框的颜色

1 个答案: