如何禁止用户在listview 控件lvwicon 视图下拖动图标？.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 9 行

你 可 以 如 下 修 改 ListView的 MouseMove事 件 。 修 改 后 ， 用 户 仍 可 以 用 鼠 标 拖 动 图 标 ， 但 ListView中 图 标 的 位 置 不 会 改 变 。 我 们 这 里 仅 禁 止 了 左 键 的 自 由 拖 放 ， 你 可 以 比 较 一 下 左 右 键 拖 放 的 不 同 。 
    Private Sub listView1_MouseMove(Button As Integer, Shift As Integer, _ 
     x As Single, y As Single) 
     If Button = vbLeftButton Then ' Signal a Drag operation. 
     ListView1.DragIcon = ListView1.SelectedItem.CreateDragImage 
     ListView1.Drag vbBeginDrag ' Drag operation. 
     End If 
    End Sub 
<END>