VB-Power.net

YouTube Videos in eigener Anwendung


UserControls
Erstellt am 21 Nov 2009
VB.Net Code-Snippets, Klassen und mehr... >> UserControls

Heute möchten wir Ihnen ein UserControl vorstellen, mit dem Sie Flash-Videos abspielen können. Das UserControl hosted dabei den FlashPlayer über LateBinding, so dass keine Versionsabhängigkeit zu einem bestimmten Player entsteht. Es ist also egal, ob auf dem PC die ältere Version 9 oder die aktuelle Version 10 des FlashPlayers installiert ist.

Hinweise zu YouTube Videos
Die URL für ein YouTube Video setzt sich aus der Basisadresse http://www.youtube.com/v/  und der Video-ID zusammen, z.B. „egJR3K6UIJY“. Daraus ergibt sich für das Video „Phil Collins Farewell Tour - Drums and Take Me Home“ folgende Video-URL:

http://www.youtube.com/v/egJR3K6UIJY

Sie können YouTube Videos nur dann in externen Playern abspielen, wenn diese zur Einbettung freigegeben sind. Dies wird Ihnen auf der YouTube Webseite neben dem Video angezeigt.

Nachfolgend nun das FlashPlayer UserControl:
Fügen Sie Ihrem Projekt eine neue Klasse hinzu, und kopieren den Code in das Klassenmodul. Erstellen Sie einmal das Projekt, um so das UserControl zu erzeugen. VB.Net stellt das neue UserControl automatisch in die ToolBox oben ein. Sie können jetzt das so neu erzeugte UserControl auf Ihre Form ziehen und damit wie gewohnt arbeiten.
 

Imports System.Text
Imports System.ComponentModel
Imports System.Runtime.InteropServices

''' <summary>
''' FlashPlayer UserControl
''' </summary>
''' <remarks>
''' Dieses UserControl hosted über LateBinding einen
''' versionsunabhängigen FlashPlayer.
''' 
''' November 2009 - VB-Power.net
''' http://www.vb-power.net
''' </remarks>
Public Class FlashPlayer
   Inherits UserControl

   Private m_FlashHost As FlashHost
   Private m_AutoPlay As Boolean = True
   Private m_ColorFrom As Color = Color.Gray
   Private m_ColorTo As Color = Color.Gray
   Private m_ShowBorder As Boolean = False
   Private m_IsPlayerInit As Boolean = False

   ''' <summary>
   ''' Controller-Host für den FlashPlayer zur Darstellung
   ''' in einem UserControl.
   ''' </summary>
   Private Class FlashHost
      Inherits AxHost

      Public Sub New(ByVal sCLSID As String)
         MyBase.New(sCLSID)
      End Sub

      Public ReadOnly Property Player() As Object
         Get
            Return Me.GetOcx
         End Get
      End Property
   End Class

   ''' <summary>
   ''' Initialisiert das UserControl
   ''' </summary>
   Public Sub New()
      Try
         ' Versionsunabhängiges LateBinding des FlashPlayers
         Dim tFlashPlayer As Type = Type.GetTypeFromProgID("ShockwaveFlash.ShockwaveFlash")
         If tFlashPlayer IsNot Nothing Then
            m_FlashHost = New FlashHost(tFlashPlayer.GUID.ToString)
            DirectCast(m_FlashHost, ISupportInitialize).BeginInit()
            SuspendLayout()
            m_FlashHost.Visible = True
            m_FlashHost.Dock = DockStyle.Fill
            Controls.Add(m_FlashHost)
            DirectCast(m_FlashHost, ISupportInitialize).EndInit()
            ResumeLayout(False)
            PerformLayout()
            m_IsPlayerInit = True
         Else
            MessageBox.Show("Der FlashPlayer konnte nicht initialisiert werden.", _
               "Überprüfung FlashPlayer", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End If
      Catch ex As Exception
         MessageBox.Show(ex.Message, "Initialisierung FlashPlayer", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
      End Try
   End Sub

   ''' <summary>
   ''' Legt fest, ob das Video sofort abgespielt werden soll.
   ''' </summary>
   <DefaultValue(GetType(System.Boolean), "True")> _
   Public Property AutoPlay() As Boolean
      Get
         Return m_AutoPlay
      End Get
      Set(ByVal value As Boolean)
         m_AutoPlay = value
      End Set
   End Property

   ''' <summary>
   ''' Legt die erste Verlaufsfarbe für Border und Navigator fest.
   ''' </summary>
   <DefaultValue(GetType(System.Drawing.Color), "Gray")> _
   Public Property ColorFrom() As Color
      Get
         Return m_ColorFrom
      End Get
      Set(ByVal value As Color)
         m_ColorFrom = value
      End Set
   End Property

   ''' <summary>
   ''' Legt die zweite Verlaufsfarbe für Border und Navigator fest.
   ''' </summary>
   <DefaultValue(GetType(System.Drawing.Color), "Gray")> _
   Public Property ColorTo() As Color
      Get
         Return m_ColorTo
      End Get
      Set(ByVal value As Color)
         m_ColorTo = value
      End Set
   End Property

   ''' <summary>
   ''' Zeigt an, ob ein FlashPlayer initialisiert werden konnte.
   ''' </summary>
   <Browsable(False)> _
   Public ReadOnly Property IsPlayerInit() As Boolean
      Get
         Return m_IsPlayerInit
      End Get
   End Property

   ''' <summary>
   ''' Legt fest, ob der Player einen Rahmen angezeigen soll.
   ''' </summary>
   <DefaultValue(GetType(System.Boolean), "False")> _
   Public Property ShowBorder() As Boolean
      Get
         Return m_ShowBorder
      End Get
      Set(ByVal value As Boolean)
         m_ShowBorder = value
      End Set
   End Property

   ''' <summary>
   ''' Spielt das angegebene Video ab.
   ''' </summary>
   ''' <param name="URL">Die URL des Videos.</param>
   Public Sub PlayMovie(ByVal URL As String)
      If Not String.IsNullOrEmpty(URL) Then
         Dim sb As New StringBuilder
         sb.Append(URL)
         sb.AppendFormat("&autoplay={0}", IIf(m_AutoPlay, "1", "0"))
         sb.AppendFormat("&color1=0x{0}{1}{2}", String.Format("{0:X2}", m_ColorFrom.R), _
            String.Format("{0:X2}", m_ColorFrom.G), String.Format("{0:X2}", m_ColorFrom.B))
         sb.AppendFormat("&color2=0x{0}{1}{2}", String.Format("{0:X2}", m_ColorTo.R), _
            String.Format("{0:X2}", m_ColorTo.G), String.Format("{0:X2}", m_ColorTo.B))
         sb.AppendFormat("&border={0}", IIf(m_ShowBorder, "1", "0"))

         m_FlashHost.Player.Movie = sb.ToString
      End If
   End Sub
End Class

 

Aufrufbeispiel:

If Me.FlashPlayer1.IsPlayerInit Then
   ' Phil Collins Farewell Tour - Drums and "Take me Home"
   Me.FlashPlayer1.PlayMovie("http://www.youtube.com/v/egJR3K6UIJY")
End If

Letzte Änderung: 21 Nov 2009 at 17:38

Zurück
TOP Download !!!

DataGridView Control Extender

Erweitern Sie Ihr DataGridView mit 16 zusätzlichen Spaltentypen.


Weiterlesen...


TOP 5 Downloads
WpfOSMMap7084
Explorer TreeView mit VB.Net - Beispielprojekt5049
DataGridView Control Extender incl. VB2008 Demoprojekt4806
MCIFramework.dll3408
DataGridView Control Extender incl. VB2005 Demoprojekt3085
Powered by:

Powered By VB-Power.net