UC知道vb 看不懂问题，没本事的不要来！
来源：百度知道 编辑：UC知道 时间：2024/05/21 14:22:10
关于VB中，键盘鼠标控制的实例。
例如：KeyPress 、KeyDown、KeyUp 、MouseDown、MouseUp 、MouseMove
拖放、DragOver等。
要编程的实例，例如：（利用左右键画线，）
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static a As Boolean
If a Then
Me.Line -(X, Y)
If Button = 2 Then a = False
ElseIf Button = 1 Then
Me.CurrentX = X
Me.CurrentY = Y
a = True
End If
End Sub
只要是键盘鼠标控制的实例就可以。强调是“实例”。
不要牵扯到什么播放音乐等其他除基本控件以外的控件。
例如：KeyPress 、KeyDown、KeyUp 、MouseDown、MouseUp 、MouseMove
拖放、DragOver等。
要编程的实例，例如：（利用左右键画线，）
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static a As Boolean
If a Then
Me.Line -(X, Y)
If Button = 2 Then a = False
ElseIf Button = 1 Then
Me.CurrentX = X
Me.CurrentY = Y
a = True
End If
End Sub
只要是键盘鼠标控制的实例就可以。强调是“实例”。
不要牵扯到什么播放音乐等其他除基本控件以外的控件。
新建Command1,加入代码:(MouseMove)
Private Declare Function ReleaseCapture Lib "user32" _
( _
) As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
( _
ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any _
) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'如果按下鼠标左键
Dim ReturnVal As Long
X1 = ReleaseCapture()
ReturnVal1 = SendMessage(Command1.hWnd, WM_SYSCOMMAND, _
SC_MOVE + HTCAPTION, 0)
End If
End Sub
Command1可随鼠标移动
lz的例子不是不错嘛