VB6.0中的ListView，如果判断选中的是哪一列？
VB6.0中的ListView，如果判断选中的是哪一列？


[解决办法]

Option Explicit
Dim a As Integer
Dim i As Integer

Private Sub Form_Load()
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "main "
ListView1.ColumnHeaders.Add , , "sub1 "

ListView1.ColumnHeaders.Add , , "sub2 "
ListView1.ListItems.Add , "test1 ", "test1 "
ListView1.ListItems( "test1 ").SubItems(1) = "test1-1 "

ListView1.ListItems( "test1 ").SubItems(2) = "test1-2 "
ListView1.ListItems.Add , "test2 ", "test2 "
ListView1.ListItems( "test2 ").SubItems(1) = "test2-1 "
ListView1.ListItems( "test2 ").SubItems(2) = "test2-2 "
ListView1.FullRowSelect = True

End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
a = x - ListView1.SelectedItem.Left
For i = 1 To ListView1.ColumnHeaders.Count
If (ListView1.ColumnHeaders(i).Left <= a) And (a <= ListView1.ColumnHeaders(i).Left + ListView1.ColumnHeaders(i).Width) Then
Me.Label1.Caption = "第 " & i & "列 ":
Exit For
End If
Next i
End Sub