Код:
1.
If ListView1.SelectedItem Is Nothing Then Exit Sub
не выводит из процедуры в этом коде (er. - '424')
1.
2.
3.
Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If Item.SubItems(1) = Data(Item.Index, 2) Then MsgBox Data(Item.Index, 2)
End Sub
и в этом коде
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
For intR = 1 To ListView1.ListItems.Count
If ListView1.SelectedItem.Selected = True Then
For intA = 1 To 10
If ListView1.ListItems(intR).SubItems(1) = Data(intA, 2) Then
MsgBox Data(intA, 2)
Exit Sub
End If
Next intA
End If
Next intR
End Sub
Код из одной строки:
1.
2.
3.
Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If ListView1.SelectedItem.Index > 0 Then MsgBox ListView1.SelectedItem.SubItems(1),vbInformation
End Sub
работает без ошибок, однако срабатывает и при ListView1.SelectedItem.Index =0. Первый код и здесь не выводит из процедуры.
Сдедующий код похоже предназначен для обработки события ListView1_MouseUp.
PLACE THIS CODE IN A VBA MODULE
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
'List View Hit Test constants
Private Const LVHT_ONITEMICON As Long = &H2
Private Const LVHT_ONITEMLABEL As Long = &H4
Private Const LVHT_ONITEMSTATEICON As Long = &H8
Private Const LVHT_ONITEM As Long = (LVHT_ONITEMICON Or _
LVHT_ONITEMLABEL Or _
LVHT_ONITEMSTATEICON)
Private Type LVHITTESTINFO
Pt As POINTAPI
flags As Long
item As Long
subitem As Long
End Type
Public Function GetSubItemRowCol(LV As ListView, ByVal x As Single
ByVal y As Single) As Variant
Dim RetVal
Dim HitData(1)
Dim Hit As LVHITTESTINFO
With Hit
.Pt.x = x
.Pt.y = y
.flags = LVHT_ONITEM
End With
RetVal = SendMessage(LV.hWnd, LVM_SUBITEMHITTEST, 0&, Hit)
HitData(0) = Hit.item
HitData(1) = Hit.subitem
GetSubItemRowCol = HitData
End Function
THIS CODE IS FOR THE MOUSEUP EVENT
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift A
Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y A
stdole.OLE_YPOS_PIXELS)
Dim Col
Dim Row
Dim RetVal
RetVal = GetSubItemRowCol(ListView1, x, y)
Row = RetVal(0)
Col = RetVal(1)
End Sub
Однако в строке Public Function GetSubItemRowCol(LV As ListView, ByVal x As Single ByVal y As Single) As Variant -
Compile error: Expected: list separator or).
