Question

vb 如何检测 鼠标点击左键不放移动事件 ？

检测到此事件后，执行label1="我点击不放中"，执行完成松开左键后，执行 label1="我赐已松开左键了"
不只限在一个窗口。 检测外部发生的事件. 没人懂么？

Answer 1

Public Class Form1
Dim flgDown As Boolean
Dim flgmove As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "参考程序代码"
flgDown = 0
flgmove = 0
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
flgDown = True
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If flgDown = True Then Label1.Text = "我点击不放中"
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
flgDown = False
Label1.Text = "我赐已松开左键了"
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
End Class
是这个意思么

追问

你好，你写的代码不是我需要的。 我的意思是，随时检测 鼠标点击左键不放移动的事件 ，不只限在一个窗口。 检测外部程序发生的事件

追答

你这问题去专门的论坛问吧 ，这没人会告诉你的。

Answer 2

在窗体form1画一个标签label1和一个按钮command1,下面是代码，你是这意思么

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "我点击不放中"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "我赐已松开左键了"
End Sub

追问

你好，上面代码不是我需要的。 我的意思是，随时检测 鼠标点击左键不放移动的事件 ，不只限在一个窗口。 检测外部发生的事件

Answer 3

绘制在窗体Form1上label1和一个按钮command1的标签，下面是代码，这意味着

私人小Command1_MouseDown（整数“按钮，按住Shift键为整数，X为单，Y作为单） BR /> Label1.Caption =“在我单击并按住”
END SUB

私人小组Command1_MouseUp（按钮为Integer，Shift键，整数，X为单，Y为单） BR /> Label1.Caption =“我给松开左键”
END SUB

Answer 4

VB有自带的鼠标移动事件，直接用不就行吗！！也可以将单击事件和移动事件一起配合着用。。

追问

你好， 我的意思是，随时检测 鼠标点击左键不放移动的事件 ，不只限在一个窗口。 检测外部发生的事件。跟在窗口内的是不一样的

追答

那就工参考API方面的资料了。。。