如何获取ListBox1.Selected(i)位置并修改样式？如何在用户窗体列表框选中项右侧添加按钮？

嘿，我来帮你搞定这两个VBA用户窗体相关的问题，咱们一个个说清楚：

用户窗体里的ListBox选中项位置，得结合它的TopIndex、ItemHeight这些属性来计算；至于修改样式，默认的ListBox样式不够灵活，咱们可以用自绘模式来定制选中项的外观。

获取选中项的位置 #

当用户点击ListBox时，你可以这样计算选中项在窗体里的坐标：

Private Sub ListBox1_Click()
    Dim selectedIdx As Integer
    selectedIdx = ListBox1.ListIndex
    
    ' 确保有选中项
    If selectedIdx <> -1 Then
        ' 计算选中项的Top和Left坐标（相对于窗体）
        Dim itemTop As Long, itemLeft As Long
        ' TopIndex是当前可见区域的第一个项的索引，所以要减去它来得到实际偏移
        itemTop = ListBox1.Top + (selectedIdx - ListBox1.TopIndex) * ListBox1.ItemHeight
        itemLeft = ListBox1.Left
        
        MsgBox "选中项位置：Top=" & itemTop & "，Left=" & itemLeft
    End If
End Sub

修改选中项的样式（自绘模式） #

要自定义选中项的背景色、字体等，得把ListBox的DrawMode属性设置为fmDrawModeOwnerDrawFixed，然后在DrawItem事件里写绘制逻辑：

Private Sub ListBox1_DrawItem(ByVal Index As Integer, ByVal Rect As MSForms.Rectangle, ByVal State As Integer)
    ' 判断当前项是否被选中
    Dim isSelected As Boolean
    isSelected = (State And fmDrawStateSelected) = fmDrawStateSelected
    
    ' 设置背景色
    If isSelected Then
        ListBox1.BackColor = RGB(184, 204, 228) ' 浅蓝色高亮
    Else
        ListBox1.BackColor = RGB(255, 255, 255) ' 默认白色
    End If
    
    ' 设置字体样式（比如选中时加粗）
    ListBox1.Font.Bold = isSelected
    
    ' 绘制项的文本
    ListBox1.DrawMode = fmDrawModeCopy
    ListBox1.Text = ListBox1.List(Index)
End Sub

注意：一定要先在属性窗口把ListBox的DrawMode改成fmDrawModeOwnerDrawFixed，不然这个事件不会触发哦。

你给的是工作表加按钮的代码，用户窗体里的按钮是MSForms.CommandButton，咱们得稍微调整一下逻辑，还要处理重复创建的问题（每次选新项时删掉旧按钮）。

动态添加按钮的代码 #

首先在用户窗体模块顶部声明一个模块级变量，用来保存创建的按钮，方便后续删除：

Private dynamicBtn As MSForms.CommandButton

然后在ListBox的点击事件里写创建按钮的逻辑：

Private Sub ListBox1_Click()
    Dim selectedIdx As Integer
    selectedIdx = ListBox1.ListIndex
    
    If selectedIdx <> -1 Then
        ' 先删掉之前创建的按钮（避免重复）
        If Not dynamicBtn Is Nothing Then
            Me.Controls.Remove dynamicBtn.Name
            Set dynamicBtn = Nothing
        End If
        
        ' 计算按钮的位置（选中项右侧5像素）
        Dim btnTop As Long, btnLeft As Long
        btnTop = ListBox1.Top + (selectedIdx - ListBox1.TopIndex) * ListBox1.ItemHeight
        btnLeft = ListBox1.Left + ListBox1.Width + 5
        
        ' 创建新按钮
        Set dynamicBtn = Me.Controls.Add("Forms.CommandButton.1")
        With dynamicBtn
            .Name = "Btn_" & selectedIdx
            .Top = btnTop
            .Left = btnLeft
            .Width = 80 ' 自定义按钮宽度
            .Height = ListBox1.ItemHeight ' 和ListBox项高度保持一致
            .Caption = "操作" & ListBox1.List(selectedIdx) ' 按钮标题，可自定义
            .OnAction = "btnS" ' 绑定点击事件，这个过程要放在标准模块里
        End With
    End If
End Sub

绑定的按钮点击事件 #

你提到的btnS过程要放在标准模块里（不是用户窗体模块），比如：

Sub btnS()
    MsgBox "你点击了动态创建的按钮！"
    ' 这里可以写你需要的操作逻辑，比如获取选中项内容做处理
End Sub

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