listview超级难题,快急死了,一整天都无法解决

Question

大家新建listview1(0-3)增加一列,1个form2,加入如下代码,然后生成EXE,一定要生成EXE,然后对着listview1(0)双击,大家帮我看看是什么问题 
Private Sub Form_Load() 
Dim i As Integer, j As Integer 
For i = 1 To 10 
For j = 0 To 3 
  ListView1(j).ListItems.Add , , i 
Next 
Next 
End Sub Private Sub ListView1_DblClick(Index As Integer) 
Form2.Show vbModal 
End Sub Private Sub ListView1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) 
If Button = 1 Then 
  Set ctrl = ListView1(0).ListItems(ListView1(0).SelectedItem.Index) 
    ListView1(0).DropHighlight = ctrl 
    ListView1(1).ListItems(ListView1(0).SelectedItem.Index).Selected = True 
    ListView1(1).SetFocus 
  Set ctrl = ListView1(1).ListItems(ListView1(1).SelectedItem.Index) 
    ListView1(1).DropHighlight = ctrl 
    ListView1(2).ListItems(ListView1(0).SelectedItem.Index).Selected = True 
    ListView1(2).SetFocus 
End If 
DoEvents 
End Sub

Answer 1

Private Sub ListView1_DblClick(Index As Integer) 
  'Form2.Show vbModal 
   form2.show '这样就可以了，但不知道是否满足你的设计需要
End Sub 

Answer 2

以下是代码,就是增加一个变量. isDown.
好了,如果没有问题.那就将你今天发的贴子的分给我了.
我不贪心吧.
Private IsDown As BooleanPrivate Sub Form_Load()
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 0 To 3
  ListView1(j).ListItems.Add , , i
Next
Next
End SubPrivate Sub ListView1_DblClick(Index As Integer)
IsDown = True
Form2.Show vbModal
IsDown = False
End SubPrivate Sub ListView1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDown = False Then
If Button = 1 Then
  Set ctrl = ListView1(0).ListItems(ListView1(0).SelectedItem.Index)
    ListView1(0).DropHighlight = ctrl
    ListView1(1).ListItems(ListView1(0).SelectedItem.Index).Selected = True
    ListView1(1).SetFocus
  Set ctrl = ListView1(1).ListItems(ListView1(1).SelectedItem.Index)
    ListView1(1).DropHighlight = ctrl
    ListView1(2).ListItems(ListView1(0).SelectedItem.Index).Selected = True
    ListView1(2).SetFocus
End If
DoEvents
End If
End Sub

Answer 3

你将我的代码复制去试一下,看行不?你的问题就要是在.当你双击的时候进入了Form2.但是Form2是模态模式．但是这时又产生了Mouse_UP事件．而你在Mouse_UP事件中对Form1产生操作．而在模态模式下不能进行操作的，于是出现了错误．而我就在你调用模态模式窗口时，设置IsDown为True 而我就在你结束模态模式窗口时，设置IsDown为False而在Mouse_Up事件中对isDown进行判断是否执行下面的代码．