用户窗体加载后ListBox首次点击无法选中，需实现首次点击即选中

常见原因 #

这个问题通常是因为窗体加载后，列表框并未获得焦点，首次点击实际上是让列表框获取焦点而非触发选中操作；少数情况是列表框的初始化逻辑干扰了点击事件的响应。

具体解决方法 #

方法1：窗体初始化时强制设置列表框焦点

在用户窗体的Initialize事件中，完成列表框数据加载后，手动将焦点设置到列表框上，这样首次点击就能直接触发选中：

Private Sub UserForm_Initialize()
    ' 示例：填充列表框数据
    ListBox1.Clear
    ListBox1.AddItem "项目A"
    ListBox1.AddItem "项目B"
    ListBox1.AddItem "项目C"
    
    ' 强制将焦点设置到列表框
    ListBox1.SetFocus
End Sub

方法2：通过MouseDown事件强制选中点击项

如果设置焦点无效，可直接在列表框的MouseDown事件中，根据鼠标点击位置获取对应项目索引并强制选中：

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim targetIndex As Integer
    ' 获取鼠标点击对应的列表项索引（-1表示未点击到有效项）
    targetIndex = ListBox1.PointToIndex(X, Y)
    
    If targetIndex <> -1 Then
        ListBox1.ListIndex = targetIndex
    End If
End Sub

如果窗体上有多个列表框，可将此逻辑封装为通用过程，避免重复代码：

Private Sub SelectListBoxItem(ByVal lst As MSForms.ListBox, ByVal X As Single, ByVal Y As Single)
    Dim targetIndex As Integer
    targetIndex = lst.PointToIndex(X, Y)
    If targetIndex <> -1 Then
        lst.ListIndex = targetIndex
    End If
End Sub

' 每个列表框的MouseDown事件调用此通用过程
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    SelectListBoxItem ListBox1, X, Y
End Sub

Private Sub ListBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    SelectListBoxItem ListBox2, X, Y
End Sub

额外注意事项 #

• 检查窗体上是否有其他控件（如文本框、命令按钮）在加载时自动获取焦点，这类控件会抢占列表框的焦点，导致首次点击失效。
• 确保列表框的MultiSelect属性设置符合需求（如果是单选模式，MultiSelect需设为fmMultiSelectSingle）。

内容的提问来源于stack exchange，提问作者Michael