vb中listview如何让上面item不能呗鼠标拖动
答案:1 悬赏:10 手机版
解决时间 2021-02-06 16:21
- 提问者网友:酱爆肉
- 2021-02-06 08:36
vb中listview如何让上面item不能呗鼠标拖动
最佳答案
- 五星知识达人网友:神也偏爱
- 2021-02-06 08:53
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_Load()
With ListView1
.ListItems.Add , , "Item1"
.ListItems.Add , , "Item2"
.ListItems.Add , , "Item3"
End With
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
ReleaseCapture
End If
End Sub
Private Sub Form_Load()
With ListView1
.ListItems.Add , , "Item1"
.ListItems.Add , , "Item2"
.ListItems.Add , , "Item3"
End With
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
ReleaseCapture
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯