VBA UserForm ListView控件：鼠标点击坐标转换与控件定位问题

核心问题解决步骤 #

要实现需求，需完成三个关键操作：将MouseDown的像素坐标转为窗体缇（Twips）单位、修正ListView水平滚动偏移、定位点击行列并移动Frame控件。

通用声明（用户窗体顶部） #

VBA原生ListView未暴露滚动位置属性，需调用Windows API获取：

Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageW" ( _
    ByVal hwnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    lParam As Any _
) As LongPtr

Private Const LVM_GETSCROLLPOSITION As Long = &H104E

Private Type POINTAPI
    x As Long
    y As Long
End Type

ListView MouseDown事件处理代码 #

Private Sub ListView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim scrollPos As POINTAPI
    Dim targetItem As ListItem
    Dim targetCol As Integer
    Dim colWidthSum As Long
    Dim xPixelWithScroll As Long
    Dim xTwips As Long, yTwips As Long
    
    ' 获取ListView水平滚动偏移（像素单位）
    Call SendMessage(ListView1.hwnd, LVM_GETSCROLLPOSITION, 0, scrollPos)
    
    ' 计算包含滚动偏移的真实点击X像素坐标
    xPixelWithScroll = X + scrollPos.x
    
    ' 定位点击的列
    targetCol = -1
    colWidthSum = 0
    For i = 1 To ListView1.ColumnHeaders.Count
        ' 列宽（缇）转像素后累加对比
        colWidthSum = colWidthSum + (ListView1.ColumnHeaders(i).Width \ Screen.TwipsPerPixelX)
        If xPixelWithScroll <= colWidthSum Then
            targetCol = i
            Exit For
        End If
    Next i
    
    ' 定位点击的行
    xTwips = X * Screen.TwipsPerPixelX
    yTwips = Y * Screen.TwipsPerPixelY
    Set targetItem = ListView1.HitTest(xTwips, yTwips)
    
    ' 移动Frame到点击位置
    If Not targetItem Is Nothing And targetCol > 0 Then
        ' 计算Frame的绝对坐标（基于窗体缇单位）
        Frame1.Left = ListView1.Left + (X + scrollPos.x) * Screen.TwipsPerPixelX
        Frame1.Top = ListView1.Top + Y * Screen.TwipsPerPixelY
        
        ' 可选：让Frame匹配单元格尺寸
        Frame1.Width = ListView1.ColumnHeaders(targetCol).Width
        Frame1.Height = targetItem.Height
    End If
End Sub

关键细节说明 #

• 单位转换：用Screen.TwipsPerPixelX/Y直接完成像素与缇的转换，这是VBA内置的屏幕单位映射属性。
• 滚动偏移修正：ListView滚动后，MouseDown的X坐标是可视区域相对值，需加上滚动偏移的像素值，才能匹配整个内容区域的真实位置。
• 列定位逻辑：ListView列宽为缇单位，转成像素后累加，与修正后的点击X像素对比，即可锁定点击列。
• HitTest使用：该方法仅接收缇单位坐标，必须先完成像素转缇才能正确获取点击行。

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