怎样实现横向拖动一个控件
编号：QA003029
建立日期: 2000年6月13日 最后修改日期：2000年6月13日
所属类别：
wangkai:
操作系统：win95
工具：vb6.0
问题：怎样实现横向拖动一个控件，就像winamp中拖动那个进度块一样？谢谢！
回答:
Dim cX As Single, cY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cX = X
cY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'全方向的移动
If Button = 1 Then
Me.Move Me.Left - cX + X, Me.Top - cY + Y
End If
'垂直
If Button = 1 Then
Me.Move Me.Left, Me.Top - cY + Y
End If
'水平
If Button = 1 Then
Me.Move Me.Left - cX + X, Me.Top
End If
End Sub
此问题由Ace回答。
| |
|
|
| |
|
|
