|
■No8311 (masayuki さん) に返信
> [開発環境] VS2005 C# XP Pro
webbrowser.documentText に
<OBJECT WIDTH="100%" HEIGHT="100%" CLASSID="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" ID="MediaPlayer">
<PARAM NAME="AutoStart" VALUE="true"> <!-- 自動再生可否 -->
<PARAM NAME="AutoRewind" VALUE="true"> <!-- 繰り返し再生可否 -->
<PARAM NAME="FileName" VALUE="REP-KEY"> <!-- REP-KEY をファイルパスに置換して -->
<PARAM NAME="ShowControls" VALUE="false"> <!-- 操作ボタン表示可否 -->
<PARAM NAME="ShowAudioControls" VALUE="false"> <!-- 同上 -->
<PARAM NAME="ShowDisplay" VALUE="false"> <!-- 再生イメージの情報表示可否 -->
<PARAM NAME="ShowGotoBar" VALUE="false"> <!-- 知らん -->
<PARAM NAME="ShowPositionControls" VALUE="false"> <!-- 知らん -->
<PARAM NAME="ShowStatusBar" VALUE="false"> <!-- ステータスバー？ -->
<PARAM NAME="ShowTracker" VALUE="false"> <!-- 動いてる奴 -->
</OBJECT>
これ貼り付けるのはダメ？
Public Class Form1
Private WithEvents web1 As New WebBrowser
Private WithEvents web2 As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim splitter As New SplitContainer
splitter.Dock = DockStyle.Fill
splitter.Panel1.Controls.Add(web1)
splitter.Panel2.Controls.Add(web2)
web1.Dock = DockStyle.Fill
web2.Dock = DockStyle.Fill
Me.Controls.Add(splitter)
Me.Size = New Size(640, 480)
Dim objTag1 As String = My.Resources.WMA_TAGS
objTag1 = objTag1.Replace("REP-KEY", "file://C:/TEMP/ura001.wmv")
Dim objTag2 As String = My.Resources.WMA_TAGS
objTag2 = objTag2.Replace("REP-KEY", "file://C:/TEMP/ura002.wmv")
web1.DocumentText = objTag1
web2.DocumentText = objTag2
Console.WriteLine(objTag2)
End Sub
End Class
とりあえず、サンプルはVBだけど普通に２つでも１０個でも同時に再生できましたよ。
実行すると余白が目立ちますが、body のマージンによるものです。気に入らないなら
<body style="margin:0px"><object ...></object></body>
にして下さい。
# WMVの名前が香ばしいですが・・・気にせずに;;
|
