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の値を調べると「0」なんです。それをそのままAxWindowsMediaPlayer1.Widthに代入すると
横幅が0になってしまうのです。
なぜAxWindowsMediaPlayer1.currentMedia.imageSourceWidthは0なんでしょうか・・・?


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)演奏の方法が分かりません。
どなたか教えてください。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加