タイトル : Re: AxWindowsMediaPlayerでフォームを移動 投稿日 : 2008/08/12(Tue) 15:44 投稿者 : 花ちゃん
> Private Sub AxWindowsMediaPlayer1_MouseMoveEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_MouseMoveEvent) Handles AxWindowsMediaPlayer1.MouseMoveEvent > Me.Left += e.fX - FormMousePoint.X > Me.Top += e.fY - FormMousePoint.Y > End Sub > としましたが、マウスを乗せるだけで移動してしまいます。 その時の Me.Left += e.fX - FormMousePoint.X 各値はどのようになっていますか? 仮に、FormMousePoint.X が 0 でも移動しますよね。 どこかで(MouseDown イベント)、移動開始のフラグでも設定して、そのフラグが True の時だけ上記コードを有効にするとかしないと フォームの場合のコードとよく見比べて見て下さい。 http://www.hanatyan.sakura.ne.jp/dotnet/mouse02.htm 又は、Win32 API 関数を使用するとか。 http://www.microsoft.com/japan/msdn/vbasic/migration/tips/Movement/ |