Question

在VB中我在窗体中放了一个media player 控件，想拖动该控件窗体也跟着移动到相应的位置

在VB中我在窗体中放了一个media player 控件，想拖动该控件窗体也跟着移动到相应的位置，是拖动播放器控件，不能拖动窗体，我的窗体已经设置为不显示标题栏

Answer 1

该播放控件拖动效果不好，改成窗体拖动好，（即使窗体已经设置为不显示标题栏）也可以拖

Private downx As Long
Private downy As Long
Private xx As Long
Private yy As Long
Private MouseDown As Boolean
Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
downx = X
downy = Y
MouseDown = True
End Sub
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
If MouseDown = True Then Me.Move Me.Left + (xx - downx), Me.Top + (yy - downy)
End Sub
Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub

追问

但是现在我的窗体都已经被media player控件覆盖了

追答

Private downx As Long
Private downy As Long
Private xx As Long
Private yy As Long
Private MouseDown As Boolean

Private Sub WindowsMediaPlayer1_MouseDown(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
downx = fX
downy = fY
MouseDown = True
End Sub

Private Sub WindowsMediaPlayer1_MouseMove(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
xx = fX
yy = fY
If MouseDown = True Then Me.Move Me.Left + (xx - downx), Me.Top + (yy - downy)
End Sub

Private Sub WindowsMediaPlayer1_MouseUp(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
MouseDown = False
End Sub

追问

非常谢谢你的回答，要是这样的话，点击暂停也会使窗体跟着移动，有没有什么好的方法可以解决这个问题呢？

追答

点击暂停？

追问

恩，对，暂停/上一曲/下一曲/音量

追答

你设计播放器有视频功能吗？

追问

没有，就是Windows media player控件，简单的播放

追答

我已回答您了