WindowsMediaPlayerコントロールについて

解決

初心者 2007-05-05 02:30:35 No: 143523

WindowsMediaPlayerコントロールを使って動画（AVIなど）を再生したのです。再生することはするのですが、WindowsMediaPlayerのウインドウが動画の大きさになりません。
どうプログラミングすればよいのでしょうか？
よろしくお願いします。

初心者（追記） 2007-05-06 23:41:18 No: 143524

VB4も所有しているのですけど、
そのVB4では「WindowsMediaPlayer1.currentMedia.imageSourceWidth」で動画の映像のサイズが取得できたのだけれど・・・

大吉末吉 2007-05-09 02:20:32 No: 143525

> WindowsMediaPlayerのウインドウが動画の大きさになりません。
とは？

> VB4では「WindowsMediaPlayer1.currentMedia.imageSourceWidth」で動画の映像のサイズが取得できた

VB2005+WindowsMediaPlayerコントロール10.0で試してみましたが、
「WindowsMediaPlayer1.currentMedia.imageSourceWidth」
で、サイズは参照できましたけど・・・

＃コントロール名は、標準の「AxWindowsMediaPlayer1」から「WindowsMediaPlayer1」に変更済み。

初心者 2007-05-09 09:16:52 No: 143526

書き込みありがとうございます。

私もVB2005で試しました。
AxWindowsMediaPlayer1.currentMedia.imageSourceWidthをやっても変わらんのです。

AxWindowsMediaPlayer1.currentMedia.imageSourceWidthの値を調べると「０」なんです。それをそのままAxWindowsMediaPlayer1.Widthに代入すると
横幅が０になってしまうのです。
なぜAxWindowsMediaPlayer1.currentMedia.imageSourceWidthは０なんでしょうか・・・？

YuO 2007-05-09 10:36:39 No: 143527

ちゃんと再生を開始させましたか？

・AxWindowsMediaPlayerとTimerを1個ずつForm1に載せる
・AxWindowsMediaPlayer1.URLを適当なところにセット
・Timer1.EnabledをTrueに
として，
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Text = AxWindowsMediaPlayer1.currentMedia.imageSourceWidth.ToString()
    End Sub
End Class
というコードを書くと，再生直後にタイトルが0から正しい幅に置き換わります。

初心者 2007-05-09 22:35:24 No: 143528

YuOさん回答ありがとうございました。
おかげさまでうまくいきました。

初心者 2007-05-12 03:26:18 No: 143529

解決しました！

Yasu 2008-03-06 08:21:17 No: 143530

VB2005でWindowsMediaPlayerを使って、オーディオファイルを再生させるプログラムを作っています。
一般的な再生はAxWindowsMediaPlayer1.Ctlcontrols.play()を使っていますが、BGMなどの繰り返し(loop)演奏の方法が分かりません。
どなたか教えてください。