listview的Drag问题

Question

难道真是个bug?
是vb的bug,还是控件的bug,还是我程序的bug?

Answer 1

我不太明白你的意思，可不可以把那段代码贴出来？==================================
网名：网狐
程序：中手
来自：www.vbgood.com
      vbyes.ccoo.com (论坛)
==================================

Answer 2

代码贴出来也没用,我的意思是说在用listview时,拖动里面的一个Item
去其他地方,情况就如window里拖动文件在两个窗口中进行复制那样,
我让鼠标变成拖曳状态,照理来说,如果你不想拖动item了,只想通过滑动
旁边的scrollbar(滚动条)来浏览更多的item,但鼠标此时也出现拖曳状态
请问有什么方法解决呢?

Answer 3

就是说,当你在window中用鼠标拖曳一文件时,鼠标的样式由箭头图形变成箭头加文件的图形,
这就是鼠标变成了拖曳状态呀,同理,如果在listview中拖动listview中的其中一项,我们编程中
把鼠标样式变换成另外一种,使用户看起来知道在拖动中,但我现在不想拖动了,只想通过调整scrollbar查看listview的显示,但鼠标仍然变成拖动样式.
也许我表达得不太清楚,但如果你编过这种情况的程序,绝对能够理解,谢谢.
我把相关源代码贴出来吧:
其中我把listview命名为lvwResource
Private Sub lvwResource_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
  If (Button = 1) Then
    lvwResource.Drag
  End If
End Sub

Answer 4

改成這樣:
Private Sub lvwResource_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
  If Button =1 then
   If Not lvwResource.HitTest(x, Y) Is Nothing Then lvwResource.Drag
  end if
End Sub